Минимальное приложение на 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

Содержание раздела

---

---