   screen-height
   "Returns the height of the main screen in pixels."
   []
-  orig-screen-height)
+  (.height (current-screen)))
 
 (defn
   ^{:requires-bindings true

    (.getScreenSize default-toolkit)))

#+clj
(def ^{:private true} orig-screen-width
  (let [screen (current-screen)]
    (.width screen)))

#+clj
(defn
  ^{:requires-bindings false
    :processing-name "displayWidth"

  screen-width
  "Returns the width of the main screen in pixels."
  []
  (.width (current-screen)))

#+clj
(defn
