Clojure - Botones de visualización de escritorio

Los botones se pueden mostrar con la ayuda de la clase de botón. En el siguiente programa se muestra un ejemplo de cómo se usa.

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

En el código anterior, primero se crea una variable de botón que es de la clase de botón de la biblioteca de balancín. A continuación, el texto del botón se establece en "Haga clic en mí". Luego, se adjunta un evento al botón para que cada vez que se haga clic en el botón, se muestre un cuadro de diálogo de alerta.

Cuando se ejecuta el código anterior, obtendrá la siguiente ventana.

Al hacer clic en el botón, aparecerá el siguiente cuadro de diálogo.