Zna li neko Tcl/Tk?

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:



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.).

Potpis

^{Ag + Na -> Xe}

Probaj ovako :), e a kako ide u visual-u ... e ne znam.

Potpis

CHUPCKO

Nasao sam, ako nekog zanima:
U Visual Tcl, gde su Widget bindings (Alt-B), staviti za
dogadjaj ButtonRelease-1:



gde je $rez promenljiva oznake label (umesto da se
stavi samo: saberi $num1 $num2, kao sto sam ja uradio :)

Potpis

^{Ag + Na -> Xe}