From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 8 Aug 2010 17:03:37 +0000 (+0100)
Subject: where-vessels: rename "entry" to "elem" where it doesn't refer to an entry widget
X-Git-Tag: 6.6.2~16
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=98442b30dbd4dc801704ebf845b32fe3addc0d56

where-vessels: rename "entry" to "elem" where it doesn't refer to an entry widget
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 2f9e237..5cc498b 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -476,13 +476,13 @@ proc begin-control-grid {cw count rows inrow} {
     return $cw
 }
 
-proc make-control-grid-entry {cw kind ix ekind args} {
+proc make-control-grid-elem {cw kind ix ekind args} {
     upvar #0 control_grid_properties($cw) props
     manyset $props rows inrow
 
     set ew $cw.$ix
 
-    debug "MAKE-CONTROL-GRID-ENTRY $cw $kind $ix $ekind $rows $inrow $ew"
+    debug "MAKE-CONTROL-GRID-ELEM $cw $kind $ix $ekind $rows $inrow $ew"
 
     eval [list $ekind $ew] $args
 
@@ -526,7 +526,7 @@ proc populate-control-grid-tickboxes {cw rows inrow varsvn values flipvalues
     for {set ix 0} {$ix < $count} {incr ix} {
 	set val [lindex $values $ix]
 	set vars($val) [uplevel 1 $default_get]
-	set ew [make-control-grid-entry $cw ix $ix checkbutton \
+	set ew [make-control-grid-elem $cw ix $ix checkbutton \
 		    -variable ${varsvn}($val) \
 		    -font fixed \
 		    -command [list redraw-needed c.-g.-tickbox $cw $val]]
@@ -535,7 +535,7 @@ proc populate-control-grid-tickboxes {cw rows inrow varsvn values flipvalues
 	    image { $ew configure -height 16 }
 	}
     }
-    [make-control-grid-entry $cw final invert button] \
+    [make-control-grid-elem $cw final invert button] \
 	configure \
 	-text flip -command [list control-tickbox-flip $varsvn $flipvalues] \
 	-padx 0 -pady 0
@@ -603,7 +603,7 @@ 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} {
-	make-control-grid-entry $w ix $i \
+	make-control-grid-elem $w ix $i \
 	    radiobutton \
 	    -variable $variable -value $i -command redraw-needed \
 	    -text [lindex $descs $i]
@@ -1330,8 +1330,8 @@ proc show-report {islandname code} {
 
     .cp.report.list delete 0 end
 
-    foreach entry $k {
-	manyset $entry vid name owner
+    foreach elem $k {
+	manyset $elem vid name owner
 	lappend owned($owner) $name
     }