在 clojure 中如何刷新表数据

Question

我有一个使用 seesaw.swingx 创建的表，我想刷新表行中的数据（甚至清除整个表并为其提供新数据也可以）。我如何实现这一点，我知道我可能必须使用 table/table-model ，但是如何将此表模型提供给我当前的表？

我的表创建为
(swingx/table-x :id :data-table :horizontal-scroll-enabled? true :model [:columns [{:key :first-name :text "First Name"} {:key :last-name :text "Last Name"}] :rows (get-data)]))

编辑：

所以这是我的处理程序，我想更新我的表

(defn- return-movie-handler
  [event]
  (let [root (seesaw/to-root event)
        table (seesaw/select root [:#data-table])]
        ;some code
        (seesaw/replace! root table (get-table-model))))))

我get-table-model是

(defn- get-table-model
  []
  (seesaw.table/table-model :columns [{:key :first-name :text "First Name"}
                                      {:key :last-name :text "Last Name"}]
                            :rows (get-data)))

这样做我得到一个例外java.lang.IllegalArgumentException: No implementation of method: :make-widget* of protocol: #'seesaw.make-widget/MakeWidget found for class: seesaw.table.proxy$javax.swing.table.DefaultTableModel

Answer 1

你可以使用replace!，http://daveray.github.io/seesaw/seesaw.core-api.html#seesaw.core/replace！

(replace! Container Old widget Table Model)

这是我基于您的代码的更新代码。我在当地测试过，效果很好。

(use 'seesaw.core)

(defn- get-table-model
  [a b]
  (seesaw.core/table :model [:columns [ :first-name :last-name] 
                             :rows [[ a  b]]]))
(def base_frame (frame :title "Base Frame" :content (vertical-panel :items [(border-panel :north (get-table-model "a" "b" ) :id :panel_id)])))
(show! base_frame)
(pack! base_frame)
(replace!  (select base_frame [:#panel_id])  (first (select base_frame [:<javax.swing.JTable>])) (get-table-model "C" "D")   )

Answer 2

有点晚了，但你也可以使用 (config! (select root [:#data-table]) :model new-model) ，将模型保存在原子中或使用生成器函数。比(replace!)海事组织简单得多。