where-vessels: control for smash owner

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index b6ca822e59688b54c74eee3145790d2a8c08c6e5..f98b0c3e4b9bd95c2056e94a7423e86b353918b6 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -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