use Tk;

my $mw = MainWindow->new;

$mw->bind('<Activate>' => sub { print "Aktiviert\n"; });
$mw->bind('<Deactivate>' => sub { print "deaktiviert\n"; });

$mw->bind('<ResizeRequest>' => sub { print "Verändert\n"; });

MainLoop;