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

> Perl (115) - Tk - umísťování widgetů

Perl Vhodné rozmístění prvků v okně je důležitým měřítkem každé aplikace.

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

Na rozmístění prvků v aplikaci závisí významně její přehlednost a vzhled. Proto je vhodné znát způsoby, kterými lze ovlivňovat umísťování prvků v okně. My jsme zde minule používali výhradně metodu pack, která si nějak sama poradila. U většiny aplikací však je potřeba, aby byly prvky rozložené tak, jak chce programátor.

Představíme si zde dvě metody rozmísťování prvků dostupných v knihovně Tk - skládání prvků do vyhrazeného místa pomocí pack rozebereme podrobněji a také se podíváme na umísťování do mřížky pomocí grid.

Uveďme na úvod, že přímí potomci jednoho rodiče musí používat vždy stejný způsob umísťování.

Skládání prvků pomocí pack

Umísťujeme-li prvek pomocí metody pack volané bez parametrů, znamená to, že se prvek má umístit na nějaké volné místo v oblasti rodičovského prvku. Pořadí skládání je stejné jako pořadí volání pack.

Metodě pack můžeme poslat argument side => "strana", kde strana nabývá hodnot left, right, top, bottom. Podívejme dva konkrétní příklady.

  • Voláme-li pack(-side => "left"), vezme se šířka umísťovaného prvku a zabere se levá část oblasti rodičovského prvku této šířky. Prvek pak bude umístěn uprostřed takto vymezeného prostoru.
  • Voláme-li pack(-side => "bottom"), vezme se výška umísťovaného prvku a zabere se dolní část oblasti rodičovského prvku této výšky. Prvek pak bude umístěn uprostřed takto vymezeného prostoru.

Také existuje skupina parametrů, která určuje, jak se má vymezený prostor vyplnit. Lze specifikovat parametr -fill, který určuje, zda se má prvek roztáhnout do celého vymezeného prostoru (hodnota both), do jeho části (pro šířku volíme hodnotu x, pro výšku y), či zda se roztahovat nemá (none). Parametr -anchor ukotví prvek do jedné ze světových stran (n, w, e, s, ne, nw, se, sw) nebo do středu (center). Pomocí -ipadx a -ipady lze určit tloušťku okolí, které má zůstat vždy prázdné.

Ještě existuje jeden zajímavý parametr metody pack, kterým je -expand. Ten řídí to, jakým způsobem si rozdělí prostor potomci aktuálního prvku. Pokud nastavíme -expand na hodnotu y, pak každý potomek dostane přidělen stejně velký prostor jako ostatní se stejně nastaveným parametrem -side. Místo -expand je však často výhodnější použít umísťování do mřížky.

Ilustrujme si nyní, na obrázcích, jak vlastně metoda pack pracuje. Rozdělíme okno na tři pruhy pomocí rámců. Rámec vytvoříme pomocí prvku Frame. Těmto rámům nastavíme odlišné vlastnosti a budeme sledovat jejich chování. Do každého rámu vložíme nějaký text s pozadím, abychom viděli, jakou oblast pokrývá.

Nejprve demonstrujme, jak funguje atribut -fill. Ten dokáže popisek roztáhnout tak, že zabere veškeré volné místo. Vezměme tedy prostřední rám a přidejme mu parametr -fill=>"x".

use Tk;
use strict;

my $m = MainWindow->new;
$m->geometry("600x150");


my $ram1 = $m->Frame(-background => "green")->pack(-side => "top");
my $ram2 = $m->Frame(-background => "blue")->pack(-side => "top", -fill=>"x");
my $ram3 = $m->Frame(-background => "yellow")->pack(-side => "top");

$ram1->Label(
  -text => "Toto je text uprostred horniho ramu. Tento text se neroztahl po\n
    jeho cele sirce, protoze jsme nezadali parametr -fill.", 
  -background => "black",
  -foreground => "lightgreen"
)->pack(-side => "top");

$ram2->Label(
  -text => "Toto je text uprostred druheho horniho ramu, ktery se roztahl po cele sirce\n
    To pozname podle modreho pozadi. Navic jsme ted pridali parametr\n
    -expand, takze kdyz menime velikost okna, meni se tento ram, nikoliv zbyle misto.", 
  -background => "black",
  -foreground => "lightgreen"
)->pack(-side => "top");

$ram3->Label(
  -text => "Tady je dalsi ramecek", 
  -background => "black",
  -foreground => "lightgreen"
)->pack(-side => "top");

MainLoop;
Na obrázku můžeme zaregistrovat, že pozadí v druhém obrázku je skutečně modré.

