use strict;

use Tk;


my  $MamaGUI 		= new MainWindow;
my 	$screenHeight 	= $MamaGUI->screenheight;
my 	$screenWidth  	= $MamaGUI->screenwidth;

#   MamaGUI rechts andocken
	$MamaGUI->geometry($screenWidth."x".$screenHeight);
#	$MamaGUI->geometry($windowWidth."x".$windowHeight);
#	$MamaGUI->geometry("+" . int($screenWidth - $windowWidth) . "+" . int(1) . "");

# 	damits keinen Rahmen mehr gibt
	$MamaGUI->overrideredirect(1); 

#    $MamaGUI->stayOnTop;

# 	Popup-Menü
my  $popup = $MamaGUI->Menu(-tearoff => 0);
	$popup->command(-label => 'Exit', -command => sub {	$popup->Unpost; exit(0);} );

	$MamaGUI->bind('<ButtonPress-3>', sub { $popup->Popup(-popover => 'cursor', -popanchor => 'sw'); });
	
MainLoop();