Source
clj_swing/button.clj:12
top
(defmacro general-button [cl {caption :caption action :action name :name :as opts}]
(let [b (or name (gensym "btn"))]
`(let [~b (new ~cl)]
(doto ~b
~@(if caption
[`(.setText ~caption)])
~@(if action
[`(add-action-listener ~action)])
~@(icon-setters *button-icon-keys* opts)
~@(auto-setters JButton *button-known-keys* opts)))))
Comments top
No comments for general-button. Log in to add a comment.