Skip to content

Instantly share code, notes, and snippets.

@aberant

aberant/gist:273772

Created January 10, 2010 21:15
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save aberant/273772 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save aberant/273772 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(import
'(java.awt Color Graphics Dimension)
'(javax.swing JFrame JPanel))
(def width 640)
(def height 480)
(defn render [g] )
(def panel (doto (proxy [JPanel] []
(paint [g] (render g)))
(.setPreferredSize (new Dimension width height ))))
(def frame (doto (new JFrame) (.add panel) .pack .show))
(frame)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment