#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $top = new MainWindow;
my $txt = $top->Scrolled("Text")->pack;

$top->Button(-text => "packForget",
          -command => sub{
                  my @w = $top->packSlaves;
                  foreach (@w) { $_->packForget; }
            })->pack();

$top->Button(-text => "Exit",
         -command => sub {exit})->pack;

MainLoop;

__END__
[download]