;; A set of radio button widgets

(define color-var1 #f)   ;; The variable to which radiobuttons are "connected"

(radiobutton '.b1 :text "Red"   :variable 'color-var1)
(radiobutton '.b2 :text "Green" :variable 'color-var1)
(radiobutton '.b3 :text "Blue"  :variable 'color-var1)
(pack .b1 .b2 .b3)