Opened by Gast at 2006-11-22 16:52
Oder vollständig:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
use Tk;
my $mw = tkinit;
my $note = $mw->NoteBook()->pack();
$note->{-dynamicgeometry} = 1;
my @pages = map {$note->add("page$_")} (0..3);
for (0..3){$pages[0]->Label(-text => 'label')->pack;}
for (0..20){$pages[1]->Label(-text =>'label')->pack;}
MainLoop;