+proc make-smashers {} {
+ make-radio-smasher subclass Subclass smash_subclass \
+ {Show Normal/LE Hide} 1 0
+
+ make-radio-smasher owner Owner smash_owner \
+ {Show Yours? {For you} Lock Hide} 2 3
+
+ global vc_codes vc_code2abbrev
+
+ set cw [make-smasher size "Size\nround down" frame]
+ populate-control-grid-tickboxes $cw 2 0 smash_size $vc_codes \
+ image val { return 0 } { return $vc_code2abbrev($val) }
+}
+