In clojure how to refresh the table data

Question

I have a table created using seesaw.swingx and i want to refresh the data in the rows of the table (or even clearing the entire table and giving new data to it will do). How do i achieve this, I know i might have to use table/table-model, but how do i give this table model to my current table?

my table is created as
(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)]))

EDIT:

So this is my handler where i want to update my table

(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))))))

and my get-table-model is

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

doing this i get an exception 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

you may use replace! , http://daveray.github.io/seesaw/seesaw.core-api.html#seesaw.core/replace!

(replace! Container Old widget Table Model)

Here is updated code I base on your code. I tested on my local ,works good.

(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

It's a bit late, but you can also use (config! (select root [:#data-table]) :model new-model), having kept the model in an atom or using a generator function. Much simpler than (replace!) imo.