[Lost Tower]

16.12.09

Листинг 0. Минимальное графическое приложение на Perl-Gtk2

#!/usr/bin/perl
use Gtk2 -init;
my $window = Gtk2::Window->new();
$window->show_all();
Gtk2->main();

Нарисует окно. При нажатии на “крестик” на окне, закроется только само окно, а программа не завершится… Поэтому “CTRL+C”.

Листинг 1. Чтение нажатий клавиатуры (аккордов)

#!/usr/bin/perl
use Gtk2 -init;
use Gtk2::Gdk::Keysyms;

$accel_group = Gtk2::AccelGroup->new;
$accel_group->connect ($Gtk2::Gdk::Keysyms{'A'}, 'control-mask', 'visible', \&action);

$window = Gtk2::Window->new;
$window->add_accel_group ($accel_group);

$window->signal_connect (delete_event => sub {Gtk2->main_quit});
$window->show_now;

Gtk2->main;

sub action {
    print "Key Pressed\n";
}

В примере читается нажатие аккорда “A + CTRL”

UPD 17.12.09

Все аккорды можно найти в файле site/lib/Gtk2/Gdk/Keysyms.pm