# LabFrame, frame with embedded label.

use Tk;
use Tk::LabFrame;
use Tk::LabEntry;

my $test = 'Test this';

my $top = MainWindow->new;
my $f = $top->LabFrame(-label => "This is a label", -labelside => "acrosstop");
$f->LabEntry(-label => "Testing", -textvariable => \$test)->pack;
$f->pack;
MainLoop;

my ($columns, $rows) = $main_window -> gridSize();

for (my$i = 0; $i < $columns; $i++) {
  $main_window -> gridColumnconfigure($i, -weight => 1);
}
for (my$i = 0; $i < $rows; $i++) {
  $main_window -> gridRowconfigure($i, -weight => 1);
}

...
my $w = $hauptfenster->NoteBook()->grid();
...
my $page8 = $w->add("page8", -label=>'Zusatzleistung');
...

my $gruppenfeld1 = $page8->LabFrame(-label => "Zimmer", -labelside => "acrosstop");
...
my $gruppenfeld6 = $page8->LabFrame(-label => "Sontiges", -labelside => "acrosstop");

$gruppenfeld1->Checkbutton(-text => "Großes Zimmer (<16,5m²)",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Kühlschrank anschließen",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Kühlschrank leihen",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Fernseher an die Antennenanlage mit SAT anschließen",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Fernseher Leihgerät",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Telefon amtsberechtigt",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
$gruppenfeld1->Checkbutton(-text => "Telefongebühren je Einheit",
                    -variable => \my $erste_telefonnummer,)->grid( -sticky => "w");
....

my ($columns, $rows) = $page8 -> gridSize();

for (my$i = 0; $i < $columns; $i++) {
 $page8 -> gridColumnconfigure($i, -weight => 1);
}
for (my$i = 0; $i < $rows; $i++) {
 $page8 -> gridRowconfigure($i, -weight => 1);
}
$gruppenfeld1->grid(
            $gruppenfeld2,
            $gruppenfeld3);
$gruppenfeld4->grid(
            $gruppenfeld5,
            $gruppenfeld6);
....