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 2f9e23775adca005210ff23708dc892f52546cd8..5cc498b2a50a65aaa1f4a212786c66e474fb6fb7 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -476,13 +476,13 @@ proc begin-control-grid {cw count rows inrow} {
     return $cw
 }
 
     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
 
     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
 
 
     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]
     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]]
                    -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 }
        }
     }
            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
        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} {
     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]
            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
 
 
     .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
     }
 
        lappend owned($owner) $name
     }