Clojure Desktop Displaying Buttons

按鈕可以在按鈕類的幫助下顯示。 下面的程序顯示了如何使用它的示例。

(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))

在上面的代碼中，首先創(chuàng)建一個(gè)來(lái)自蹺蹺板庫(kù)的按鈕類的按鈕變量。 接下來(lái)，按鈕的文本被設(shè)置為“Click Me”。 然后事件附加到按鈕，以便每當(dāng)該按鈕被點(diǎn)擊時(shí)，它將顯示一個(gè)警告對(duì)話框。

當(dāng)上面的代碼運(yùn)行時(shí)，你會(huì)得到以下窗口。

當(dāng)您單擊按鈕時(shí)，您將獲得以下對(duì)話框。