+ frame .smash -relief groove -bd 2 -padx 1
+ frame .filter -relief groove -bd 2 -padx 1
+ frame .islands -pady 2
+ pack .cp .filter .islands .smash -side top
+
+ label .smash.title -text Smash
+ pack .smash.title -side top
+
+ make-radio-smasher .smash.subclass Subclass smash_subclass \
+ {Show Normal/LE Hide}
+ pack .smash.subclass -side top
+
+ set filterstyle 1
+ trace add variable filterstyle write filterstyle-changed
+
+ frame .filter.title
+ label .filter.title.title -text Show
+ pack .filter.title.title -side left
+ for {set fing 0} {$fing < 4} {incr fing} {
+ radiobutton .filter.title.f$fing \
+ -variable filterstyle -value $fing \
+ -text [lindex {All Useable Mine These:} $fing]
+ pack .filter.title.f$fing -side left
+ }