radim u Visual Tcl-u i ako npr. hocu da napravim neki program za obradu unosa
(preko entry-a na formularu) dodam dugme i vezem ga za dogadjaj sa .bind (npr Button-1,tj. klik misa),
a predhodno sam napravio proceduru koja se izvrsava na prijem signala sa tog mehanizma
(u ovom slucaju, dugmeta),npr:
Code:
proc saberi {num1 num2} {
set rez [expr $num1 + $num2]
return $rez
}
proc saberi {num1 num2} {
set rez [expr $num1 + $num2]
return $rez
}
mada ovo return i nije potrebno.Promenljive $num1 i $num2 su naravno vezane za polja za
unos (entry),a promenljiva $rez je vezana za oznaku (label),kao textvar.Znaci,program
treba da jednostavno sabere dva cela broja koji su uneti u polja za unos i da rezultat prikaze
na label-u,ALI TO SE NE DOGADJA,ali se ne prijavljuje ni greska.
Kako promenljivu u kojoj je rezultat ($rez) uciniti dostupnom labelu da bi ga prikazao?
Procedure bez argumenata se izvrsavaju bez problema (npr. prikazivanje prozora sa porukom,
tk_messagebox ili puts stdout "nesto.." itd.).
Ag + Na -> Xe