From 55e0e74412d88ce934886762801cab2ab830a1a8 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 8 Aug 2010 15:31:24 +0100 Subject: [PATCH] where-vessels: Ownership smasher is gridded --- yarrg/where-vessels | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 2.30.2