Ja, ich arbeite mit Tk, aber wo soll denn das pack dahin?
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 ;)
Ich haett vielleicht vorher schon etwas mehr code posten sollen :-)
MfG\n\n
<!--EDIT|styx-cc|1149606543-->
Pörl.