Tkx: return list of slaves

[v4169sgr]

I am using ActiveState's Perl on windows, using Tkx.

What I would like to do is return a list of slaves to a widget e.g. a frame, and loop over them to add padding. Saves typing ;-)

But the following code snippet does not compile for me:

my @kids = $session_frame->g_packSlaves();
foreach (@kids) {
    $_->g_pack(-padx => 5, -pady => 5);
}

What am I doing wrong?

Thanks!

[Anonymous Monk]

You need to repack ( pack forget, then pack)

[v4169sgr]

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"});
  }
}