sub mlistbox_inhalte_popups {

	my ( $w, $infoHR ) = @_;
  
	my $menu  = $w -> Menu( -tearoff => 0 );
	my $index = $infoHR -> { '-column' };
  
	print "Ausgewaehlte Reihe : " . $infoHR -> { -row    } . "\n" .
	      "Ausgewaehlte Zeile : " . $infoHR -> { -column } . "\n" ;	
  
	my @auflistung_mlistbox = $w -> curselection;
	
	foreach( @auflistung_mlistbox )
	{
	@auflistung_mlistbox_details; = $w -> getRow( $infoHR -> { -row } );
	  
		$menu -> add( 'command', -label   => "Hide " . $w -> columnGet( $index ) -> cget( -text ) ,   
                                         -command => sub { $w -> columnHide( $index ); }
					);
  
		$menu -> add( 'separator' );
	}
	 

	foreach ( $w -> columnGet( 0, 'end' ) ) 
	{   
		unless ( $_ -> ismapped ) 
		{  
		   $menu -> add( 'command' , -label   => "Show " . $_->cget( -text ) , 
 			                     -command => [ $w => 'columnShow', $_    , 			     
                                             -before  => $index ] ,
							);
		}
	}
  
	$menu -> Popup( -popover => 'cursor' );
  
}