use strict;

use Tk;

my  $MamaGUI 		= new MainWindow;
my 	$windowWidth 	= "200";
my 	$screenHeight 	= $MamaGUI->screenheight;
my 	$screenWidth  	= $MamaGUI->screenwidth;
#   MamaGUI rechts andocken
	$MamaGUI->geometry($windowWidth."x".$screenHeight);
	$MamaGUI->geometry("+" . int($screenWidth - $windowWidth) . "+" . int(1) . "");
# 	damits keinen Rahmen mehr gibt
	$MamaGUI->overrideredirect(1); 
	
MainLoop();