如何退出用Clojure Seesaw编写的应用程序？

Question

我知道

(frame
     :title "Example"
     :on-close :exit)

但如果我想在菜单中选择退出后做一些自定义操作，我该怎么办？

(fn [e] (System/exit 0) )

没有工作。

编辑1

糟糕，（fn [e]（系统/退出0））有效，只要你这样做

:listen [:action ...

而不是：listen [：鼠标点击..

很抱歉之前没有注意到。