clj-swing

Namespaces

clj-swing
- button
- combo-box
- core
- document
- example
- frame
- label
- list
- panel
- text-field
- tree

doc source examples comments

0.1.0-SNAPSHOT permalink

0.1.0-SNAPSHOT

stack

clj-swing.panel

(stack [& bindings] & body)

0 Examples top

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

ClojureDocs(beta)

clj-swing

Namespaces

stack

clj-swing.panel

0 Examples top

See Also top

Source clj_swing/panel.clj:92 top

Comments top

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