0.1.0-SNAPSHOT Arrow_down_16x16
  • (shelf [& bindings] & body)

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/panel.clj:80 top

(defmacro shelf [[& bindings] & body]
  (let [pan (gensym "stack")]
    `(let [~pan (doto (new JPanel) (.setLayout (FlowLayout.))) 
	   ~@(reduce
	     (fn [l [f s]]
	       (concat l 
		       (list f s
			     '_ `(.add ~pan ~f))))
	     '() (partition 2 bindings))]
       ~@body
       ~pan)))
Vars in clj-swing.panel/shelf: concat defmacro fn let list partition reduce apply doto seq vector
Used in 0 other vars

Comments top

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