#---------- smashing ----------
set smash_subclass 0
+set smash_owner 0
proc smash-code {code} {
manyset [split $code _] inport class subclass lockown xabbrev
make-radio-smasher subclass Subclass smash_subclass \
{Show Normal/LE Hide}
+ make-radio-smasher owner Owner smash_owner \
+ {Show Me Lock Hide}
+
set filterstyle 1
trace add variable filterstyle write filterstyle-changed