Názory k článku Programovací jazyk TCL (10)

By me docela zajimalo, jestli ty priklady jsou provozovany ve Widlich nebo jestli je jenom nastavena takto dekorace v manazerovi.
Ale jinak serial i clanek dobry. Dost dobry!

Dekuji za MOC pekny serial. Rozhodne mi pomohl - uz jsem si vyrobil dve GUI hracky (ale pro me dost uzitecne) pomoci Tcl/Tk a v serialu bylo uz dost veci, ktere mi usetrily myslim docela hodne hledani a zkouseni.

Jen bych se zeptal - cituji: "(během stisknutého tlačítka myši není vykreslovaný objekt vidět, i když i tuto funkcionalitu je možné zařídit)".

Slo by tedy jeste ukazat nejaky uplne maly priklad, jak tu funkcionalitu co nejjednoduseji zaridit?

Dekuji.

Děkuji moc za příklad - to vypadá ještě o dost jednodušeji, než jsem si myslel (pořád si nějak nemůžu zvyknout, že canvas v Tk umí mnohem víc věcí než bývá obvyklé jinde). Ale funguje to pěkně.

Předpokládám, že ButtonPress atd. psaný jen malými písmeny je vylepšení nějaké novější verze? Verze 8.4.4 proti tvaru "buttonpress" trochu protestovala ;-)

V prvom rade diky za serial. Ucim sa podla neho Tcl/Tk.
A toto su moje prve riadky v nom:

#!/usr/bin/wish

# Jednoduchý grafický editor založený na widgetu canvas
# výsledná verze editoru

# globální promìnné
set rezim usecka
set x1 0
set y1 0
set act_obj 0

# seznam tlaèítek, kterými se editor bude ovládat
set tlacitka {usecka kruznice elipsa ctverec obdelnik vymazat konec}
array set fncs {
usecka line
kruznice oval
elipsa oval
ctverec rect
obdelnik rect
}
set nazvy {Úseèka Kružnice Elipsa Ètverec Obdélník "Vymazat entitu" Konec}

# kontejner pro vkládání dalších widgetù
frame .editor
frame .editor.tlacitka

# plátno, na které se bude kreslit
canvas .editor.platno -width 512 -height 384

# vytvoøení tlaèítek, kterými se mìní režim editoru
foreach entita $tlacitka nazev $nazvy {
button .editor.tlacitka.$entita -text $nazev -command " nastavRezim $entita "
}

# vložení všech widgetù do okna aplikace
pack .editor
pack .editor.platno
pack .editor.tlacitka -side top -fill both -expand true

# vložení všech tlaèítek na kontejner
foreach entita $tlacitka {
pack .editor.tlacitka.$entita -side left -fill both -expand true
}

# navázání událostí od myši
bind .editor.platno <ButtonPress-1> { start %x %y }
bind .editor.platno <ButtonRelease-1> { stop %x %y }
bind .editor.platno <Motion> { move %x %y }

# procedura pro nastavení režimu editoru
proc nastavRezim {rez} {
global rezim
set rezim $rez
if { [string compare $rezim konec] == 0 } {
exit
}
}

# procedura, která je zavolána v pøípadì,
# že uživatel stiskne levé tlaèítko myši
proc start { x y } {
# zapamatování polohy kurzoru myši
global x1 y1 rezim fncs act_obj
set x1 $x
set y1 $y
# v režimu mazání se vymaže nejbližší entita
# ke kurzoru myši
if { [string compare $rezim vymazat] == 0 } {
.editor.platno delete [.editor.platno find closest $x $y]
}
if {[info exists fncs($rezim)]} {set act_obj [.editor.platno create $fncs($rezim) $x1 $y1 $x $y]}
}

# procedura, která je zavolána v pøípadì,
# že uživatelpohne myší
proc move { x y } {
global x1 y1 rezim fncs act_obj

# rozdíly mezi starou a novou polohou
# kurzoru myši
if {[string compare $rezim kruznice] == 0 || [string compare $rezim ctverec] == 0} {
set dx [expr abs($x1-$x)]
set dy [expr abs($y1-$y)]
if { $dx>$dy } {set dy $dx}
set x [expr $x1+$dy]
set y [expr $y1+$dy]
}

# vykreslení jednotlivých entit
if {[info exists fncs($rezim)]} {if {$act_obj != 0} {.editor.platno coords $act_obj $x1 $y1 $x $y} }
}
# procedura, která je zavolána v pøípadì,
# že uživatel pustí levé tlaèítko myši
proc stop { x y } {
global act_obj
set act_obj 0
}

Ještě mě napadlo - sice je to trochu off-topic, ale málokdy se zmiňuje, že třeba i takový velký a složitý program jako je ANSYS (http://www.ansys.com) má GUI napsané pomocí Tcl/Tk.

Dalsim "velkym" systemom pouzivajucim Tcl/Tk je GIS GRASS, aj ked v tomto pripade sa je mozne zaobist bez neho -- vystaci si aj s cisto textovym vstupom pomocou terminalu a ovladanie pomocou GUI je volitelne -- vid. http://grass.itc.it/grass61/manuals/html61_user/grass6.html