Thanks for your reply, but I was wondering how to do this in Tkx:

sub repack_kids {
  my @kids = $mw->packSlaves;
  foreach (@kids) {
    %packinfo = $_->packInfo();
    $_->pack(-padx => 20 + $packinfo{"-padx"}, 
             -pady => 20 + $packinfo{"-pady"});
  }
}
[download]