$Verbindung_Liste = $Top_Level -> Listbox( -selectmode   => "single" ,
					   -activestyle  => "none"   ,
					   -width        => 20       ,
					   -height       => 10 
				         )  -> place( -x => 25 , -y => 27 );

$Verbindung_Liste -> bind( '<<ListboxSelect>>' , sub{ &Testumgebung() } );

sub Testumgebung {

	my @Verbindung_Liste_Selektierung = $Verbindung_Liste -> curselection;
	
	foreach ( @Verbindung_Liste_Selektierung ) 
	{
		my $Verbindung_Liste_Elemente = $Verbindung_Liste -> get( $_ );
		
		our $Eintraege_Popups;
	
		$Eintraege_Popups = $Verbindung_Liste -> Menu( -tearoff => 0 );
	
		$Eintraege_Popups -> add( 'separator' );
		$Eintraege_Popups -> add( 'command' , -label => "Eintrag 1 : $Verbindung_Liste_Elemente" , -command => \&item1 );
		$Eintraege_Popups -> add( 'command' , -label => "Eintrag 2 : $Verbindung_Liste_Elemente" , -command => \&item2 );
	
		$Verbindung_Liste -> bind( '<3>' , [ \&showmenu , Ev( 'X' ) , Ev( 'Y' ) , Ev( 'W' ) ] );
		$Verbindung_Liste -> focus();
		
		sub showmenu 
		{
			my ( $self , $x , $y ) = @_;
			$Eintraege_Popups -> post( $x , $y );  
		}	
	
	}
}