#! /usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();

# groesse auf bildschirmlaufloesung setzen
my $height = $mw->vrootheight; # $height = $mw->screenheight;
my $width  = $mw->vrootwidth;  # $width = $mw->screenwidth;
$mw->geometry("${width}x${height}+0+0");  

$mw->overrideredirect(1); # rahmen usw entfernen

# button, damit man noch herauskommt
$mw->Button( -text => 'quit', -command => sub { exit })->pack;

#$mw->bind("<FocusOut>", \&RestoreWindow);
$mw->bind("<Leave>", \&RestoreWindow);

MainLoop();

sub RestoreWindow {
    $mw->withdraw();
    print "Raising\n";
    $mw->deiconify();
    $mw->raise();

}