当前位置: 首页 > 文档资料 > Clojure 中文教程 >

Displaying Text Fields

优质
小牛编辑
129浏览
2023-12-01

可以在文本类的帮助下显示文本字段。 以下程序显示了如何使用它的示例。

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

在上面的代码中,首先创建一个文本字段变量,该变量来自跷跷板库的文本类。 接下来,文本字段的文本被设置为“这是一个文本字段”。 然后通过将editable属性设置为false,将文本字段设置为静态字段。

运行上面的代码后,您将看到以下窗口。

文本域