Clojure - Desktop che visualizza i campi di testo

I campi di testo possono essere visualizzati con l'aiuto della classe di testo. 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 textfield
      (seesaw/text
         :text "This is a text field"
         :editable? false
         :columns 50))
   (display textfield))

Nel codice sopra, prima viene creata una variabile del campo di testo che proviene dalla classe di testo della libreria altalena. Successivamente, il testo del campo di testo è impostato su "Questo è un campo di testo". Quindi il campo di testo viene reso un campo statico impostando l'attributo modificabile su false.

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