                    [:label "Demo -"]
                    time-input-demo]]])))
 
-(defn demo3
+(defn time-demo3
   []
   (let [model  (reagent/atom 923)
         time-input-demo  [time-input :model model :disabled true]

                   [:p "Try typing a value outside the range."]
                   time-input-demo]]])))

(defn demo6
  []
  (let [from-model  (reagent/atom 900)
        to-model    (reagent/atom 2300)

               [:p "The "[:code ":model"] " is expected to be an integer in HHMM form. e.g. a time of '18:30' is the integer 1830.
                The same applies to "[:code ":minimum"] " and "[:code ":maximum"] "."]
               [:p "When the component loses focus, the " [:code ":on-change"] " callback is called with an integer of the same form."]
               [:p "If the entered value is invalid it will be returned to the last valid value."]
               [:p "If "[:code ":model"] " is invalid an exception will be thrown."]
               [:div.h4 "Parameters"]
               [:label {:style {:font-variant "small-caps"}} "required"]
                [:ul
                 [:li [:code ":model"] " - an integer time e.g. 930"]]
