列表框(JList的)将不会从自定义的动态更新的ListModel(Listbox (JList)

2019-06-27 05:18发布

我正在使用Clojure的跷跷板一个GUI应用程序时遇到麻烦一个列表框(JList的Java中),当我自定义的ListModel得到更新进行更新。

下面是一些我的代码:

(deftype ActionHistoryListModel
  [^{:unsynchronized-mutable true} listeners
   ^{:unsynchronized-mutable true} listening-to]

  ListModel
  (addListDataListener [this listener]
    (set! listeners (conj listeners listener)))
  (removeListDataListener [this listener]
    (set! listeners (remove #(= % listener) listeners)))
  (getSize [this] 
    (get-in (deref listening-to) [:count]))
  (getElementAt [this index]
    (get-in (deref listening-to) [:actions index]))

  ActionHistoryListModelProtocol
  (listen-to [this r]
    (do
      (set! listening-to r)
      (add-watch r this (fn [_ _ _ new-state] (.notify this new-state)))))
  (notify [this new-state]
    (let [action ((meta new-state) :last-action)
          const  (cond
            (= action :create) INTERVAL_ADDED
            (= action :update) CONTENTS_CHANGED)
          index  (last ((meta new-state) :action-target))
          event  (ListDataEvent. this const index index)
          notification (cond
            (= action :create) #(.intervalAdded % event)
            (= action :update) #(.contentsChanged % event))
          ]
      (. (.. System out) print (str "Index: " index "\n" "Event: " event "\n"))
      (map #(invoke-later (notification %)) listeners)))
  )

(defn make-action-history-list-model []
  (ActionHistoryListModel. #{} nil))

(def ahlm (make-action-history-list-model))
(.listen-to ahlm action-history)

(def undo-list (listbox :model ahlm))

; then put list in frame...

其中, action-history是一个ref

它去哪里名单应该因为被更新的点System.out.print正在发生的事情,但列表框不希望更新

什么任何想法可能是想错了? 它说的是使用的EDT和手表回调的组合?

让我知道,如果需要更多的代码。

Answer 1:

定制机型总是特别是围绕事件通知棘手,所以很难说有多好,这将工作。 这就是说,我最好的猜测,为什么没有被告知的是,您使用map是懒惰的,即最后的形式在您的notify方法实际上并没有做任何事情。 试试这个:

(doseq [listener listeners] 
  (invoke-later (notification listener)))

祝好运。



文章来源: Listbox (JList) Won't update dynamically from custom ListModel