#!/usr/bin/perl -w
use Tk;
use strict;
use warnings;
use Tk::Pane;
use Tk::Dialog;
#use TK::Font;
use IPC::SysV qw(IPC_PRIVATE IPC_RMID S_IRWXU);



# Globalvariablen #
my $top;
my $labeltext = "Guten Morgen";
my ($max_width,$max_height);
my $topscrollbar;
my $status = 'Status AUS';	
my $id=0;
my $AnzahlVar;
my $mpi;
my $mpiadr;
my $mpitext = 'MPI-Adresse';
my @format;
my @istwert;
my @mem;
my $textblink=0;
my $idafter;
my $status_Button;
#-------------------------------------------------------------------------------------------------------#

	$top = new MainWindow;

	$top->geometry("630x300+100+20");

	$top->protocol('WM_DELETE_WINDOW', \&ExitApplication);

	$top->title ("Variableneditor");

	my $menframe = $top->Frame()->pack(-side => "top", -fill => "y", -expand => 0,);

	$top->resizable(0,0);


	my $bezframe =$top->Frame(-borderwidth => 5)-> pack(-fill=> 'both', -anchor => 'nw');


	my $frame = $top->Scrolled('Pane', -scrollbars => 'oe');
	$frame->Frame();
	$frame->pack(-side => 'top', -fill=> 'both', -expand => '1', -anchor => 'nw');


	my $toplevel = $top->toplevel; # get $TOP's Toplevel widget reference
	my $menubar = $toplevel->Menu(-type => 'menubar');
	$toplevel->configure(-menu => $menubar);

	my $f = $menubar->Cascade(qw/-label ~Datei -tearoff 0 -menuitems/ =>
	[
		[Button => 'oeffnen ...',    -command => [\&oeffnen, 'oeffnen'],-image   => $toplevel->Getimage("openfile"),-compound=> "left"],
#		[Button => 'neu',            -command => [\&neu, 'neu'], -image   => $toplevel->Getimage("file"), -compound=> "left"],
#		[Button => 'speichern',        -command => [\&menus_error2, 'speichern']],
#		[Button => 'speichern als ...',-command => [\&menus_error2, 'speichern als..']],
		[Separator => ''],
#		[Button => 'Setup ...',      -command => [\&menus_error2, 'Setup']],
#		[Button => 'Drucker ...',    -command => [\&menus_error2, 'Drucker']],
		[Separator => ''],
		[Button => 'beenden',        -command => [\&ExitApplication,'beenden']],
	]
    );

 MainLoop;

# ---------------------------------------------------------------------------------------------------------------------------------------------------#

