0

我有一个使用 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

4

2 回答 2

0

你可以使用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")   )
于 2014-11-27T02:58:56.327 回答
0

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

于 2015-11-21T23:25:03.117 回答