#!/usr/bin/perl
use Tk::LabFrame;
use Tk::NoteBook;
use strict;
use Tk 8.0;

my $mw = MainWindow->new;
$mw->title("TEST TEST");

# *****************************************************************************
# ** Generiere NOTEBOOK *******************************************************
# *****************************************************************************
my $MyTab = $mw->NoteBook()        -> pack(
               
               
         -side   => 'top',
               
               
         -fill   => 'x',
               
               
         -anchor => 'nw',
               
               
         -padx   => 5,
               
               
         -pady   => 5);

# *****************************************************************************
# ** Generiere TAB1 ***********************************************************
# *****************************************************************************
my $MyTabOne   = $MyTab->add        ('tab1',
               
               
         -label       => 'Bla bla bla',
               
               
         -state       => 'normal',
               
               
         -justify     => 'left');

my $MyTabOne_1 = $MyTabOne->LabFrame(-label=>'[ Überschrift ]',
                                     -labelside    =>'acrosstop')
                                     ->pack(-side  =>'left',
               
               
              -expand=>'0',
               
               
              -fill  =>'y');

my $MyTabOne_Lab_11 = $MyTabOne_1->Label(-text=>"Ein Eintrag:      ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_11= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_12 = $MyTabOne_1->Label(-text=>"Hallo:            ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_12= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_13 = $MyTabOne_1->Label(-text=>"Alles klar:       ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_13= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_14 = $MyTabOne_1->Label(-text=>"Geht so:          ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_14= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");

MainLoop;