0.1.0-SNAPSHOT permalink Arrow_down_16x16
  • (label caption & {obj :for, :as opts})

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source clj_swing/label.clj:5 top

(defmacro label 
  [caption & {obj :for :as opts}]
  `(let [l# (JLabel. ~caption)]
     (doto l#
       ~@(if obj 
	   [`(.setLabelFor ~obj)])
       ~@(icon-setters [:icon :disabled-icon]  opts)
       
       ~@(auto-setters JLabel [:for] opts))))
Vars in clj-swing.label/label: defmacro apply concat doto let list seq vector
Used in 0 other vars

Comments top

No comments for label. Log in to add a comment.