Clojure - Étiquettes d'affichage sur le bureau

Les étiquettes peuvent être affichées à l'aide de la classe d'étiquettes. 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 label (seesaw/label
      :text "This is a label too"
      :background :white
      :foreground :black
      :font "ARIAL-BOLD-10"))
   (display label))

Dans le code ci-dessus, une variable d'étiquette est d'abord créée qui provient de la classe d'étiquette de la bibliothèque de bascule. Ensuite, le texte de l'étiquette est défini sur "Ceci est également une étiquette". Ensuite, l'arrière-plan, la couleur de premier plan et la police sont définis en conséquence.

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