Add menubar

ahungry · Sep 16, 2019 · 5e975e5 · 5e975e5
1 parent 7af024a
commit 5e975e5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ahungry/gui.clj b/src/ahungry/gui.clj
@@ -221,14 +221,16 @@ skins along with much less crappy looking demos.")
    (->
     (frame
      :title "Seesaw Substance/Insubstantial Example"
+     :minimum-size [640 :by 480]
+     :menubar (make-menu)
      :on-close :exit
      :content
      (make-main)
      )
     pack!
     show!)
    ;; Calling this, or setting it via REPL causes some issues...
-   (SubstanceCortex$GlobalScope/setSkin "org.pushingpixels.substance.api.skin.DustSkin")
+   (SubstanceCortex$GlobalScope/setSkin "org.pushingpixels.substance.api.skin.NebulaSkin")
    ))
 
 (log/debug "Fin")