Opened by Gast at 2008-10-09 18:41
User since
2007-06-09
575 Artikel
HausmeisterIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-09
575 Artikel
HausmeisterIn
bei mir funktioniert das hier perfekt, aber ich weiß auch nicht ob es das ist was du haben willst:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
use Tk;
my $mw = Tk::tkinit();
my $window_1 = $mw->Toplevel(-title => 'Fenster 1');
my $window_2 = $window_1->Toplevel(-title => 'Fenster 2');
my $label = $window_2->Label(-text => 'Vor der Suche')->pack();
$window_1->Button(-text => 'Suche', -command => sub{$label->configure(-text => 'Nach der Suche');})->pack();
$mw->MainLoop();
Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind