0.1.0-SNAPSHOT permalink Arrow_down_16x16
  • (stack [& 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:92 top

(defmacro stack [[& bindings] & body]
  (let [st (gensym "stack")]
    `(let [~st (Box. BoxLayout/PAGE_AXIS)
	   ~@(reduce
	     (fn [l [f s]]
	       (concat l 
		       (list f s)
		       (list '_ `(.add ~st (doto ~f (.setAlignmentX Component/CENTER_ALIGNMENT))))))
	     '() (partition 2 bindings))]
       ~@body
       ~st)))
Vars in clj-swing.panel/stack: concat defmacro fn let list partition reduce apply doto seq vector
Used in 0 other vars

Comments top

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