1
2
3

my $frame = $parent->Frame(-width => 300)->pack(-fill => 'x', -expand => 1);
$frame->packPropagate(0);
$frame->Button(-text => 'ok', -command => sub{...})->pack();

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]