$ml = $Haupt_Fenster -> MListbox( -selectmode => 'single' ,
			          -height  => 7 ,
	                          -columns => [ [ -text => 'Laufende Nr.'  , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] , 
	                                                [ -text => 'Bezeichnung'   , -resizeable => 1 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,
	                                                [ -text => 'Geburtstag'    , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,
	                                                [ -text => 'Verfügbar'     , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,	
	                                                [ -text => 'Tel. - Nr.'    , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,													   
	                                                [ -text => 'Mobil - Nr.'   , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,													
										            [ -text => 'Projekt - Nr.' , -resizeable => 0 , -sortable => 1 , -height => 11 , -width => 15 , -borderwidth => 0 ] ,													
												
											   	  ] ,
	                           
							       ) -> place( -x => 251 , -y => 84 );													  
														  
	$ml -> insert( 'end' , [ "1000" , "Eintrag 1" , "01.01.1984" , "Sofort" ] );
	$ml -> insert( 'end' , [ "1001" , "Eintrag 2" , "01.01.1983" , "Sofort" ] );	
	
	$ml -> bindRows( '<1>' , sub{ &Testumgebung } )

sub Testumgebung {

		( $w , $infoHR ) = @_;
	
		print "Ausgewaehlte Reihe : " . $infoHR -> { -row    } . "\n" .
			  "Ausgewaehlte Zeile : " . $infoHR -> { -column } . "\n" ;			  		
		
		my @Verbindung_Liste_Selektierung = $ml -> curselection;
		
		foreach( @Verbindung_Liste_Selektierung )
		{
			my @row = $ml -> getRow( $_ );
			print @row;
			
			our $Eintraege_Popups;
	
			$Eintraege_Popups = $Haupt_Fenster -> Menu( -tearoff => 0 );
	
			$Eintraege_Popups -> add( 'separator' );
			$Eintraege_Popups -> add( 'command' , -label => "Eintrag 1 : " , -command => \&item1 );
			$Eintraege_Popups -> add( 'command' , -label => "Eintrag 2 : " , -command => \&item2 );
	
			$Haupt_Fenster -> bind( '<3>' , [ \&showmenu , Ev( 'X' ) , Ev( 'Y' ) , Ev( 'W' ) ] );
			$Haupt_Fenster -> focus();
			
			sub showmenu 
			{
				my ( $self , $x , $y ) = @_;

				$Eintraege_Popups -> post( $x , $y );  
			}
		}