From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 12:05:42 +0000 (+0100)
Subject: where-vessels: control for smash owner
X-Git-Tag: 6.6.2~27
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=6c9a152ce924835192b2877fbba36071b5e69032

where-vessels: control for smash owner
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index b6ca822..f98b0c3 100755
--- 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