            :args {:pos pos}}] [(-> world-state
                                  (set-prop "handMorph" :position pos)) 
                                hand]
+         [{:type :mouse-enter
+           :target-props props
+           :args {:callback mouse-enter-cb}}] [(if mouse-enter-cb
+                                                 (mouse-enter-cb world-state ($morph (:id props)))
+                                                 world-state) hand]
+         [{:type :mouse-leave
+           :target-props props
+           :args {:callback mouse-leave-cb}}] [(if mouse-leave-cb
+                                                 (mouse-leave-cb world-state ($morph (:id props)))
+                                                 world-state) hand]
          :else :zero))
 
 ; GRABBING

              :id "eli"}))))
   (image {:url "http://www.daniellaondesign.com/uploads/7/3/9/7/7397659/464698_orig.jpg"
           :extent {:x 300 :y 500}
           :grabbable? true
           :inspectable? true
           :id "kyoto"})

(defn create-minute-pointer [radius]
  (rectangle {:id "MinutePointer"
              :position {:x 0 :y -2}
              :fill "darkblue"
              :stroke-width 2
              :extent {:x (* .7 radius) :y 4}}))

