Opened by Olav_888 at 2004-05-04 17:15
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Hier ist eine Moeglichkeit, wie man ein Label mittels eines darueber gelegten Frames zum Verschwinden gebracht werden kann. Das ist nur eine von mindestens zehn moeglichen Loesungen :-)
Der Aufruf von ->manager bedarf vielleicht noch der Erklaerung. manager() gibt zurueck, welcher Geometry-Manager (pack, place,grid ...) fuer das angegebene Widget verwendet wird. Wird nichts zurueck gegeben, heisst das, dass das Widget nicht dargestellt ist.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use Tk;
$mw = MainWindow->new;
$l = $mw->Label(-text => "Test")->pack;
$f = $l->Frame;
$b = $mw->Button(-text => "Toggle visibility",
-command => sub {
if ($f->manager) {
$f->placeForget;
} else {
$f->place(-x => 0, -y => 0,
-relwidth => 1,
-relheight => 1,
)
}
})->pack;
MainLoop;
Der Aufruf von ->manager bedarf vielleicht noch der Erklaerung. manager() gibt zurueck, welcher Geometry-Manager (pack, place,grid ...) fuer das angegebene Widget verwendet wird. Wird nichts zurueck gegeben, heisst das, dass das Widget nicht dargestellt ist.