combobox - clojure/seesaw 中组合框的所有选项

Question

所以我创建了一些组合框，其中包含按字母顺序排列的各种元素。我不希望菜单上的默认选择成为最高值；相反，我希望它是最常用的值。在 swing 中，我可以调用成员函数setSelectedIndex()并简单地传入最流行的菜单值的索引。我怎样才能在跷跷板上做到这一点？跷跷板文档说选项是:modeland :renderer，但我找不到任何可以让我设置默认索引的东西......

我还缺少其他文档吗？

Answer 1

selection!您可以使用一个功能：

(defn combotest []
  (let [w (frame :title "Combobox Test" :width 200 :height 80)
        combo (combobox :model ["A" "B" "C"])
        pnl (horizontal-panel :items [combo])]
     (config! w :content pnl)
     (selection! combo "C") ;;  <--- boom ---
     (show! w))) 

此外，这些仍然是我们正在使用的 Swing 项目，所以归根结底，我们还可以这样做：

(.setSelectedIndex combo 2)