                  ::last-drag-position [x y])))
 
 (defn stop-dragging! [canvas]
-  (println "stop-dragging!")
   (alter-meta! canvas dissoc ::dragging-action))
 
 (defn continue-dragging [e canvas]

    (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 handle-data-changed [text-area changed-fn]
  (let [doc (.getDocument text-area)]
