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)))
Comments top
No comments for list-model. Log in to add a comment.