swing - 为什么这里不显示表的列名？

Question

我的跷跷板有问题。当我尝试制作并显示一个简单的表格时，它显示没有列名。
我做了什么：

首先，我必须说我正在使用[seesaw "1.4.2"].
然后：

;; Clojure 1.4.0
(require '[seesaw.core :as ss])

(ss/native!)

(def main-window
     (-> (ss/frame
           :title "Main window")
       ss/pack!
       (ss/config! :minimum-size [320 :by 240])
       ss/show!))

(def display
     #(ss/config! main-window
                  :content %))

(display
     (ss/table
       :id :dumb-table
       :model [:columns
               [:one :another]
               :rows
               [["1" "2"]
                ["3" "4"]]]))

_{（来源：leprosorium.com）}

出现表，但没有列名，我猜它必须是“一个”和“另一个”。这里出了什么问题？

如果我使用与官方 wiki 中完全相同的代码，也会发生这种情况：https ://github.com/daveray/seesaw/wiki/Tables

更新：

我忘了提，我使用的是 JDK 1.7u10，也许有道理。

Answer 1

我不知道如何使用跷跷板。但一般情况下，您需要将 JTable 添加到 JScrollPane。这是因为即使滚动数据，JScrollPane 也会在顶部提供列标题。如果您不想使用 JScrollPane，那么您需要手动将列标题添加到容器中，以便它们保持在顶部。所以尝试添加 JScrollPane。

如果我错了，请告诉我... :)

Answer 2

好吧，我想你错过了一些东西，（见参考）

(display
 (ss/table
   :id :dumb-table
   :model [:columns
           [{:key :one, :text "One~1"} 
             {:key :one, :text "The Other~2"}]
           :rows
           [["1" "2"]
            ["3" "4"]]]))