Dobry den prajem
prepacte ze otravujem
potreboval by som jednu radu
mam v tcl takuto cast skriptu
set i 0
foreach row $rows {
checkbutton .row$i -text $row -variable $state -command {puts $state}
grid .row$i -column 1 -sticky w
set i [expr $i+1]
}
potreboval by som aby sa mi pre jednotlivy checkbutton vzdy nastavil iny
nazov premennej
to je to -variable vsak?
ak zadam
-variable row$i
tak mi to nastavy nazov tej premennej (row0 row1 row2 atd.)
ale ako tu premennu vyvolam?
-command {puts $row$i} mi samozrejme nefunguje (ak dam -command {puts
$row0} tak to ide v pohode, ale ako zadat aby sa mi to cislo za row
stale zmenilo?)
neviem sa s tym nejako dalej pohnut
proměnnou row$i lze zobrazit v pomocné proceduře "vypis"
package require Tk
proc vypis { i } {
global row$i
puts "row$i = [set row$i]"
}
set rows { a b c }
set i 0
foreach row $rows {
checkbutton .row$i -text $row -variable row$i -command [list vypis $i]
grid .row$i -column 1 -sticky w
incr i
}