Clojure - Bureau affichant des champs de texte

Les champs de texte peuvent être affichés à l'aide de la classe de texte. Un exemple sur la façon dont cela est utilisé est montré dans le programme suivant.

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

Dans le code ci-dessus, une variable de champ de texte est d'abord créée à partir de la classe de texte de la bibliothèque de bascule. Ensuite, le texte du champ de texte est défini sur "Ceci est un champ de texte". Ensuite, le champ de texte devient un champ statique en définissant l'attribut editable sur false.

Lorsque le code ci-dessus est exécuté, vous obtiendrez la fenêtre suivante.