  
 ;; =============================================================================
 ;; {{{ Some stuff for the game view
-(defn slider [view owner {:keys [e-range e-key e-label e-func]}]
+(defn slider [view owner {:keys [e-range e-key e-label e-func e-steps]}]
   (let [[min max] e-range
-        e-label (or e-label "NO LABEL!")]
+        e-label (or e-label "NO LABEL!")
+        e-steps (or e-steps 30)
+        ]
     (reify
       om/IInitState
       (init-state [_]

(defmethod handle-message! :set-scale [_ scale]  (scale-swap! (constantly scale)))
(defmethod handle-message! :set-time-speed [_ time-speed]  (swap! game-view assoc :time-speed time-speed ))

(defn om-slider [ label data kork range func]
  (om/build slider data {:opts {:e-range range
                                :e-key kork
                                :e-label label 
                                :e-func func}} ))


(defn game-component [data owner]

                    :style {:width "100px"}
                    :value value
                    :min min :max max
                    :step (/ (- max min) e-steps )
                    :on-change #(put! ch (js/parseFloat (.. % -target -value)))}]
           [:span value]])))))
;; }}} 
