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 庫的按鈕類建立一個按鈕變數。接下來，將按鈕的文字設定為“單擊我”。然後，在按鈕上附加一個事件，以便在每次單擊按鈕時，它都會顯示一個警告對話方塊。

執行上述程式碼後，您將獲得以下視窗。

單擊按鈕後，您將看到以下對話方塊。