Názory k článku Programovací jazyk TCL (20)
-
Pavel TišnovskýZlatý podporovatelZkusime neco se sefredaktorem vymyslet, aby to PDFko uspokojilo vsechny strany :-) Ja osobne nejsem proti, taky si radeji ctu delsi veci z papiru nez z monitoru. -
Pavel TišnovskýZlatý podporovatelTcl prece musi byt v necem prvni :-) Ale diky za upozorneni, ma tam samozrejme byt IPv6...
-
Pavel TišnovskýZlatý podporovatelDobry den,
jeste posbiram informace o par dalsich rozsireni a potom bych o nich sepsal kratke povidani, takove navazani na tento serial. -
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 -
jarda (neregistrovaný)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
}
ČLÁNKY DO MAILU