Changes for clj-swing.button/button

teyc on Tue, 07 Sep 2010
(defn button-example []
  (frame :title "A Button Example"
	 :layout (FlowLayout.)
	 :size [220 90]
	 :show true
	 [b1 (button "First")
	  b2 (button "Second")
	  lab (label "Press a button")]
	 (add-action-listener b1 ([e] (println "listener called")))))