chiark / gitweb /
where-vessels: control for smash owner
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 12:05:42 +0000 (13:05 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 12:05:42 +0000 (13:05 +0100)
yarrg/where-vessels

index b6ca822..f98b0c3 100755 (executable)
@@ -439,6 +439,7 @@ proc show-report-decode {code} {
 #---------- smashing ----------
 
 set smash_subclass 0
+set smash_owner 0
 
 proc smash-code {code} {
     manyset [split $code _] inport class subclass lockown xabbrev
@@ -1081,6 +1082,9 @@ proc widgets-setup {} {
     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