Použití pack, nastavení atributu -fill

Přidejme druhému rámu ještě parametr -expand=>"y". Nyní můžeme vidět, že místo volného místa při změně rozměrů okna měníme velikost tohoto rámu.

my $ram1 = $m->Frame(-background => "green")->pack(-side => "top");
my $ram2 = $m->Frame(-background => "blue")->pack(-side => "top", -fill=>"x", -expand=>"y");
my $ram3 = $m->Frame(-background => "yellow")->pack(-side => "top");

Použití pack, nastavení atributů -fill a -expand

Abychom to dokázali, potřebovali bychom, aby bylo vidět celé pozadí. Zkusme tedy roztáhnutí oběma směry.

my $ram1 = $m->Frame(-background => "green")->pack(-side => "top");
my $ram2 = $m->Frame(-background => "blue")->pack(-side => "top", -fill=>"both", -expand=>"y");
my $ram3 = $m->Frame(-background => "yellow")->pack(-side => "top");

Nyní vidíme, že pohybujeme prostředním rámem skutečně ve všech směrech.

Použití pack, jiné nastavení atributů -fill a -expand

Umísťování do mřížky

Umísťujeme-li prvky do mřížky, znamená to, že se vytvoří něco jako tabulka, do jejíchž buněk můžeme jednotlivé ukládat. Každá buňka a tedy přeneseně i každý prvek tak má v této tabulce své souřadnice. Protože prvky bývají různě velké, lze buňky navzájem spojovat.

Metoda grid přijímá argumenty -row a -column, kterými jsou určeny souřadnice prvku v tabulce. Středem tohoto souřadnicového systému je levá horní buňka s oběma parametry nulovými. Dále lze uvést parametry -rowspan a -columnspan pro spojení s následujícími řádky a sloupci. Stejně jako u pack lze uvést parametry -ipadx a -ipady. Parametr sticky uchycuje obsah buňky na nějakou nebo nějaké světové strany (lze uvést například hodnotu ne pro uchycení vpravo a nahoře, nsew pro roztažení prvku přes celou buňku nebo center pro umístění do středu).

Příklad - kalkulačka

Pokusme se nyní pomocí mřížky vytvořit jednoduchou klávesnici kalkulačky.

$k1=$m->Button(-text=>"1")->grid(-row =>2, -column =>0);
$k2=$m->Button(-text=>"2")->grid(-row =>2, -column =>1);
$k3=$m->Button(-text=>"3")->grid(-row =>2, -column =>2);
$k4=$m->Button(-text=>"4")->grid(-row =>1, -column =>0);
$k5=$m->Button(-text=>"5")->grid(-row =>1, -column =>1);
$k6=$m->Button(-text=>"6")->grid(-row =>1, -column =>2);
$k7=$m->Button(-text=>"7")->grid(-row =>0, -column =>0);
$k8=$m->Button(-text=>"8")->grid(-row =>0, -column =>1);
$k9=$m->Button(-text=>"9")->grid(-row =>0, -column =>2);
$k0=$m->Button(-text=>"0")->grid(-row =>3, -column =>0, -columnspan =>2, -sticky =>"we");
$rovnitko=$m->Button(-text=>"=")->grid(-row =>3, -column =>2);

Výsledek je následující.

Ukázka použití mřížky

Ačkoliv ještě neznáme všechny potřebné věci, pro ukázku zkusíme tuto kalkulačku zprovoznit. Přidáme tedy tlačítka s operacemi a nějaký řádek, kde se bude objevovat aktuální výpočet čekající na zpracování.

Dále je třeba pro každé tlačítko vytvořit akci, která do řádku přidá požadovaný symbol. Tlačítko = bude mít za úkol výpočet vyhodnotit a ukázat výsledek.K vyhodnocení použijeme nebezpečnou funkci eval.

#!/usr/bin/perl -T
use Tk;

