•Mit den Zeile
• my $nb = $mw->NoteBook()->pack();
•wird ein Reiterelement (NoteBook) erzeugt und gepackt. In diesem werden nun mit
• my $page1 = $nb->add('PageID-1',
-label
=> 'Reiter Eins', );
my $page2 = $nb->add('PageID-2',
-label
=> 'Reiter Zwei', );
•zwei Seiten angelegt mit den Reitertiteln „Reiter Eins“ und „Reiter
zwei“. In die Seiten wird nun noch je ein Label gesetzt:
• $page1->Label(-text => 'In Seite
1')->pack();
$page2->Label(-text =>
'In Seite 2')->pack();