Clojure - Pulsanti di visualizzazione del desktop

I pulsanti possono essere visualizzati con l'aiuto della classe dei pulsanti. Un esempio di come viene utilizzato è mostrato nel seguente programma.

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

Nel codice sopra, prima viene creata una variabile button che proviene dalla classe button della libreria altalenante. Successivamente, il testo del pulsante è impostato su "Cliccami". Quindi un evento viene allegato al pulsante in modo che ogni volta che si fa clic sul pulsante, verrà visualizzata una finestra di dialogo di avviso.

Quando viene eseguito il codice precedente, verrà visualizzata la seguente finestra.

Quando si fa clic sul pulsante, verrà visualizzata la seguente finestra di dialogo.