Opened by #Kein Kommentar at 2008-04-04 20:32
User since
2007-06-09
575 Artikel
HausmeisterIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-09
575 Artikel
HausmeisterIn
hallo perl/tk-ler,
ich habe ein problem mit pack:
dieses beispiel zeigt, dass, wenn ich das widget anzeige und danach dieses wieder verschwinden lasse, der frame trotzdem den raum für dieses widget beibehält. ich möchte allerdings erreichen, dass die ausgangsgröße wiedererreicht wird. jetzt kann ich den frame allerdings nicht durch pack selber verändern, da der frame seine position oberhalb des textfeldes behalten muss.
weiß jemand eine möglichkeit?
betriebsystem ist WinXP mit ActiveState Perl 5.8.8 und Perl/Tk 804.027
ich habe ein problem mit pack:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
use strict;
use warnings;
use Tk;
my $mw =
tkinit ();
my $frame = $mw-> Frame (-relief => 'groove', -bd => 2)-> pack ();
my $text = $mw-> Text ()->pack (-expand => 1);
my $widget =
$frame-> Label (
-text => "Hier ist ein Widget!",
);
my $widget_on = 1;
my $button =
$mw-> Button (
-text => "Widget an/ausschalten",
-command => sub {
if ($widget_on == 0){
$widget-> pack ();
$widget_on = 1;
}
else{
$widget-> packForget ();
$widget_on = 0;
}
}
)-> pack;
Tk::MainLoop ();
dieses beispiel zeigt, dass, wenn ich das widget anzeige und danach dieses wieder verschwinden lasse, der frame trotzdem den raum für dieses widget beibehält. ich möchte allerdings erreichen, dass die ausgangsgröße wiedererreicht wird. jetzt kann ich den frame allerdings nicht durch pack selber verändern, da der frame seine position oberhalb des textfeldes behalten muss.
weiß jemand eine möglichkeit?
betriebsystem ist WinXP mit ActiveState Perl 5.8.8 und Perl/Tk 804.027
Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind