     (.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))
+(defn bind-keys
+  [component input-keys action-fn global?]
+  (dorun (map #(bind-key component % action-fn global?) input-keys)))
+
+(defn bind-window-keys
+  [window input-keys action-fn]
+  (bind-keys (.getContentPane window) input-keys action-fn true))
 
 ;; full screen
 


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

;; key binding


(def MIN-ZOOM -8)

(def MAX-ZOOM 0)

(def display-updater (GUIUpdater.))

;; TESTING UTILITIES

