ShapedWindowDemo.java

shaped-window-demo.clj

; http://docs.oracle.com/javase/tutorial/displayCode.html?code=http://docs.oracle.com/javase/tutorial/uiswing/examples/misc/ShapedWindowDemoProject/src/misc/ShapedWindowDemo.java

(use 'seesaw.core)
(require '[seesaw.graphics :as g])
(-> (doto (frame :undecorated? true
                 :content (border-panel :center (button :text "I am a button"))
                 :listen [:component-resized 
                          (fn [e] 
                            (.setShape (to-root e) 
                                       (g/ellipse (0 0 (width e) (height e)))))])
          (.setOpacity (float 0.7)))
    pack!
    show!)