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
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]]
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
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]
.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
}