110:    # warn Gtk2->get_current_event;

##</code><code>##

#!/usr/bin/perl --
use Gtk2 -init;
# Gtk2->init; works if you didn't use -init on use
my $window = Gtk2::Window->new ('toplevel');
my $button = Gtk2::Button->new ('Quit');
$button->signal_connect (clicked => sub {
    warn "@_";
    warn Gtk2::Gdk::Event->get;
    warn Gtk2->get_current_event;
    Gtk2->main_quit
});
$window->add ($button);
$window->show_all;
Gtk2->main;
__END__
Gtk2::Button=HASH(0xc6f164) at - line 7.
Warning: something's wrong at - line 8.
Gtk2::Gdk::Event::Key=SCALAR(0xa18d94) at - line 9.