signals pending

I have the following perl code:

use Gtk2 '-init';
use Glib qw/TRUE FALSE/;

my $window = Gtk2::Window->new('toplevel');
   $window->signal_connect('destroy' => sub{ Gtk2->main_quit });

my $entry = Gtk2::Entry->new;
   $entry->signal_connect('focus_out_event' => sub{ print "focus out\n" });


exit 0;

And I want to ignore the "focus out event" when closing the window. How can I 
do it??


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]