Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zna li neko Tcl/Tk?

[es] :: Skript jezici :: Zna li neko Tcl/Tk?

[ Pregleda: 1979 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Mr. Rejn
Deki Karamatijević
Sremčica

Član broj: 2514
Poruke: 515
194.247.222.*



+4 Profil

icon Zna li neko Tcl/Tk?12.10.2004. u 13:26 - pre 236 meseci
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.).
Ag + Na -> Xe
 
Odgovor na temu

chupcko
Negde
Beograd

Član broj: 5560
Poruke: 1141

Sajt: www.google.com


+63 Profil

icon Re: Zna li neko Tcl/Tk?12.10.2004. u 14:52 - pre 236 meseci
Probaj ovako :), e a kako ide u visual-u ... e ne znam.

Code:

set rez " "
label .l1 -text $rez

proc saberi {num1 num2} {
  set rez [expr $num1 + $num2]
  .l1 config -text $rez
}

button .b2 -text radi -command { eval saberi 3 4 }
pack .l1 .b2

CHUPCKO
 
Odgovor na temu

Mr. Rejn
Deki Karamatijević
Sremčica

Član broj: 2514
Poruke: 515
212.200.108.*



+4 Profil

icon Re: Zna li neko Tcl/Tk?13.10.2004. u 20:07 - pre 236 meseci
Nasao sam, ako nekog zanima:
U Visual Tcl, gde su Widget bindings (Alt-B), staviti za
dogadjaj ButtonRelease-1:

Code:

set rez [saberi $num1 $num2]


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

Ag + Na -> Xe
 
Odgovor na temu

Mitrović Srđan
bloodzero
Freelance
Majur //: Šabac

Član broj: 10261
Poruke: 2800
212.62.46.*

Sajt: freeshell-reviews.com


+4 Profil

icon Re: Zna li neko Tcl/Tk?21.10.2004. u 15:28 - pre 236 meseci
mene zanimaju tvoja iskustva sa tcl/tk.posto mislim da je mnogo prakticnije uciti perl koji je mnogo svestraniji i bolji uostalom ima toliko modula za njega preko kojih se moze napraviti svasta (socket,tk/gtk)....da ne pominjem regularne izraze ...tj da se vratim ;) kako se tebi cini tcl i da li je vredan ucenja i tvog vremena .....posto sam se nosio mislju da ucim tcl ali kad sam video perl ....o jbg
Tony Melendez:
http://video.google.com/videoplay?docid=-
3819862628517136815&q=tony+melendez

NIKADA NE UZIMATI HOSTING NA GO DADDY!


 
Odgovor na temu

[es] :: Skript jezici :: Zna li neko Tcl/Tk?

[ Pregleda: 1979 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.