     (doseq [action (map :mouse-out out)] (when action (action)))))
     
 (defn activate-dragging! [e reference canvas]
-  (println "activate-dragging!")
   (let [x (.getX e) y (.getY e)]
     (alter-meta! canvas assoc
                  ::dragging-action


(defn demo-canvas []
  (canvas-frame grafix))

(defn demo-animation [reference]
  (dotimes [i 200]
    (Thread/sleep 30)
    (swap! reference (fn [data]
                       (-> data
                           (assoc-in [1 1 :rotate] (* i 15))
                           ))
           )))

(defn handle-data-changed [text-area changed-fn]
  (let [doc (.getDocument text-area)]

                 ::last-drag-position [x y])))

(defn stop-dragging! [canvas]
  (alter-meta! canvas dissoc ::dragging-action))

(defn continue-dragging [e canvas]
