Clojure：窗口框架关闭时退出程序

Question

我希望我的 Clojure 程序在 JFrame 关闭时退出。

我试图捕获并处理关闭事件，如下所示：

(def exit-action (proxy [WindowAdapter] []
               (windowClosing [event] (fn [] (System/exit 0)))
               )
)
(.addWindowListener frame exit-action)

这不会引发任何明显的错误，但它似乎也没有达到我想要的效果。

感谢您的帮助。

答案：

改编 Rekin 的答案就成功了：

(.setDefaultCloseOperation frame JFrame/EXIT_ON_CLOSE)

请注意，那是：

setDefaultCloseOperation 

不是：

setDefaultOperationOnClose

Answer 1

在 Java 中：

frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

更详细的示例可以在官方 关于框架的 Java Swing 教程中找到

Answer 2

我会使用 EXIT_ON_CLOSE，但您的第一次尝试不起作用的原因是代理正文应包含 (System/exit 0)，而不是 (fn []（系统/退出0））。您不是退出，而是返回（然后丢弃）一个函数，当调用时，该函数会退出。

Answer 3

这是我在我的 博客 上展示的一个简短的演示程序不久前

(ns net.dneclark.JFrameAndTimerDemo
  (:import (javax.swing JLabel JButton JPanel JFrame Timer))
  (:gen-class))

(defn timer-action [label counter]
   (proxy 1 []
     (actionPerformed
      [e]
       (.setText label (str "Counter: " (swap! counter inc))))))

(defn timer-fn []
  (let [counter (atom 0)
        label (JLabel. "Counter: 0")
        timer (Timer. 1000 (timer-action label counter))
        panel (doto (JPanel.)
                (.add label))]
    (.start timer)
    (doto (JFrame. "Timer App")
      (.setContentPane panel)
      (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
      (.setLocation 300 300)
      (.setSize 200 200)
      (.setVisible true)))
  (println "exit timer-fn"))

(defn -main []
  (timer-fn))

请注意timer-fn[]中设置默认关闭操作的行。与 Java 差不多，但有一点语法调整。

该博客条目的目的是展示 Clojure 中的闭包示例。