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
}
}
proc widgets-setup {} {
global canvas debug pirate ocean filterstyle
- wm geometry . 1024x600
+ wm geometry . 1200x800
wm title . "where-vessels - $pirate on the $ocean ocean"
#----- map -----
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
draw
+if {$debug} {
+ package require Tclx
+ commandloop -async \
+ -prompt1 { return "where-vessels% " } \
+ -prompt2 { return "> " }
+}
+
# rsync -r --exclude=\*~ yarrg/icons/. ijackson@chiark.greenend.org.uk:/home/ftp/users/ijackson/yarrg/vessel-info/.