使用跷跷板添加按钮组

Question

我第一次使用跷跷板创建一个GUI，并且我坚持如何将按钮添加到按钮组并在同一帧上显示它们（按钮）。这是我迄今为止所拥有的。

(def b (button :text "Start a new Project")) 

(def c (button :text "Continue an Existing Project")) 


(def groups (button-group)) 

(flow-panel :items [(b :group groups) 
         (c :group groups)]) 

(display groups) 

Answer 1

(button)返回不是函数的按钮（组件）。如果您以后使用它作为(b :group groups)，它实际上会尝试调用b，就好像它是一个函数，并将其传递给两个参数：:group和groups。这就是它失败的原因，因为它不能投射按钮来运行。

其次，我相信(button)创建了一个正常的JButton，对此，该小组毫无意义。你的意思是单选按钮，如(radio)？

其中一个应该可能做你期望的。

单选按钮：

(def groups (button-group)) 

(def b (radio :text "Start a new Project" :group groups)) 

(def c (radio :text "Continue an Existing Project" :group groups)) 

(def panel 
    (flow-panel :items [b c])) 

(invoke-later 
    (-> (frame :content panel :on-close :dispose) pack! show!)) 

常规按钮：

(def b (button :text "Start a new Project")) 

(def c (button :text "Continue an Existing Project")) 

(def panel 
    (flow-panel :items [b c])) 

(invoke-later 
    (-> (frame :content panel :on-close :dispose) pack! show!)) 

你也许可以用你的(display)功能，而不是这个(invoke-later)片断在这里，但这个工程最终到终端的我。