; this is a port of the HelloWorldSwing tutorial found at:
; http://java.sun.com/docs/books/tutorial/uiswing/start/compile.html

(ns us.menzies.test
  (:import (javax.swing JFrame JLabel SwingUtilities))
  (:gen-class))

(defn create-and-show-gui []
  (let [frame (JFrame. "HelloWorldSwing")]
	(.setDefaultCloseOperation frame (. JFrame EXIT_ON_CLOSE))
	(.add (.getContentPane frame) (JLabel. "Hello World"))
	(.pack frame)
	(.setVisible frame true)))

(defn -main [args]
  (SwingUtilities/invokeLater (proxy [Runnable] []
								(run [] (create-and-show-gui)))))

(-main [])