LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (116) - Tk - základní widgety

Perl Představíme si několik nejdůležitějších widgetů z knihovny Tk, které můžeme využívat ve svých aplikacích.

13.9.2010 00:00 | Jiří Václavík | Články autora | přečteno 7445×

Představme si nyní několik nejčastěji užívaných widgetů a jejich vlastnosti.

Obecné vlastnosti

Uveďme nejprve některé vlastnosti, které lze nastavit u většiny prvků.

NázevVýznam
-widthšířka widgetu v pixelech
-heightvýška widgetu v pixelech
-background (-bg)barva pozadí
-foreground (-bg)barva popředí
-reliefokraj; k dispozici raised, sunken, ridge, flat, groove
-fontstyl písma
-anchorumístění obsahu - zadává se center nebo n, e, s, w podle světových stran; dále je možné zadávat ne, se, nw, sw
-textzobrazený text
-image, -bitmapobrázek, který se má zobrazit ve widgetu

Barvy zapisujeme buď symbolicky nebo kódem. Na většině systémů jsou přednastaveny desítky až stovky symbolických názvů barev. Jejich seznam je obvykle v souboru /usr/share/X11/rgb.txt, kam můžete pro představu nahlédnout. Zápis kódem je standardní označení tvaru #RRGGBB, případně i #RGB, #RRRGGGBBB či #RRRRGGGGBBBB.

Jako formát stylu písma můžeme použít jeden ze zápisů výstupu příkazu

$ xlsfonts

Zde je konkrétní příklad.

-adobe-times-medium-r-normal--8-80-75-75-p-44-iso8859-2

Tento řetězec je ve formátu -výrobce-rodina-tloušťka-šikmost-těsnost-styl-pixelů-rozlišení x-rozlišení y-šířka-kódování. Pokud nechceme vyplňovat všechny vlastnosti, lze použít zastupné znaky * a ?.

U všech prvků také můžeme použít následující metody.

NázevVýznam
configure("vlastnost"=>"nová hodnota")změní vlastnosti widgetu
cget("vlastnost")vrátí aktuální hodnotu zvolené vlastnosti

Popis některých widgetů

Tlačítko

Tlačítko patří mezi nejpoužívanější prvky a již jsme si ho představili. Uveďme ještě, že lze použít metodu flash pro bliknutí a invoke pro vyvolání metody přiřazené vlastnosti -command.

Zaškrtávací políčko

Dalším prvkem je zaškrtávací políčko (Checkbutton). Funguje tak, že do vlastnosti -variable uložíme odkaz na proměnnou. Je-li tlačítko zaškrtnuto, hodnota této proměnné se nastaví na pravdivou. Je-li naopak tlačítko nezaškrtnuto, hodnota je nepravdivá.

Uveďme zde vlastnosti pro Checkbutton.

NázevVýznam
-command=>\&podprogrampři zaškrtnutí provede podprogram, jehož odkaz je atributu přiřazen (toto se provede až po aktualizaci proměnné vlivem zaškrtnutí)
-onvalue, -offvaluepřepíná tlačítko; možné hodnoty jsou implicitně 0, 1, lze nastavit pomocí -variable
-indicatoronnastavuje, zda se má zobrazovat indikátor

Ukažme si jednoduchý příklad vykreslení zaškrtávacích tlačítek.

$m = MainWindow->new();
$t1=$m->Checkbutton(-text=>"volba 1", -variable =>\$v1)->pack();
$t2=$m->Checkbutton(-text=>"volba 2", -variable =>\$v2)->pack();
$t3=$m->Checkbutton(-text=>"volba 3", -variable =>\$v3)->pack();
$n=2;
$t3->configure(-onvalue=>2, -variable =>\$n);
MainLoop();

Tímto vznikne následující okno.

Použití zaškrtávacích políček

Přepínací políčko

Podobné jako předchozí tlačítko Chceckbutton je Radiobutton. Liší se tím, že v jeden okamžik může být zaškrtnuta maximálně jedna položka. Jsou typické tím, že se obvykle používá několik tlačítek Radiobutton najednou a uživatel si pomocí nich vybírá jednu možnost.

Parametr -value určuje hodnotu, která je uložena do proměnné v parametru -variable, je-li aktuální tlačítko aktivní. Nastavíme-li u několika tlačítek stejnou hodnotu do -variable, pak se automaticky synchronizují (a uživatel může vybrat vždy nejvýše jednu z těchto voleb).

Uveďme opět jednoduchý příklad.

$m = MainWindow->new();
$m->Label(-text=>"Souhlasis?")->pack();
$t1=$m->Radiobutton(-text=>"Ano", -variable =>\$v, -value=>1)->pack();
$t2=$m->Radiobutton(-text=>"Ne", -variable =>\$v, -value=>0)->pack();
MainLoop();

Po spuštění se zobrazí následující okno.

Použití přepínacích políček

Škála

Škála (Scale) je stupnice, kterou můžeme ovládat obsah nějaké proměnné. Funguje tak, že pohybem posuvníku na škále měníme současně hodnotu nějaké svázané proměnné.

Podívejme se na vlastnosti škály.

NázevVýznam
-variable =>\$promennaurčuje, která proměnná bude se škálou svázána; s každým posuvem škály se bude její hodnota aktualizovat
-from, -tonastavení rozsahu škály
-resolutionspecifikuje velikost skoku, implicitně 1
-command=>\&podprogramodkaz na podprogram, který se má vykonat po každé změně hodnoty na škále
-tickintervalvzdálenost popisků
-label, -fontpopisek

Taktéž lze využít metodu set pro nastavení hodnoty na škále.

