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

> 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 5963×

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ů

8.5.2016 17:19 /Redakce Linuxsoft.cz
PR: Dne 26.5.2016 proběhne v Praze konference Cloud computing v praxi. Tématy bude např. nejnovější trendy v oblasti cloudu a cloudových řešení, cloudové služby, infrastruktura cloudu, efektivní využití cloudu, možné nástrahy cloudů a jak se jim vyhnout
Přidat komentář

21.4.2016 8:01 /František Kučera
Spolek OpenAlt zve na 127. distribuovaný sraz příznivců svobodného softwaru a otevřených technologií (hardware, 3D tisk, SDR, DIY, makers…), který se bude konat ve čtvrtek 28. dubna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

2.3.2016 22:41 /Ondřej Čečák
Letošní ročník konference InstallFest již tento víkend!
Přidat komentář

14.2.2016 16:39 /Redakce Linuxsoft.cz
O víkendu 5. a 6. března 2016 proběhne na pražském Strahově 8. ročník tradiční konference InstallFest. Celkem za dva dny uvidíte ​30 přednášek​ a ​6 workshopů.
Přidat komentář

5.2.2016 17:38 /Petr Ježek
Utilitka z XFce "xfce4-power-manager" nejen umožňuje nastavení lhůty pro uspání či hybernaci, ale i zapínání a vypínání prezentačního módu pro nerušené sledování videí. Stačí ji nastavit v každém vybavenějším panelu a v jakémkoli nontiled WM/DE.
Přidat komentář

10.1.2016 11:32 /Pavel `Goldenfish' Kysilka
LinuxMarket změnil provozovatele. Nově jej provozuje Marek Pszczolka. Více info a detaily #1 a #2.
Přidat komentář

29.12.2015 11:38 /Ondřej Čečák
Ještě posledních pár dní můžete přidávat příspěvky nebo nápady na Install Fest 2016, který se bude konat 5. a 6. března 2016.
Přidat komentář

8.12.2015 11:36 /Petr Ježek
Logické se stává realitou. LibreOffice a Thunderbird se mají dle článku na Redditu stát protiváhou MS řešení (MS Office a Outlook).
Přidat komentář

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

> Poslední diskuze

7.5.2016 14:58 / Teodor Komárek
Soubory

20.4.2016 0:07 / Jakub Cleing
Sázkový panel PHP FUSION

9.4.2016 9:43 / jiwopene@gmail.com
Re: problém s dpkg a nemožností instalovat

9.4.2016 9:41 / jiwopene@gmail.com
Re: změna velikosti disk.oddílu

9.4.2016 9:40 / jiwopene@gmail.com
Re: Přenesení starého OS Win7 na virtuál v Debianu

Více ...

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