#!/usr/bin/perl
use strict;
use warnings;

use Tk;

tk_main();
MainLoop();
exit;

sub tk_main {
    my $mw = new MainWindow;
    $mw->title("Anordnungen von Labels und Entrys");

    # +---------------------------------------------------+
    # | +-----------+     +-----------+     +-----------+ |
    # | | Lab.Entr. +     + Lab.Entr. +     + Lab.Entr. + |
    # | +-----------+     +-----------+     +-----------+ |-fa
    # | +-----------+     +-----------+     +-----------+ |
    # | | Lab.Entr. +     + Lab.Entr. +     + Lab.Entr. + |
    # | +-----------+     +-----------+     +-----------+ |
    # | +-----------+     +-----------+     +-----------+ |
    # | | Lab.Entr. +     + Lab.Entr. +     + Lab.Entr. + |
    # | +-----------+     +-----------+     +-----------+ |
    # +---------------------------------------------------+
    #    fl                fm                fr
    #    flo               fmo               fro
    #    flm               fmm               frm
    #    flu               fmu               fru

    # äußerer Frame:
    my $fa = $mw->Frame(
                       )
                 ->pack(-side   => 'top',
                        -expand => 1,
                        -fill   => 'both',
                       );

    # Frame links:
    my $fl = $fa->Frame(
                       )
                 ->pack(-side   => 'left',
                        -expand => 1,
                        -fill   => 'y',
                       );

    # Frame mitte:
    my $fm = $fa->Frame(
                       )
                 ->pack(-side   => 'left',
                        -expand => 1,
                        -fill   => 'both',
                       );

    # Frame rechts:
    my $fr = $fa->Frame(
                       )
                 ->pack(-side   => 'right',
                        -expand => 1,
                        -fill   => 'y',
                       );


    # Frame links oben:
    my $flo = $fl->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $flo->Label(-text => "links oben")->pack(-side => 'left');
    $flo->Entry(-width => 10)->pack(-side => 'left');

    # Frame links mitte:
    my $flm = $fl->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $flm->Label(-text => "links mitte")->pack(-side => 'left');
    $flm->Entry(-width => 10)->pack(-side => 'left');

    # Frame links unten:
    my $flu = $fl->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $flu->Label(-text => "links unten")->pack(-side => 'left');
    $flu->Entry(-width => 10)->pack(-side => 'left');



    # Frame mitte oben:
    my $fmo = $fm->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $fmo->Label(-text => "mitte oben")->pack(-side => 'left');
    $fmo->Entry(-width => 10)->pack(-side => 'left');

    # Frame mitte mitte:
    my $fmm = $fm->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $fmm->Label(-text => "mitte mitte")->pack(-side => 'left');
    $fmm->Entry(-width => 10)->pack(-side => 'left');

    # Frame mitte unten:
    my $fmu = $fm->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $fmu->Label(-text => "mitte unten")->pack(-side => 'left');
    $fmu->Entry(-width => 10)->pack(-side => 'left');


    # Frame rechts oben:
    my $fro = $fr->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $fro->Label(-text => "rechts oben")->pack(-side => 'left');
    $fro->Entry(-width => 10)->pack(-side => 'left');

    # Frame rechts mitte:
    my $frm = $fr->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $frm->Label(-text => "rechts mitte")->pack(-side => 'left');
    $frm->Entry(-width => 10)->pack(-side => 'left');

    # Frame rechts unten:
    my $fru = $fr->Frame(
                        )
                  ->pack(-side   => 'top',
                         -expand => 1,
                         -fill   => 'both',
                        );
    $fru->Label(-text => "rechts unten")->pack(-side => 'left');
    $fru->Entry(-width => 10)->pack(-side => 'left');


    $mw->bind('<Escape>', sub { $mw->destroy() } );
} # tk_main