在表中显示列名

Question

我创建了一个表"sampletable"。我正在尝试显示列的名称。我尝试添加文本，但它仍然没有显示名称。

(def sampletable
  (seesaw/table :model
                [:columns [{:key :name, :text "Name"} :likes]
                 :rows [["Bobby" "Laura Palmer"]
                        ["Agent Cooper" "Cherry Pie"]
                        {:likes "Laura Palmer" :name "James"}
                        {:name "Big Ed" :likes "Norma Jennings"}]]))

任何帮助将不胜感激。

Answer 1

试试这个

(require '[seesaw.table])
(def sampletable
  (seesaw/table
   :model (seesaw.table/table-model
           :columns [{:key :name, :text "Name"} :likes]
           :rows [["Bobby" "Laura Palmer"]
                  ["Agent Cooper" "Cherry Pie"]
                  {:likes "Laura Palmer" :name "James"}
                  {:name "Big Ed" :likes "Norma Jennings"}])))