Perl - статьи




Минимальное приложение


Продемонстрируем работу 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:




Содержание  Назад  Вперед