#!/usr/bin/perl

use Tk;
use Tk::LabEntry;
use Cwd;
use temp_mat13;
use Materialimport;

$mw = MainWindow->new(-title=>"NG v1.1");
$mw->geometry( "1000x600" );

$BT1 = $F1->Button(-text=>"Template laden mit Dialog", -command=>\&button1)->pack(-side=>left, -padx=>20, -pady=>5);

MainLoop;

sub button1{
	$var0 = $LE1->get;
	$var1 = 0;
	$LE2->configure(-textvariable=>temp_mat13::skript1($var0,$var1));
}