signals pending

["Jorge P Costa" <jorge adis com br>]

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" });

$window->show_all;

Gtk2->main;
exit 0;

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

Thanxs...