Clojure - Boutons d'affichage du bureau

Les boutons peuvent être affichés à l'aide de la classe de boutons. Un exemple sur la façon dont cela est utilisé est montré dans le programme suivant.

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

Dans le code ci-dessus, une variable de bouton est d'abord créée, qui provient de la classe de bouton de la bibliothèque de balançoire. Ensuite, le texte du bouton est défini sur «Cliquez sur moi». Ensuite, un événement est attaché au bouton de sorte que chaque fois que vous cliquez sur le bouton, il affiche une boîte de dialogue d'alerte.

Lorsque le code ci-dessus est exécuté, vous obtiendrez la fenêtre suivante.

Lorsque vous cliquez sur le bouton, vous obtenez la boîte de dialogue suivante.