     on-change - function to call when model has changed - parameter will be the new value
     style - css"
   [& {:keys [model minimum maximum]}]
-  (let [deref-model (dereffed-model model)
+  (let [deref-model (real-value model)
         tmp-model (atom-on (display-string (time-int->hour-minute deref-model)) "")
         min (atom-on minimum 0)
         max (atom-on maximum 2359)]

    (reset! tmp-model (display-string (time-int->hour-minute (validated-time-integer time-int @min @max))))
  (when callback (callback time-int))))

(defn dereffed-model
  [model]
  (if (satisfies? cljs.core/IDeref model)
    @model
    model))

(defn atom-on
  [model default]
  (reagent/atom (if model
                  (dereffed-model model)
                   default)))

;; --- Components ---

    [reagent.core :as reagent]
    [clojure.string :as cljstring]
    [re-com.box      :refer  [h-box gap]]
    [re-com.util :refer [pad-zero-number real-value]]))


; --- Private functions ---
