$shelf_content -> columnWidth(1, "100%");

$master_of_shelf->pack(-fill => x);
$shelf->pack(-expand => 1, );

my $shelf_content = $right_frame -> Scrolled       
                 ('HList', -header => 1, -columns => 2,
                 -scrollbars => "oe", -selectmode => "single",
                 -selectbackground => "#FFFFFF", -background => "lightgrey", -browsecmd => sub{&show_description}) 
                 -> pack(-expand => 1, -fill => "both", -side => 'top');


my $header_style = $shelf_content -> ItemStyle('text', -foreground => 'black');
$shelf_content -> header('create', 0, -text => "Aenderung");
$shelf_content -> header('create', 1, -text => "Name");
$shelf_content -> columnWidth(1, "100%"); #so nicht  ;)

my $right_frame = $main_frame -> Frame(-relief => 'sunken', -borderwidth => 1) -> pack(-side => 'left', -expand => 1, -fill => 'both');