0.1.0-SNAPSHOT permalink Arrow_down_16x16



  • (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 []
     (getElementAt [~get-idx]
     (addListDataListener [~a-l-l]
     (removeListDataListener [~r-l-l]
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.