bindboom.clj

(ns bindboom
  (:use [seesaw core table mig])
  (:require [seesaw.bind :as bind]))

(defn example
  []
  (let [a  (atom nil)
        p  (mig-panel
             :constraints ["", "[left]"]
             :items [ 
                     [(checkbox :id :cb :text "Enable" )]
                     [(text :id :tb :columns 20)]
                     [(button :text "set-normal" :listen [:action (fn [e] (reset! a {:cb true :tb "Normal Values"}))])]  
                     [(button :text "boom"       :listen [:action (fn [e] (reset! a nil))])]
                     ])
        fr (frame :content p)]
    (bind/bind a (bind/value p))
    (invoke-later (-> fr pack! show!))))