use Tk::MListbox;

$mlistbox_inhalte = $mlistbox_frame -> MListbox ( -background  => 'white'  ,
                                                                    -borderwidth  => '0'     ,
                                                                    -columns => [ [ -text => 'Laufende Nr.'  , -resizeable => 0 , -sortable => 1 , -height => 12 , -width => 15 , -borderwidth => 0 ] , 
                                                                                  [ -text => 'Bezeichnung'   , -resizeable => 1 , -sortable => 1 , -height => 12 , -width => 15 , -borderwidth => 0 ] ,
                                                                                  [ -text => 'Geburtstag'    , -resizeable => 0 , -sortable => 1 , -height => 12 , -width => 15 , -borderwidth => 0 ] ,
                                                                                  [ -text => 'Verfügbar'     , -resizeable => 0 , -sortable => 1 , -height => 12 , -width => 15 , -borderwidth => 0 ] ,	
                                                                 
                                                                                ] ,
                                                                    																	  
                                                                    -configurecommand    => '1'       ,
                                                                    -cursor              => 'plus'    ,
                                                                    -font                => 'Times 8' ,
                                                                    -foreground          => 'black'   ,
                                                                    -height              => 15        ,
                                                                    -highlightcolor      => 'pink'    ,
                                                                    -highlightbackground => 'white'   ,
                                                                    -moveable            => '1'       ,
                                                                    -relief              => 'groove'  ,
                                                                    -resizeable          => '0'       , 
                                                                    -selectborderwidth   => '1'       ,
                                                                    -selectbackground    => 'black'   ,
                                                                    -selectforeground    => 'yellow'  ,
                                                                    -selectmode          => 'single'  ,
                                                                    -separatorcolor      => 'black'   ,
                                                                    -sortable            => '1'       ,
                                                                    -width               => '930'     ,
                                                                    							                                                        
                                                                    ) -> place( -x => 0 , -y => 0 );