   This string can be passed to native Processing methods."
   [renderer]
   (resolve-constant-key renderer renderer-modes))
-
+(defn- hide-menu-bar-if-macos []
+  (when (= PApplet/platform PApplet/MACOSX)
+    (.. (Class/forName "japplemenubar.JAppleMenuBar")
+        (getDeclaredMethod "hide" (into-array Class []))
+        (invoke nil (into-array Object [])))))
 
 (defn- display-size
   "Returns size of screen. If there are 2 or more screens it probably return size of


   :on-close       - Called once, when sketch is closed"
  [& opts]
  (let [options           (merge {:size [500 300]
                                  :target :frame
                                  :safe-draw-fn true}

                                  :draw-fn draw-fn
                                  :renderer renderer
                                  :size size
                                  :target-frame-rate (atom 60)
                                  :decor decor}
                                 listeners)
        prx-obj           (quil.Applet. applet-state)]
    (doto prx-obj
