Opened by kale_1990 at 2007-01-03 03:15
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Du hättest auch mit configure() den Text verändern können, den das Label gerade anzeigt.
Aber -textvariable ist sowieso schöner.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
my $mw = tkinit();
my $lab = $mw->Label(-text => "Text 1")->pack;
$mw->Button(-text => "Text ändern",
-command => sub { $lab->configure(-text => "Text 2") })->pack;
MainLoop;
Aber -textvariable ist sowieso schöner.