 (def MIN-ZOOM -8)
 
 (def MAX-ZOOM 0)
+
+(def display-updater (GUIUpdater.))
 
 ;; TESTING UTILITIES
 

    (.put im input-event uuid)
    (.put am uuid action)))

(defn bind-window-key
  [window input-key action-fn]
  (bind-key (.getContentPane window) input-key action-fn true))

;; full screen



(defn display-follow [panel reference]
  (add-watch reference "display"
             (fn [_ _ _ _]
                (.post display-updater #(.repaint panel)))))

;; key binding

