[ Mr. Rejn @ 12.10.2004. 13:26 ] @
Ako zna,imam problemcich: 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 } 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.). |