$Eintraege_Popups = $Haupt_Fenster -> Menu( -tearoff => 0 );
	
$Haupt_Fenster -> bind( '<3>' , [ \&showmenu , Ev( 'X' ) , Ev( 'Y' ) , Ev( 'W' ) ] );
$Haupt_Fenster -> focus()