 
 (def old-bounds (atom {}))
 
-(defn mac-new-toggle-full-screen [window]
-  (.requestToggleFullScreen
-    (eval `(Application/getApplication)) window))
+(def mac-new-toggle-full-screen
+  (attempt-eval
+    '(fn [window]
+       (.requestToggleFullScreen
+         (eval `(Application/getApplication)) window))
+    (constantly nil)))
 
 (defn full-screen!
   "Make the given window/frame full-screen."

           (javax.swing AbstractAction JButton JCheckBox JFrame JComponent KeyStroke))
  (:require [slide-explorer.utils :as utils]))

;; key binding

(defn can-eval? [form]
  (try

                  (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,
