Clojure - Escritorio que muestra campos de texto

Los campos de texto se pueden mostrar con la ayuda de la clase de texto. 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 textfield
      (seesaw/text
         :text "This is a text field"
         :editable? false
         :columns 50))
   (display textfield))

En el código anterior, primero se crea una variable de campo de texto que es de la clase de texto de la biblioteca de balancín. A continuación, el texto del campo de texto se establece en "Este es un campo de texto". Luego, el campo de texto se convierte en un campo estático estableciendo el atributo editable en falso.

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