Clojure-desktop-displaying-buttons

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

上記のコードでは、最初にシーソーライブラリのボタンクラスからのボタン変数が作成されます。 次に、ボタンのテキストが「Click Me」に設定されます。 次に、ボタンにイベントが添付されるため、ボタンがクリックされるたびにアラートダイアログボックスが表示されます。

上記のコードを実行すると、次のウィンドウが表示されます。

Click Me

ボタンをクリックすると、次のダイアログボックスが表示されます。

ボタンをクリック