From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 14:31:24 +0000 (+0100)
Subject: where-vessels: Ownership smasher is gridded
X-Git-Tag: 6.6.2~24
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=55e0e74412d88ce934886762801cab2ab830a1a8

where-vessels: Ownership smasher is gridded
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 57ab56a..14d2e0e 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -536,13 +536,14 @@ proc make-smasher {sma label ekind} {
     return [make-control .smash $sma $label $ekind]
 }
 
-proc make-radio-smasher {sma label variable descs} {
+proc make-radio-smasher {sma label variable descs rows inrow} {
     set w [make-smasher $sma $label frame]
+    begin-control-grid $w [llength $descs] $rows $inrow
     for {set i 0} {$i < [llength $descs]} {incr i} {
-	radiobutton $w.v$i \
+	make-control-grid-entry $w ix $i \
+	    radiobutton \
 	    -variable $variable -value $i -command redraw-needed \
 	    -text [lindex $descs $i]
-	pack $w.v$i -side left
     }
 }
 
@@ -1167,10 +1168,10 @@ proc widgets-setup {} {
     grid .smash.title -row 0 -column 0 -columnspan 2
 
     make-radio-smasher subclass Subclass smash_subclass \
-	{Show Normal/LE Hide}
+	{Show Normal/LE Hide} 1 0
 
     make-radio-smasher owner Owner smash_owner \
-	{Show Yours? You Lock Hide}
+	{Show Yours? {For you} Lock Hide} 2 3
 
     set filterstyle 1
     trace add variable filterstyle write filterstyle-changed