LINUXSOFT.cz Přeskoč levou lištu

ARCHIV



   

> Perl (120) - Wx - základní práce s widgety

Perl Druhým widget toolkitem v seriálu bude wxPerl. Tento díl má za úkol uvést čtenáře do problematiky a představit několik základních widgetů.

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

Wx (známé též jako "wxWidgets" nebo "Windows and X widgets"; do roku 2004 se hovořilo o wxWindows) je multiplatformní grafická knihovna základních widgetů, která je používána pro tvorbu grafických uživatelských rozhraní. Knihovna je původně napsána pro C++, avšak je možné ji využívat v řadě dalších jazyků. Perl je jedním z nich. Mutace knihovny pro Perl se nazývá wxPerl.

Představíme si pár základních ideí, které by měly být spíše motivací k dalšímu studiu, než-li obsáhlým návodem.

Nevýhodou wxPerl je, že neexistuje pořádná dokumentace a v podstatě ani žádné tutoriály apod. K dispozici je pouze dokumentace Wx pro jazyk C++, na kterou si lze po čase zvyknout.

Instalace

Modul stáhneme z archivu CPAN a nainstalujeme následujícím příkazem.

$ cpan Wx

wxWidgets a Perl

Jak tedy používat wxWidgets? Podívejme se na pár základních pravidel.

  • Každý program, který budeme ve wxPerl psát, bude obsahovat základní třídu. Tato třída bude dědit od Wx::App.
  • Jakmile spustíme program, je automaticky volána metoda s názvem OnInit. Zde budeme řídit všechny globální události. Budeme zde také vytvářet okna.
  • Každé okno má svoje ID, pomocí kterého se na něj budeme v budoucnu odkazovat.
  • Jak to tak u mnoha grafických uživatelských rozhraní bývá, musíme ručně vytvořené widgety zobrazit.

První program

Na základě těchto pravidel napíšeme základní schéma programu ve wxWidgets. Vytvořme tedy neprve základní třídu. Nazveme ji MojeAplikace.

use Wx;
package MojeAplikace;
use base "Wx::App";

Do ní umístíme jedinou metodu OnInit, která nám pouze vytvoří okno. Okno vytoříme pomocí metody Wx::Frame->new. Tato metoda přijímá několik parametrů.

  • ID rodičovského okna nebo undef
  • ID nebo -1 pro náhodné ID
  • titulek
  • pozice - anonymní pole tvaru [x, y]
  • velikost - anonymní pole tvaru [x, y]

Příkladem volání nechť je tento příkaz.

Wx::Frame->new(undef, -1, "Prvni aplikace", [-1000, -1000], [400, 300])

Pomocí metody Show také nesmíme zapomenout každé naše okno zobrazit. Uveďme nyní celou metodu OnInit.

sub OnInit {
    my $okno = Wx::Frame->new(undef, -1, "Prvni aplikace", [-1000, -1000], [400, 300]);
    $okno->Show(1);
}

Tímto je naše aplikace hotova. Zbývá ji použít v balíku main a vyzkoušet. Vytvoříme tedy objekt typu MojeAplikace a spustíme smyčku událostí metodou MainLoop.

package main;
my $app = MojeAplikace->new;
$app->MainLoop;

Když spustíme tento program, měli bychom vidět, že se zobrazilo prázdné okno.

Naše první wxPerl aplikace

Umístění tlačítka - upravování stávajících tříd

Náš předchozí příklad vylepšíme tak, aby se v okně objevilo tlačítko. To uděláme tak, že upravíme stávající třídu Wx::Frame (ta už je modulem předdefinovaná). Vytvoříme tedy novou třídu FrameSTlacitkem (ta bude dědit od zmíněné Wx::Frame), ve které napíšeme vlastní konstruktor.

package FrameSTlacitkem;
use base "Wx::Frame";
sub new {
    my $r = shift;
    my $self = $r->SUPER::new(@_);
    #zde vytvoříme tlačítko
}

Všimněme si, že jako parametr metody SUPER::new předáváme @_. To znamená, že FrameSTlacitkem bude přijímat stejné parametry jako původní Wx::Frame.

Tlačítko a další widgety se obvykle neumísťují přímo do okna typu Wx::Frame, ale do speciálního widgetu Wx::Panel. Proč, to teď není důležité. Vytvořme tedy nejprve nový panel.

my $panel = Wx::Panel->new($self,-1);

Dále vytvořme tlačítko. Umístíme ho do panelu. To znamená, že jako první argument vepíšeme právě vytvořený panel, který je reprezentován v proměnné $panel.

my $button = Wx::Button->new($panel, -1, "Zavrit", [10, 10], [-1, -1]);

Náš konstruktor tedy bude vypadat takto.

sub new {
    my $r = shift;
    my $self = $r->SUPER::new(@_);
    my $panel = Wx::Panel->new($self,-1,);
    my $button = Wx::Button->new($panel, -1, "Zavrit", [10, 10], [-1, -1]);
    return $self;
}

Nyní napíšeme základní třídu, která bude náš nový FrameSTlacitkem používat.

package MojeAplikace;
use base "Wx::App";
    
sub OnInit {
    my $frame = FrameSTlacitkem->new(undef, -1, "Prvni aplikace", [-1000, -1000], [400, 300]);
    $frame->Show(1);
}

A na závěr balík main, kde tuto třídu použijeme. Bude vypadat stejně jako posledně.

package main;
my $app = MojeAplikace->new;
$app->MainLoop;

Pokud spustíme program, měli bychom spatřit toto okno.

Aplikace s tlačítkem

Prostý text

Pro zobrazení prostého textu lze použít widget Wx::StaticText. Použití je následující.

Wx::StaticText->new($panel, -1, "Ahoj", [50, 50],);

Sešit

Ještě se pro lepší představu podívejme na jeden widget. Ukážeme si například třídu Wx::Notebook, což jsou klasické panely, které se používají kvůli přehlednosti nebo když na stránce není dost místa.

Vytvořme tedy v konstruktoru následující kód.

my $panel = Wx::Panel->new($self);
my $notebook = Wx::Notebook->new($panel, -1, [50, 50], [200, 200]);

Tím jsme vytvořili notebook. Přidáme do něj dva listy a do každého napíšeme nějaký text.

my $list1 = Wx::Panel->new($notebook);
Wx::StaticText->new($list1, -1, "Obsah listu 1", [20, 20]);
$notebook->AddPage($list1,"List 1"');

my $list2 = Wx::Panel->new($notebook);
Wx::StaticText->new($list2, -1, "Obsah listu 2", [20, 20]);
$notebook->AddPage($list2, "List 2");

Výsledek můžeme spatřit na screenshotu.

Sešit (widget Notebook)

Další widgety

Z předcházejícího by mělo být jasné, jak práce s widgety funguje. Proto již nebudeme představovat další, ale odkážeme na wxPerl wiki cheat sheet, kde je seznam widgetů a některé dokonce popsané.

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ů

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

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ář

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

> Poslední diskuze

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:04 / Jan Ober
Jaký kurz a software by jste doporučili pro začínajcího kodéra?

20.9.2018 10:00 / Jan Ober
Re: Gimp

Více ...

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