|
Menu główne
use PerlMongers::Warszawa;
use PerlMongers::Krakow;
NG_gRadio
|
| Perl Tk - część I |
|
przez wrares
(85 odsłon)
|
Rozpoczynamy cykl artykułów przybliżających możliwości programowania w ekosystemie Perla aplikacji GUI. Postanowiliśmy wybrać do tego bibliotekę Tk ze względu na
Cytat:
(1) Przenośna - możemy używać jej w systemie Linux, Win32, Mac
(2) Łatwa w instalacji - łatwo się ją instaluje, nie sprawia problemów instalacyjnych w różnych dystrybucjach ekosystemu Perla
(3) Łatwa do nauki - prostota tej biblioteki jest jedną z największych zalet i przemawia za jej wykorzystaniem
(4) Dobra dokumentacja - dostępne przykłady w internecie, dokumentacja do widgetów...
(5) Szybkie budowanie GUI - to co można było uprościć to uproszczono, bardzo dobre wsparcie dla ekosystemu Perla
(6) Rozwój - ciągły rozwój modułu i wnoszone poprawki w cyklu wydawniczym
(7) Grupa dyskusyjna - grupa dyskusyjna poświęcona tylko Tk w ekosystemie Perla, jest bardzo aktywna, dlatego warto ją często przeglądać...
Wszystkie powyższe punkty są odzwierciedleniem możliwości oferowanych przez Tk. Jej mechanizm GUI oferujący bogactwo dostępnych obiektów graficznych w postaci przycisków, pól, dialogów, chmurek itp. spełnia oczekiwania co do tworzenia typowych aplikacji okienkowych oraz wykorzystanie ich w swoich programach. Podobnie jak mechanizmy w Javie pozwala na pisanie dobrego oprogramowania, a co najważniejsze przenośnego. Przy zachowaniu pewnej dyscypliny, można nie zmieniać nawet jednej linijki kodu, a uruchamiać w różnych systemach operacyjnych. Niestety nie możemy polecić Wam dobrego programu do rysowania na formatkach elementów graficznych. Wszystko będziemy pisać w kodzie programu. Czy to jest dobra strategia czy zła, zostawiamy Wam do oceny. A więc zaczynamy.
Na początek musimy zaopatrzyć się w następujący zestaw programistyczny
Cytat:
(1) Środowisko ekosystemu Perla - Truskawkowy, firmy ActiveState, lub inny
(2) Zainstalować moduł Tk - ręczenie lub poprzez program cpan
(3) Dobry edytor - preferencje indywidualne
(4) Chęci do poznawania nowych dziedzin programistycznych
Instalacja przebiegła poprawnie mamy edytor i rozpoczynamy pisanie. Zaczynamy od prostego programu.
use warnings;
use strict;
use utf8;
require Tk;
use Tk;
#Tworzenie nowej formatki
my $mw = MainWindow->new();
#Pętla oczekująca na zdarzenia
MainLoop();
Kod zapisujemy do pliku test.pl i uruchamiamy komendą perl test.pl Na ekranie powinniśmy otrzymać typową formatkę z obramowaniem, tytułem który jest nazwą pliku jaki uruchomiliśmy oraz przyciskami nawigacyjnymi po prawej i lewej stronie. Podobnie jak w Javie, tylko trochę prościej. Teraz posterujemy troszeczkę tą formatką. Ustalimy różne wartości, które będą determinować zachowanie się formatki
Cytat:
1) Tytul
2) Szerokość i wysokość minimalną i maksymalną przy próbie przeskalowania okna
3) W którym miejscu będzie wyświetlona po uruchomieniu
4) Zmiana kolorów tła
5) Czy możemy zmieniać wysokość i szerokość
Wracamy do Naszego programu i poprawiamy go w następujący sposób
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
require Tk;
use Tk;
my $mw = MainWindow->new();
#ustawiamy
#tytuł formatki
$mw->title("Portal PerlGtk Was Wita");
#minimalna szerokość i wysokość podana w pikselach
$mw->minsize(qw(300 300));
#maksymalna szerokość i wysokość podana w pikselach
$mw->maxsize(qw(400 400));
#w którym miejscu na ekranie będzie wyświetlona podana w pikselach
$mw->geometry('+400+250');
#czy możemy rozciągać szerokość lub wysokość
#zmieniajcie z 1 na 0 i odwrotnie
$mw->resizable(1,1);
#kolor naszego tła red, white, green ,yellow
$mw->configure(-background => 'yellow');
MainLoop();
W powyższym programie ustawialiśmy właściwości formatki, nadając jej nazwę, kolory wymiary itp. Program uruchamiamy jak w poprzednim przykładzie. Pobrać go można z naszego portalu i zainstalować na własnym komputerze. Jest spakowany zipem i ma nazwę tk_formatka....
|
|
|
Szukaj w PerlGtk.pl
The Perl Job site
Szukaj kodu :
|
