这是示例代码
(def showscp
( let [ cf (seesaw.core/frame :title "cframe")]
(do
(seesaw.core/config! cf :content (seesaw.core/button :id :me :text "btn" ))
(.setSize cf 300 300)
(seesaw.core/show! cf)
cf
)
)
)
对于获取按钮,我使用这个
(defn find-me
([frame]
(let [ btn (seesaw.core/select frame [:#me] ) ] (do btn)
)
)
)
它会导致错误,例如
(REPL:2:1) 处的语法错误读取源。阅读时的 EOF,从第 2 行开始
(我猜:#me 是宏中的问题。)
为什么会导致错误,以及如何避免错误。
还有比这更聪明的方法吗(keyword "#me")