3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
use TK;
my $main = MainWindow->new();
my $box = $main->Scrolled('Listbox',
-scrollbars => 'oe',
-height => 5,
)
->pack(-side => 'left',
-fill => 'both',
-expand => 1,
);
$box->insert('end', $_) for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);
MainLoop();
QuoteUndefined subroutine &main::MainLoop called at gui1.pl line 18.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
use Tk;
my $main = MainWindow->new();
my $box = $main->Scrolled('Listbox',
-scrollbars => 'oe',
-height => 5,
)
->pack(-side => 'left',
-fill => 'both',
-expand => 1,
);
$box->insert('end', $_) for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);
MainLoop();
3 Einträge, 1 Seite |