Clojure - Desktop exibindo rótulos

Os rótulos podem ser exibidos com a ajuda da classe de rótulos. Um exemplo de como isso é usado é mostrado no programa a seguir.

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

No código acima, primeiro é criada uma variável de rótulo que é da classe de rótulo da biblioteca gangorra. Em seguida, o texto do rótulo é definido como "Este também é um rótulo". Em seguida, o plano de fundo, a cor do primeiro plano e a fonte são configurados de acordo.

Quando o código acima for executado, você obterá a seguinte janela.