sub oeffnen {

my $filename;
my $filetypes = [ ['template-Datei', ['template*'] ] ];
my @name;
my @nummer;
my $i=0;
my $x=0;
my $zeile=2;
my @fileinhalt;
my $uName;
my $uNummer;
my $uMem;
my $uFormat;
my $uIstwert;

my @formatart = ('DEZIMAL','REAL', 'HEX', 'BIN', 'ASCII');
my @memart = ('DWORD','DINTEGER','WORD','INTEGER','BYTE');
my $bgcolor = 0;


	if ($status_Button == undef)
	{
		$status_Button = $menframe-> Button (-textvariable => \$status ,-command => [\&status_ein_aus])-> pack(-side => 'left');
	
		$mpiadr	 = $menframe->Label(-textvariable => \$mpitext,-width=> 30,
								-font => $top->Font(-family => 'Verdana',-size => 16, -weight => 'bold', -underline => 0),
								)-> pack(-side => 'left');
	}

	$filename = $toplevel->getOpenFile(-defaultextension => '',-filetypes => $filetypes,-title => 'oeffnen template-dateien...');

	$_ = $filename;

	/_(\d{1,3})$/;

	$mpi = $1;

	open(DATEI, '<', $filename) or die "Datei kann nicht geoeffnet werden: $!\n";


	@fileinhalt = <DATEI>;

	foreach (@fileinhalt)
	{
		chomp;

		if ($bgcolor eq 'white')
		{
			$bgcolor = 'lightgray';
		}
		else
		{
			$bgcolor = 'white';
		}

		$name[$i] = $frame->Label(	-text => $_,
									-relief => 'sunken',
									-width => '12',
									-bg => $bgcolor,
									-borderwidth => '1',
									-anchor => 'e',
									-padx => '2',
									-pady => '2',
									-font => $top->Font(-family => 'Verdana',-size => 12, -weight => 'bold'),
									)->grid(-row=>$zeile, -column=>0, -padx => '2',);


		$nummer[$i] = $frame->Label(-text => $i,
									-relief => 'sunken',
									-width => '5',
									-bg => $bgcolor,
									-borderwidth => '1',
									-padx => '2',
									-pady => '2',
									-font => $top->Font(-family => 'Verdana',-size => 12, -weight => 'bold'),
									)->grid(-row=>$zeile, -column=>1, -padx => '2');

		$mem[$i] = $frame->BrowseEntry(-relief => 'sunken',
										-command => [\&tausche_mem,$i],
										-width => '10',
										-bg => $bgcolor,
										-font => $top->Font(-family => 'Verdana',-size => 14,),
										)->grid(-row=>$zeile, -column=>2, -padx => '2');

		$format[$i] = $frame->BrowseEntry(-relief => 'sunken',
										-command => [\&tausche_format,$i],
										-width => '9',
										-bg => $bgcolor,
										-font => $top->Font(-family => 'Verdana',-size => 14,),
									)->grid(-row=>$zeile, -column=>3, -padx => '2');



		foreach (@memart) {$mem[$i]->insert('end', $_,);}

		$mem[$i]->{MY_VAR} = $memart[0];						# 1 Zeile vorwählen
		$mem[$i]->configure(-variable => \$mem[$i]->{MY_VAR});

		foreach (@formatart) {$format[$i]->insert('end', $_,);}

		$format[$i]->{MY_VAR} = $formatart[0];						# 1 Zeile vorwählen
		$format[$i]->configure(-variable => \$format[$i]->{MY_VAR});


		$istwert[$i] = $frame->Label(-text => '....',
									-relief => 'ridge',
									-borderwidth => '1',
									-width=> 20, 
									-bg => $bgcolor,
									-anchor => 'w',
									-padx => '2',
									-pady => '2',
									-font => $top->Font(-family => 'Verdana',-size => 12, -weight => 'bold'),
									)->grid(-row=>$zeile, -column=>4, -padx => '2');

		$zeile++;	
		$i++;
	}


# Anzahl der Veriablen/Zeilen abspeichern
	$AnzahlVar = $i;

	$uName    = $bezframe->Label(-text => 'Name', -width=> 4,
								-font => $top->Font(-family => 'Verdana',-size => 14, -weight => 'bold',-underline => 1),
								)->grid(-row=>1, -column=>0);

	$uNummer  = $bezframe->Label(-text => 'Nr', -width=> 5,
								-font => $top->Font(-family => 'Verdana',-size => 14, -weight => 'bold',-underline => 1),
								)->grid(-row=>1, -column=>1);

	$uMem     = $bezframe->Label(-text => 'Speicher', -width=> 10, -anchor => 'w',
								-font => $top->Font(-family => 'Verdana',-size => 14, -weight => 'bold',-underline => 1),
								)->grid(-row=>1, -column=>2);

	$uFormat  = $bezframe->Label(-text => 'Format', -width=> 9, -anchor => 'w',
								-font => $top->Font(-family => 'Verdana',-size => 14, -weight => 'bold',-underline => 1),
								)->grid(-row=>1, -column=>3);

	$uIstwert = $bezframe->Label(-text => 'Istwert', -width=> 20, -anchor => 'w',
								-font => $top->Font(-family => 'Verdana',-size => 14, -weight => 'bold',-underline => 1),
								)->grid(-row=>1, -column=>4);

	$mpitext= 'MPI-Adresse: '.$mpi;
	$mpiadr-> update;

}

$bezframe->GeometryRequest($top->width, $uName->reqheight); # Platz für Frame reservieren
$top->bind('<Configure>' => sub {
	       $uName->place(-x => $name[0]->rootx - $top->rootx, -y => 0);
	       $uNummer->place(-x => $nummer[0]->rootx - $top->rootx, -y => 0);
	       $uMem->place(-x => $mem[0]->rootx - $top->rootx, -y => 0);
	       $uFormat->place(-x => $format[0]->rootx - $top->rootx, -y => 0);
	       $uIstwert->place(-x => $istwert[0]->rootx - $top->rootx, -y => 0);
	   });

my $number = 5;
my $row;
my $col;

  my $table = $menframe->Table(-rows => $number,
                          -columns => $number,
                          -scrollbars => 'anchor',
                          -fixedrows => $number,
                          -fixedcolumns => $number,
                          -takefocus => 1);

  my $widget = $table->Button(-text => 'Quit',-command => sub{exit 0});
  my $old = $table->put(1,1,$widget);
  $old = $table->put(1,2,"Text1");  # simple Label
  $widget = $table->get(1,1);

  $table->see($widget);

  $widget = $table->Button(-text => 'Quit',-command => sub{exit 0});
  $old = $table->put(2,1,$widget);
  $old = $table->put(2,2,"Text2");  # simple Label
  $widget = $table->get(2,1);

  $table->see($widget);


 my $cols = $table->totalColumns;
 my $rows = $table->totalRows;

  $table->see(1,1);