chiark / gitweb /
where-vessels: rename "entry" to "elem" where it doesn't refer to an entry widget
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 17:03:37 +0000 (18:03 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 8 Aug 2010 19:59:56 +0000 (20:59 +0100)
yarrg/where-vessels

index 2f9e237..5cc498b 100755 (executable)
@@ -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
     }