Opened by Styx at 2003-11-20 00:42
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
so kompliziert wie das Beispiel es darstellt ist es nicht.
PageID-1 und PageID-2 sind die IDs ueber die die Seite vom Notebook (intern) angesprochen werden, der visuelle Name wird durch -label angegeben.
Ich sammel die Seiten gerne in einen Hash dann laesst sich wesentlich einfacher darauf zugreifen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use Tk;
use Tk::NoteBook;
my $mw = new MainWindow;
my $nb = $mw->NoteBook()->pack();
my $page1 = $nb->add('PageID-1', -label => 'ReiterEins');
my $page2 = $nb->add('PageID-2', -label => 'ReiterZwei');
$page1->Label(-text => 'In Seite 1')->pack();
$page2->Label(-text => 'In Seite 2')->pack();
MainLoop();
PageID-1 und PageID-2 sind die IDs ueber die die Seite vom Notebook (intern) angesprochen werden, der visuelle Name wird durch -label angegeben.
Ich sammel die Seiten gerne in einen Hash dann laesst sich wesentlich einfacher darauf zugreifen.
,,Das perlt aber heute wieder...'' -- Dittsche