如何在Clojure中对SeeSaw面板进行子类化？

Question

我想制作一个自定义面板（连续12个复选框），其中包含要获取/设置的功能。我对代理并不熟悉，并且跷跷板网格面板已经是代理，所以如何添加（子类）我自己的构造函数和其他函数？

更具体地说，我想做这样的事情

(vertical-panel :items [
   (text "")
   (month-boxes :id :mboxes :months #{1 2 6 7})])

(let [months (value (select XXX [:#mboxes]))] ...)