$m = MainWindow->new();
$entry=$m->Entry()->grid(-row =>0, -column =>0, -columnspan =>4, -sticky =>"we");
$k1=$m->Button(-text=>"1", -command=>sub{$entry->insert("end", "1")})->grid(-row =>4, -column =>0);
$k2=$m->Button(-text=>"2", -command=>sub{$entry->insert("end", "2")})->grid(-row =>4, -column =>1);
$k3=$m->Button(-text=>"3", -command=>sub{$entry->insert("end", "3")})->grid(-row =>4, -column =>2);
$k4=$m->Button(-text=>"4", -command=>sub{$entry->insert("end", "4")})->grid(-row =>3, -column =>0);
$k5=$m->Button(-text=>"5", -command=>sub{$entry->insert("end", "5")})->grid(-row =>3, -column =>1);
$k6=$m->Button(-text=>"6", -command=>sub{$entry->insert("end", "6")})->grid(-row =>3, -column =>2);
$k7=$m->Button(-text=>"7", -command=>sub{$entry->insert("end", "7")})->grid(-row =>2, -column =>0);
$k8=$m->Button(-text=>"8", -command=>sub{$entry->insert("end", "8")})->grid(-row =>2, -column =>1);
$k9=$m->Button(-text=>"9", -command=>sub{$entry->insert("end", "9")})->grid(-row =>2, -column =>2);
$k0=$m->Button(-text=>"0", -command=>sub{$entry->insert("end", "0")})->grid(-row =>5, -column =>0,
  -columnspan =>2, -sticky =>"we");
$te=$m->Button(-text=>".", -command=>sub{$entry->insert("end", ".")})->grid(-row =>5, -column =>2);
$pl=$m->Button(-text=>"+", -command=>sub{$entry->insert("end", "+")})->grid(-row =>2, -column =>3,
  -rowspan =>2, -sticky =>"ns");
$mi=$m->Button(-text=>"-", -command=>sub{$entry->insert("end", "-")})->grid(-row =>1, -column =>3);
$kr=$m->Button(-text=>"*", -command=>sub{$entry->insert("end", "*")})->grid(-row =>1, -column =>2);
$de=$m->Button(-text=>"/", -command=>sub{$entry->insert("end", "/")})->grid(-row =>1, -column =>1);

$ro=$m->Button(-text=>"=", -command=>sub{$vysledek=eval($entry->Get()); $entry->delete(0, "end");
  $entry->insert("end", $vysledek)})->grid(-row =>4, -column =>3, -rowspan =>2, -sticky =>"ns");
$re=$m->Button(-text=>"X", -command=>sub{$entry->delete(0, "end");})->grid(-row =>1, -column =>0);

MainLoop();

Nyní zkusíme pro kalkulačku naklikat nějaký úkol.

Po zadání *** po výpočtu

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ů

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

18.6.2018 0:43 /František Kučera
Červnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 21. 6. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: F-Droid, aneb svobodný software do vašeho mobilu. Kromě toho budou k vidění i vývojové desky HiFive1 se svobodným/otevřeným čipem RISC-V.
Přidat komentář

23.5.2018 20:55 /Ondřej Čečák
Od pátku 25.5. proběhne na Fakultě informačních technologií ČVUT v Praze openSUSE Conference. Můžete se těšit na spostu zajímavých přednášek, workshopů a také na Release Party nového openSUSE leap 15.0. V na stejném místě proběhne v sobotu 26.5. i seminář o bezpečnosti CryptoFest.
Přidat komentář

20.5.2018 17:45 /Redakce Linuxsoft.cz
Ve čtvrtek 31. května 2018 připravuje webový magazín BusinessIT ve spolupráci s Best Online Média s.r.o. pátý ročník odborné konference Firemní informační systémy 2018. Akce proběhne v kongresovém centru Vavruška (palác Charitas), Karlovo náměstí 5, Praha 2 (u metra Karlovo náměstí) od 9:00 hod. dopoledne do cca 15 hod. odpoledne. Konference je zaměřena na efektivní využití firemních informačních systémů a na to, jak plně využít jejich potenciál. Podrobnější informace na webových stránkách konfrence.
Přidat komentář

14.5.2018 7:28 /František Kučera
Květnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 17. 5. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát na téma: Audio – zvuk v GNU/Linuxu.
Přidat komentář

7.5.2018 16:20 /František Kučera
Na stránkách spolku OpenAlt vyšla fotoreportáž Pražské srazy 2017 dokumentující srazy za uplynulý rok. Květnový pražský sraz na téma audio se bude konat 17. 5. 2018 (místo a čas ještě upřesníme).
Přidat komentář

17.4.2018 0:46 /František Kučera
Dubnový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 4. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tématem tohoto srazu bude OpenStreetMap (OSM) aneb svobodné mapy.
Přidat komentář

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

> Poslední diskuze

20.2.2018 18:48 / Ivan Majer
portal

20.2.2018 15:57 / Jan Havel
Jak využíváte služby cloudu v podnikání?

16.1.2018 1:08 / Ivan Pittner
verejna ip od o2 ubuntu

15.1.2018 17:26 / Mira Harvalik
Re: Jak udělat HTML/Javascript swiping gallery do mobilu?

30.12.2017 20:16 / Michal Knoll
odmocnina

Více ...

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