 
 (defn- handle-press-event [state timer e]
   (handle-move-event state e)
-  (if (= :right (mouse-button e))
+  (if (= :right (mouse/button e))
     (reset! (:dir state) +)
     (repaint! e)))
 
 (defn- handle-release-event [state timer e]
-  (if (= :right (mouse-button e))
+  (if (= :right (mouse/button e))
     (reset! (:dir state) -)
     (repaint! e)))
 

    (style :foreground :darkgrey)))

(defn- handle-move-event [state e]
  (if (or (mouse-button-down? e :left)
          (mouse-button-down? e :right))
    (let [x (min (max (.getX e) 0) (width e))
          y (min (max (.getY e) 0) (height e))]
      ((get-in state [:x :set-value]) (to-model (:x state) (width e) x))

  (:use [seesaw.core]
        [seesaw.graphics :only [draw circle style string-shape]]
        [seesaw.color :only [color]]
        [overtone.sc.node :only [ctl]])
  (:require [seesaw.mouse :as mouse]))

;;;

