#!/usr/bin/perl

# bitte immer strict und warnings benutzen.
use strict;
use warnings;

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

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

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

my $LE2=$mw->...

MainLoop;

sub button1{
  $LE2->configure(-textvariable=>temp_mat13::skript1($mw, '/', 0));
}

package temp_mat13;
use strict;
use warnings;
use Tk;

sub skript1{
  my $mw = shift(@_);
  my $type = [ ['Template Files', '.template'] ];
  my $name;
  if ($_[1]==0){
    $name = $mw->getOpenFile(-initialdir=>$_[0], -title=>"*.template laden", -defaultextension=>".template",-filetypes=>$type);					
  }elsif($_[1]==1){
    $name = $_[0];
  }	

  #.
  #. diverse Befehle, aber keiner davon greift auf Tk zu
  #.	   				
}