- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
proc redraw_level {level val} {
global lnames countries towns provinces sublocations positions
set parent [expr $level - 1]
set pvalue [.f$parent.l get [lindex $positions $parent]]
set curlist [lindex $lnames $level]($pvalue)
if {$val!=""} {lappend $curlist $val}
.f$level.l delete 2 end
eval set list_vals $$curlist
eval .f$level.l insert end $list_vals
}
Комментарии (0) RSS
Добавить комментарий