Opened by Gast at 2007-06-19 12:07
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Hihi =)
$frame->children gibt dir die Kinder des Frames als Liste zurueck, welche du dann durchlaufen und loeschen kannst =)
MfG
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
use Tk;
my $mw = tkinit();
my $frame = $mw->Frame()->pack;
for (0..3) {
$frame->Button(-text => $_)->pack(-side => 'top');
}
$frame->Button(-text => 'clear', -command => [\&clear_frame])->pack(-side => 'top');
MainLoop;
sub clear_frame {
$_->destroy() for ($frame->children);
}
$frame->children gibt dir die Kinder des Frames als Liste zurueck, welche du dann durchlaufen und loeschen kannst =)
MfG
Pörl.