Clojure —— 桌面文本字段显示

可以通过 text 类显示文本字段。以下程序展示了如何使用。

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

在上面的代码中，首先创建一个文本字段变量，该变量属于 seesaw 库的 text 类。接下来，将文本字段的文本设置为“This is a text field”。然后，通过将 editable 属性设置为 false，将文本字段设为静态字段。

运行上面的代码后，将得到以下窗口。