Clojure - 桌面显示按钮

按钮借助按钮类进行显示。下面程序显示了如何使用按钮类。

(ns web.core
   (:gen-class)
   (:require [seesaw.core :as seesaw]))
(defn -main [& args]
   (defn display
      [content]
      (let [window (seesaw/frame :title "Example")]
         (-> window
            (seesaw/config! :content content)
            (seesaw/pack!)
            (seesaw/show!))))
   (def button
      (seesaw/button
         :text "Click Me"
         :listen [:action (fn [event](seesaw/alert "Click!" ))]))
         (display button))

在上面的代码中，首先从 seesaw 库的按钮类创建一个按钮变量。接下来，将按钮的文本设置为“单击我”。然后，在按钮上附加一个事件，以便在每次单击按钮时，它都会显示一个警告对话框。

运行上述代码后，您将获得以下窗口。

单击按钮后，您将看到以下对话框。