如何让seesaw列表框对双击做出反应？

Question

好吧，这可能是一个愚蠢的问题，但我很困惑，所以我创建了一个SOF帐户。这就是我想要做的事情：

(let [lb (listbox :model ["a" "b" "c"])]
  (listen lb :selection
    (fn [e] (alert (selection lb))))
(-> (frame :content lb)
  pack! show!))

如果运行此代码，您将看到一个包含三个条目(a、b、c)的列表框。如果你点击它们中的任何一个，就会弹出一个警告，其中包含该条目。我想要做的是让列表框以这种方式响应双击，而不是单击。我该怎么做呢？

对于那些告诉我如何使双击项目的编号出现在弹出窗口中的人(0代表a，1代表b，2代表c)，我要向他们致以额外的敬意。

Answer 1

Seesaw的listbox函数返回一个JList。JList的ListSelectionModel不提供确定ListSelectionEvent是否是双击的结果的方法，所以:selection侦听器在这里帮不上忙。

另一方面，MouseEvent确实提供了getClickCount，可用于检测双击。因此，您可以改用:mouse-clicked侦听器，并筛选双击。然后，您需要做的就是找到与单击位置相对应的ListItem。幸运的是，JList提供了一个可用于此目的的locationToIndex方法。对于"Double-click event on JList element“，This answer将这些部分放在一起。到Clojure/Seesaw的翻译如下所示：

(listen lb :mouse-clicked
        (fn [ev]
          (when (= 2 (. ev getClickCount))
            (let [index (. list locationToIndex (. ev getPoint))]
              <... do something with the index / list item ...>))))