3 Einträge, 1 Seite |
"-textvariable"=> \$bla
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;
3 Einträge, 1 Seite |