#! /usr/bin/perl -w

use strict;
use Tk;
use warnings;

# Variablendeklaration
# Window object
my ($mw);
# framestuff
my ($fup, $fdw, $f1, $f2, $right1, $right2);
# vars
my ($file, $i, $line, $path,  $lbs_val);

# Labels
my ($labl1_lbl, $labl2_lbl, $labl3_lbl, $labl4_lbl);
my ($labl5_lbl, $labl6_lbl, $labl7_lbl, $labl8_lbl);
# textvars
my ($text1, $text2, $text3, $text4, $text5, $text6);
my ($text7, $text8);

# first of all, create a main window
$mw = MainWindow->new();

###########################################################
#-----------------------------Declares-------------------------------------------#
###########################################################

# Gestapelte Frames
$fup = $mw->Frame()->pack();
$fdw = $mw->Frame()->pack();
$f1  = $fup->Frame()->pack(-side => 'left');
$f2  = $fup->Frame()->pack(-side => 'left');
$right1 = $fup->Frame()->pack(-side => 'left');
$right2 = $fup->Frame()->pack(-side => 'left');

$right1->Label(-text => "TEXT1:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT2:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT3:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT4:")->pack(-padx => '1c', -anchor => 'e');

$f1->Label(-text => "TEXT5:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT6:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT7:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT8:")->pack(-padx => '1c', -anchor => 'e');

# here the textfields
$labl1_lbl = $right2->Entry(-textvariable => \$text1 ) ->pack();
$labl2_lbl = $right2->Entry(-textvariable => \$text2 ) ->pack();
$labl3_lbl = $right2->Entry(-textvariable => \$text3) ->pack();
$labl4_lbl = $right2->Entry(-textvariable => \$text4) ->pack();

$labl5_lbl =$f2->Entry(-textvariable => \$text5) ->pack();
$labl6_lbl =$f2->Entry(-textvariable => \$text6) ->pack();
$labl7_lbl =$f2->Entry(-textvariable => \$text7) ->pack();
$labl8_lbl =$f2->Entry(-textvariable => \$text8) ->pack();
.
.
.