Минимальное приложение на wxPerl
Теперь, когда wxPerl установлен, можно опробовать его в действии. Тестовое приложение состоит из двух файлов (файлы должны находиться в одной директории).
wx-minimal.pl: #!/usr/bin/perl
# # Александр Симаков, <xdr (тчк) box на Google Mail> # http://alexander-simakov.blogspot.com/ # # Простейшая программа использующая wxPerl #
use strict; use warnings;
use FindBin; use lib "$FindBin::Bin";
use Wx; use MinimalApp;
sub main() { # Создаём экземпляр приложения и ... my $minimal_app = MinimalApp->new(); # ... запускаем цикл обработки событий. $minimal_app->MainLoop(); }
main();
MinimalApp.pm: package MinimalApp;
# # Александр Симаков, <xdr (тчк) box на Google Mail> # http://alexander-simakov.blogspot.com/ # # Минимальный класс приложения wxPerl #
use strict; use warnings;
use utf8; use encoding 'utf8';
use Wx; use base qw{ Wx::App };
sub OnInit { # Создаём окно my $frame = Wx::Frame->new( undef, # Родительское окно -1, # ID окна (-1 значит сгенерировать автоматически) 'Минимальное приложение на wxPerl', # Заголовок окна [ -1, -1 ], # Позиция окна (значение по умолчанию) [ 450, 100 ], # Размер окна );
# Отображаем его на экране $frame->Show( 1 ); }
1;
Вот как выглядит результат запуска этой программы:
Вид в Linux
Вид в Windows
