|< 1 2 >| | 20 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
use Tk;
$mw = MainWindow->new();
$l = $mw->Label(-text => 'Hallo Perl Welt!')->pack();
MainLoop;
$l->configure(-text => 'Hallo Tk Welt!');
$l->configure(-text => 'Hallo Tk Welt!');
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit;
my $label = $mw->Label(-text => 'HAllo')->pack();
$label->bind('<Button-1>',[\&subr,$label]);
MainLoop;
sub subr{
my ($self) = @_;
$self->configure(-text => 'Hallo Welt');
}
my $main = tkinit;
my $main = MainWindow->new();
|< 1 2 >| | 20 Einträge, 2 Seiten |