0.1.0-SNAPSHOT Arrow_down_16x16

list-model

clj-swing.list

  • (list-model & {[[] & size-code] :size, [[get-idx] & get-code] :get, [[a-l-l] & add-listener-code] :add-listener, [[r-l-l] & remove-listener-code] :remove-listener})

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/list.clj:18 top

(defmacro list-model [& {[[] & size-code] :size
			 [[get-idx] & get-code] :get
			 [[a-l-l] & add-listener-code] :add-listener
			 [[r-l-l] & remove-listener-code] :remove-listener}]
  `(proxy [ListModel] []
     (getSize []
	      ~@size-code)
     (getElementAt [~get-idx]
		   ~@get-code)
     (addListDataListener [~a-l-l]
			  ~@add-listener-code)
     (removeListDataListener [~r-l-l]
			     ~@remove-listener-code)))
Vars in clj-swing.list/list-model: defmacro apply concat list proxy seq vector
Used in 0 other vars

Comments top

No comments for list-model. Log in to add a comment.