            (javax.swing AbstractAction JButton JCheckBox JFrame JComponent KeyStroke))
   (:require [slide-explorer.utils :as utils]))
 
-;; key binding
 
 (defn can-eval? [form]
   (try


(def old-bounds (atom {}))

(defn mac-new-toggle-full-screen [window]
  (.requestToggleFullScreen
    (eval `(Application/getApplication)) window))

(defn full-screen!
  "Make the given window/frame full-screen."

                  (import com.apple.eawt.FullScreenAdapter))))

(def fullscreen-windows (atom #{}))

;; key binding

(defn bind-key
  "Maps an input-key on a swing component to an action,
