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

Díky za upozornění na překlep, zkusím to (přes Petra) opravit. O úpravě pro MacOS nic nevím, ale je to divné, protože bez "execu" si nespustíte spoustu hotových aplikací - Tcl v mnoha případech funguje jako "lepidlo" pro množství skriptů a C-čkovských programů.

V sedmén dílu probereme další typy často používaných widgetů a v osmém se konečně vrhneme na grafiku - obrázky, bitmapy a samozřejmě také canvas.

Díky, už jsem to opravil.

ok, jak je vidět, tak telepatie začíná fungovat. To bude konec Internetu :-)

Ty přepínače mají výhodu právě v tom, že když se nenastaví, tak se dosadí implicitní hodnoty. Také se nemusí použít vůbec, protože se dá zadávat příkaz configure (samozřejmě po vytvoření widgetu). Tady si Tcl zvolilo trošku jiný přístup než většina jazyků, kde se píše něco ve smyslu:

Button bb=new Buttton();
bb.setText("hello");
bb.bind(levé tlačítko, handler);
atd.

Jasně, syntaxe je trošku matoucí (=jiná než v Algolské větvi jazyků), hlavně je zapotřebí si uvědomit, kde se mají provést substituce hned a kde až za běhu - viz předchozí části tohoto seriálu. Pravda však je, že to zpočátku dost mate, hlavně ve složitějších konstrukcích a při příkazu eval.

Nějaké alternativy? (už jsme tady probírali Python, ten je v něčem lepší)

Naprostou pravdu máte v tom, že se jedná hlavně o rozšíření obzorů. Až po alespoň letmém nastudování toho kterého jazyka si totiž můžete říct, jestli vám vyhovuje či ne.

Jestli dobře chápu, co chcete udělat, tak zkuste parametr (volbu) -sticky. Funguje to tak, že se pomocí jednoho či více znaků specifikuje, na kterou "světovou stranu" se má widget uchytit. K dispozici je n (north), e (east), w (west) a s (south). Co je však mnohem zajímavější: pokud zadáte například ew, tak se widget uchytí jak na západ, tak i na východ (stejně jako Češi :-) a díky tomu je natahován a stlačován podle velikosti mřížky. Doufám, že jsem správně pochopil, jaké chování widgetů máte na mysli, kdyžtak se ozvěte a zkusíme to vyřešit dál - grid je prakticky plnohodnotnou náhradou pack.

Programy psané v Tcl/Tk nemusí být založeny pouze na starých a "hnusných" Motifovských widgetech. Ostatně podívejte se sami na stránku http://aspn.activestate.com/ASPN/Tcl/Tk_Contest/ kde jsou ukázány screenshoty vítězných aplikací psaných právě pomocí toolkitu Tk.

Viem ze trochu predbieham ale nevie mi niekto poradit ako vyriesit tento problem:

Mam kod:

package require Itcl
package require Itk

itcl::class CustomListBox {
inherit itk::Widget
constructor {args} {

itk_component add scrollbarh {
scrollbar $itk_interior.scrollbarh -orient\
horizontal -command "$itk_interior.mainlist xview"
}

itk_component add scrollbarv {
scrollbar $itk_interior.scrollbarv\
-orient vertical -command "$itk_interior.mainlist yview"
}

itk_component add label1 {
label $itk_interior.label1 -text "File selected:" -justify left
}

itk_component add entry1 {
entry $itk_interior.entry1 -textvariable fileSelected
}

itk_component add mainlist {
listbox $itk_interior.mainlist -selectmode\
single -width 20 -height 10 -setgrid 1\
-xscroll "$itk_interior.scrollbarh set"\
-yscroll "$itk_interior.scrollbarv set"
}

grid $itk_component(mainlist) -row 0 -column 0\
-columnspan 2 -sticky "news"
grid $itk_component(scrollbarv) -row 0 -column 2 -sticky "ns"
grid $itk_component(scrollbarh) -row 1 -column 0\
-columnspan 2 -sticky "we"
grid $itk_component(label1) -row 2 -column 0
grid $itk_component(entry1) -row 3 -column 0 -columnspan 3 -sticky "we"
grid columnconfigure . 0 -weight 1
grid rowconfigure . 0 -weight 1

foreach file [glob *] {
$itk_component(mainlist) insert end $file
}


bind $itk_component(mainlist) <buttonrelease-1>\
{set fileSelected [%W get [%W curselection]]}

eval itk_initialize $args
}
}


CustomListBox .clb1
pack .clb1
CustomListBox .clb2
pack .clb2

Problem kodu je v tom, ze premenna fileSelected sa vytvori ako globalna a instancie objektu CustomListBox (.clb1, .clb2) odkazuju na tu istu premennu.
Ma to ten dosledok, ze zmena selektnutia itemu v .clb1 sa prejavi aj v .clb2
Nevie mi niekto poratit ako urobit aby sa premenna nevytvarala ako globalna
a ukazovala pre kazdu instanciu do inej pamate tak ako to je to v C++.