Zde je jednoduchý příklad, který ilustruje možnosti škály. Po každé změně hodnoty na škále aktualizujeme Label, který nám bude ukazovat současnou hodnotu.

$m = MainWindow->new();
$m->Label(-text=>"Zvol uhel.")->pack();
$skala=$m->Scale(
  -variable =>\$hodnota,
  -orient=>"horizontal",
  -from=>0,
  -to=>90,
  -resolution=>0.5,
  -label=>"stupne",
  -command=>\&zmena_uhlu
)->pack();
$status = $m->Label(-text=>"Aktualni hodnota je $hodnota")->pack();
MainLoop();

sub zmena_uhlu {
    $status->configure(-text=>"Aktualni hodnota je $hodnota.")
}

Po spuštění uvidíme následující okno.

Škála

Jednořádkové textové pole

Jednořádkové textové pole (Entry) je základním prvkem pro textový vstup. Umožňuje uživateli napsat krátký text.

Lze využít vlastnost -show pro zadávání hesel (místo textu se zobrazují hvězdičky).

U textového pole lze využít několik metod.

NázevVýznam
getvrátí řetězec, který je aktuálně v poli
insert(pozice, řetězec)na danou pozici vloží daný řetězec
selectionFrom, selectionTo, selection, selectionClear, selectionPresentnastavuje resp. vrací výbraný text

Zde je opět jednoduchý příklad s ukázkou toho, jak získat text z formuláře.

$m = MainWindow->new();
$m->Label(-text=>"Napis neco:")->pack();
$entry=$m->Entry()->pack();
$m->Button(-text => "OK", -command=>\&over)->pack();
$status=$m->Label(-text=>"Status: pristup zakazan")->pack();
MainLoop();

sub over{
  $status->configure(-text=>($entry->Get() eq "neco" ? "Status: heslo je
    BULDOK" : "Status: pristup zakazan"))
}

Textové pole

Jednořádkové textové pole s popiskem

V různých formulářích se často používá textové pole s popiskem. Prvek LabEntry v sobě kombinuje prvky Label a Entry.

$m->->LabEntry(
    -label => "Vloz text:",
    -labelPack => [ -side => "left" ],
    -textvariable => \$text
)->pack();

Obrázky

V Tk je každý obrázek samostatný objekt. Máme-li tedý nějaký soubor s obrázkem, nejprve vytvoříme objekt. To lze udělat jedním z následujících způsobů.

$obrazek=$m->Bitmap(-file=>"obr.xbm");
$obrazek=$m->Pixmap(-file=>"obr.xpm");
$obrazek=$m->Photo(-file=>"obr.gif");

Nyní můžeme obrázek přiřazovat k atributům různých prvků (obvykle s názvem -image či -bitmap). Příklad uvidíme později.

Zpráva ve zvláštním okně

Nyní bude úkolem zobrazit po kliknutí na tlačítko nějakou zprávu. Máme k dispozici dva druhy takových zpráv - buď oznámení (zpráva typu ok) nebo zjišťovací otázku (zpráva typu yesno). Zprávu zobrazíme pomocí metody messageBox volané nad hlavním oknem. Musíme určit typ zprávy a obsah zprávy. Dále můžeme zobrazit ve zprávě ikonu (například otazník v případě otázky).

my $t1 = $m->Button(-text => "Toto tlacitko zobrazi obycejnou zpravu.",
  -command => \&t1)->pack();
my $t2 = $m->Button(-text => "Toto tlacitko se te na neco zepta.",
  -command => \&t2)->pack();

sub t1 {
  $m->messageBox(-message => "Zobrazuji obycejnou zpravu.", -type => "ok");
}

sub t2 {
  my $dotaz = $m->messageBox(-message => "Chces opravdu ukoncit program?",
    -type => "yesno", -icon => "question");

  $m->messageBox(-message => "Sbohem", -type => "ok") and exit if ($dotaz eq "Yes");
}

Ve výsledku uvidíme po kliknutí na každé tlačítko nějakou zprávu.

Formulář *** po kliknutí na 1. tlačítko *** po kliknutí na 2. tlačítko

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

15.5.2017 23:50 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

27.2.2017 22:12 /František Kučera
Pozvánka na 137. sraz OpenAlt – Praha: Tentokrát jsme si pro vás připravili neobvyklou akci. Ve středu 1.3. v 17:30 nás přivítá sdružení CZ.NIC ve svých prostorách v Milešovské ulici číslo 5 na Praze 3, kde si pro nás připravili krátkou prezentaci jejich činnosti. Následně navštívíme jejich datacentrum pod Žižkovskou věží. Provedou nás prostory, které jsou běžnému smrtelníkovi nedostupné!
Po ukončení prohlídky se všchni odebereme do hostince U vodoucha, Jagelonská 21, Praha 3 pochutnat si na některém z vybraných piv či dát si něco na zub. Rezervaci máme od 19:30, heslo je OpenAlt.
Ale pozor! Do prostor datového centra máme omezený přístup, dostane se tam pouze 10 lidí! Takže kdo přijde dříve, ten má přednost, a občanky s sebou! Kdo nebude chtít na prohlídku datového centra, může se pomalu přesunout do hostince U vodoucha a u nepřeberné nabídky piv počkat na ostatní.
Přidat komentář

18.1.2017 0:49 /František Kučera
Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

1.8.2017 7:32 / Cassidy
structural consultants

30.7.2017 11:12 / Jaromir Obr
Národní znaky

27.7.2017 12:24 / Jaromir Obr
Cteni/zapis

26.7.2017 21:12 / Jaromir Obr
Podminka

15.6.2017 9:34 / Ondřej Havlas
php,

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze