(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")))))

<pre> (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"))))) </pre>