Минимальное приложение
Продемонстрируем работу Gtk2-Perl на простом примере: окне с кнопкой. Этот пример дает первоначальное представление об API библиотеки и служит своего рода тестом: если программа запустилась, значит все необходимые библиотеки установлены и работают правильно.
Приведенный пример запускается без модификаций как минимум на трёх платформах: Linux, OpenBSD и Windows. Как правило, и с более сложными приложениями проблем не возникает. Итак, исходный код:
#!/usr/bin/perl
# # Александр Симаков, <xdr (тчк) box на Google Mail> # http://alexander-simakov.blogspot.com/ # # Простейшая программа использующая Gtk2-Perl #
use strict; use warnings;
# Включаем поддержку Unicode use utf8; use encoding 'utf8';
# Загрузка и инициализация библиотеки Gkt2. Инициализация # библиотеки (параметр -init) должна выполняться ровно # один раз. use Gtk2 -init;
sub main() { # Создаем главное окно my $window = Gtk2::Window->new('toplevel');
# Устанавливаем обработчик сигнала закрытия окна $window->signal_connect( delete_event => sub { Gtk2->main_quit } );
# Создаем кнопку my $button = Gtk2::Button->new('Тест');
# Устанавливаем обработчик на кнопку $button->signal_connect( clicked => sub { print("Тест Gtk2-Perl\n"); });
# Помещаем кнопку на окно $window->add($button);
# Делаем окно, а также все дочерние виджеты видимыми $window->show_all();
# Запускаем цикл обработки событий Gtk2->main(); }
main();
Вид приложения в Linux:
Вид приложения в OpenBSD:
Вид приложения в Windows:
