PerlGtk.pl - Artykuły - Perl Tk

Perl Tk - część III
przez wrares (45 odsłon)
W ostatnim artykule, postanowiliśmy umieścić na formatce komponenty. Przyciski zostały zgrupowane oraz opisane. Każdy z nich otrzymał etykietę oraz ustalono szerokość. Niestety przyciski nie wykonywały żadnego pożytecznego działania. W tym artykule zaprezentujemy Cytat: (1) Akcję - którą wykona przycisk po naciśnięciu (2) Okno Dialogowe Wyboru - zastosowanie okna dialogowego, wybór określonej opcji, powrót do narzędzi, zakończenie programu Do ostatniego programu dopisaliśmy następujące elementy Cytat: 1) -command - związane z przyciskiem, wykonuje procedurę 2) Dialog - sterowanie formatką dialog, wybór, powrót, zakończenie programu Do kodu programu dopisaliśmy wywołanie funkcji `$mw->Button( -text => 'Punkt',-width => 20, -command => \&punkt)->pack();` Tak wygląda nasza typowa procedura z formatką dialogową `sub punkt { my $p = $mw->Dialog( -title => 'Rysowanie Punktu ?', -text => "Czy jesteś pewien że chcesz narysować\npunkt ?", -default_button => 'Nie', -bitmap => 'info', -buttons => ['Nie','Tak'] ); my $wybor = $p->Show; if ($wybor eq 'Tak') { print "Rysujemy Punkt\n"; } }` Koniecznie musimy na początku programu wpisać `use Tk::Dialog;` aby móc skorzystać z formatek dialogowych. Cały program do pobrania jest dostępny w Naszym portalu na tej stronie.... Program po uruchomieniu wyświetla formatkę zawierającą zestaw przycisków. Wybranie przycisków powoduje uruchomienie procedury, a t wywołuje okno dialogowe z określoną informacją i aktywnymi przyciskami. Jeśli wybieramy przycisk Nie, to wracamy do formatki grupującej przyciski. Jeśli wybieramy przycisk Tak, to otrzymujemy komunikat w konsoli z której wywołany został program. W tej aplikacji pokazano działanie opcji -command oraz okna dialogowego.

Powrót