带有Seesaw的Listbox的值

Question

是否有任何方法可以将Clojure中的Listbox的值作为一个集合获得，Clojure可以处理这个集合呢？

我得到的最多的是一个JList，Clojure无法处理这个问题。

/edit:为了澄清:例如，我希望将列表框的所有元素和conj的一个新元素放到它们上。但是，由于列表框的返回值是一个JList，Clojure自然无法做到这一点。

我似乎找不到从列表框中提取所有元素的任何方法。

Answer 1

看这个。您可以使用getModel方法获得ListModel。然后使用getElementAt和getSize方法构建数组或列表或任何您想要的内容。

(def data (into-array String ["one" "two" "three" "four"]))
(def myList (JList. data))
(->> myList 
    .getModel 
    ((juxt identity (memfn getSize))) 
    ((fn [[a b]] (map #(.getElementAt a %) (range b)))) 
    (apply vector) (#(conj % "five")))