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

0.1.0-SNAPSHOT permalink

shelf

clj-swing.panel

(shelf [& bindings] & body)

0 Examples top

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

ClojureDocs(beta)

clj-swing

Namespaces

shelf

clj-swing.panel

0 Examples top

See Also top

Source clj_swing/panel.clj:80 top

Comments top

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