Clojure - Etiquetas de visualización de escritorio

Las etiquetas se pueden mostrar con la ayuda de la clase de etiqueta. 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 label (seesaw/label
      :text "This is a label too"
      :background :white
      :foreground :black
      :font "ARIAL-BOLD-10"))
   (display label))

En el código anterior, primero se crea una variable de etiqueta que es de la clase de etiqueta de la biblioteca de balancín. A continuación, el texto de la etiqueta se establece en "Esto también es una etiqueta". Luego, el fondo, el color de primer plano y la fuente se configuran en consecuencia.

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