Clojure - Desktop che mostra le etichette

Le etichette possono essere visualizzate con l'aiuto della classe label. 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 label (seesaw/label
      :text "This is a label too"
      :background :white
      :foreground :black
      :font "ARIAL-BOLD-10"))
   (display label))

Nel codice sopra, prima viene creata una variabile label che proviene dalla classe label della libreria altalena. Successivamente, il testo dell'etichetta è impostato su "Anche questa è un'etichetta". Quindi, lo sfondo, il colore di primo piano e il carattere vengono impostati di conseguenza.

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