gistfile1.clj

(let [[b1 b2 b3 :as buttons]
      (for [[title file] [["Disable middle button" "right.gif"]
                          ["Middle button" "middle.gif"]
                          ["Enable middle button" "left.gif"]]]
        (JButton. title (create-image-igon file)))

      panel (doto (JPanel.)
              (.setOpaque true))
      (doseq [b buttons]
        (.add panel b))])