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
  #.	   				
}