#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 -init;

my $window = Gtk2::Window->new;
$window->add( Gtk2::Label->new("Yaada yadda yadda") );

print "BEFORE mapped ?-> ",$window->mapped,"\n";

$window->show_all;

$window->signal_connect( delete_event => sub { exit });

#$window->hide_all;
print "AFTER mapped ?-> ",$window->mapped,"\n";

Gtk2->main;