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，將文字欄位設為靜態欄位。

執行上面的程式碼後，將得到以下視窗。