Seesaw REPL help

seesaw-repl-help.clj

; very preliminary example of querying a widget for its properties, with examples
; in a repl.
user=> (use 'seesaw.core)
nil
user=> (use 'seesaw.dev)
nil
user=> (show-options (text))
javax.swing.JTextField
                   :action  
               :background  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
                   :border  [5 "\"Border Title\"" [5 "Compound" 10] "See seesaw.border/*"]
                   :bounds  
              :caret-color  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
           :caret-position  
                    :class  [:class-name #{:multiple :class-names}]
                  :columns  
                   :cursor  ["See (seesaw.cursor/cursor)"]
      :disabled-text-color  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
            :drag-enabled?  boolean
                :drop-mode  (:use-selection :on-or-insert-rows :on-or-insert-cols :on-or-insert :on :insert-rows :insert-cols :insert)
                :editable?  
                 :enabled?  boolean
               :focusable?  boolean
                     :font  ["ARIAL-BOLD-18" :monospaced :serif :sans-serif "See (seesaw.font/font)"]
               :foreground  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
                   :halign  (:center :trailing :leading :right :left)
                     :icon  ["See (seesaw.icon/icon)"]
                       :id  ["A keyword id for the widget"]
                    :items  
                   :listen  ["See (seesaw.listen/listen)"]
                 :location  
                   :margin  
             :maximum-size  [[640 :by 480] java.awt.Dimension]
             :minimum-size  [[640 :by 480] java.awt.Dimension]
                    :model  
                  :opaque?  boolean
                    :paint  
                    :popup  
           :preferred-size  [[640 :by 480] java.awt.Dimension]
                 :resource  ["A i18n prefix for a resource with keys clojure.lang.LazySeq@3cabdc5d"]
      :selected-text-color  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
          :selection-color  [:aliceblue "#f00" "#FF0000" "(seesaw.color/color 255 0 0 0 224)"]
                     :size  [[640 :by 480] java.awt.Dimension]
                     :text  ["A string" "Anything accepted by (clojure.core/slurp)"]
                      :tip  ["A tooltip string"]
         :transfer-handler  
                 :visible?  boolean
         :seesaw.core/with