Tk::Notebook - Reiter

Tk::Notebook ist ein Widget, mit dem sog. Reiter erstellt werden. Manchmal werden diese auch Karteikarten oder Registerkarten genannt.


Perl-Quellcode

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;
use Tk::NoteBook;

my $mw = Tk::MainWindow->new();

my $nb = $mw->NoteBook();

my $p1 = $nb->add("Seite1", -label => "Seite 1");
$p1->Label(-text=>"Dies ist Seite 1")->pack();

my $p2 = $nb->add("Seite2", -label => "Seite 2");
$p2->Label(-text=>"Dies ist Seite 2")->pack();

my $p3 = $nb->add("Seite3", -label => "Seite 3");
$p3->Label(-text=>"Dies ist Seite 3")->pack();

$nb->pack(-fill => 'both', -expand => 1,);

$mw->MainLoop();
Top