Skip to content

Instantly share code, notes, and snippets.

@daveray
Created December 30, 2013 14:20
Show Gist options
  • Save daveray/8182572 to your computer and use it in GitHub Desktop.
Save daveray/8182572 to your computer and use it in GitHub Desktop.
ShapedWindowDemo.java
; 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!)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment