#!/usr/bin/perl

use Tk;
use Tk::LabEntry;
use Tk::DirTree;
use Tk::HList;
use Cwd;
#use pam_aba_103_17;
#use pam_aba_24_10;


my $mw = MainWindow->new(-title=>"PAM_ABA v1.7");										# MainWindow
my $width = $mw->screenwidth;
my $height = $mw->screenheight;
$mw->geometry($width.'x'.$height);

$mw->configure(-menu => my $menubar = $mw->Menu);										# Menüleiste
my $materialtyp = $menubar->cascade(-label => '~Materialtyp', -tearoff=>0);
#$menubar->command(-command=>\&konvertieren, -label=>"~Konvertieren");
#$menubar->command(-command=>\&verzeichnis, -label=>"~Verzeichnis");
$menubar->command(-command=>sub{exit}, -label=>"~Beenden");

@typ = ("SHE 103", "SOL 24");																	# Materialtypen
$i=0;
foreach $typ (@typ){
	$i++;
	$materialtyp->radiobutton(-label=>$typ, -variable=>\$rb, -value=>$i);
}
$rb = 1;

$frame_hintergrund = $mw->Frame(-bg=>'green')->pack(-fill=>'both', -expand=>1);

$frame0 = $frame_hintergrund->Frame(-height=>30, -bg=>'blue')->pack(-side=>'top', -expand=>1, -fill=>'x', -anchor=>'n');
#chdir("../Materialverzeichnis");
$pfad_mat = getcwd();
$LE = $frame0->LabEntry(-label=>"Abaqus Materialverzeichnis",
				  -labelPack=>[-side=>'right'], -width=>80,
				  -text=>"$pfad_mat")->pack(-padx=>20, -pady=>5);
				  
$frame1 = $frame_hintergrund->Frame(-width=>int($width/2), -bg=> 'red')
					->pack(-side=>'left', -fill=>'y',-expand=>1);
$frame2 = $frame_hintergrund->Frame(-width=>int($width/2), -bg=> 'yellow')
					->pack(-expand=>1, -fill=>'y', -side=>'right', -anchor=>'e');
					
$DIR_TREE = $frame2->Scrolled('DirTree',
                            -scrollbars => "osoe",
                            -width => 30,
                            -height => 25,
                            -exportselection => 1,
                            -browsecmd => sub {$cwd = shift},
                            -command   => \&callback)
                            ->pack(-fill => "both", -expand => 1);