use Encode;
#use warnings;
use Getopt::Std; # für Auswertung der Startparameter
use Tk; # Notwendig für GUI
use Tk::DropSite; # Drag&Drop in das Pfadauswahlfenster
use Tk::ROText; # Drag&Drop in das Pfadauswahlfenster


my %opts;
$opt="";
$infile="";
$overwrite=0;
$unicode=0;
my $withgui=0;
my @lines;
# Feld für Pfadeingabe
my $mw; # MainWindow für GUI
my $out_text; # Ausgabefeld für LOG
my $gui_fname ="Pfad\\zur\\Datei";
my $gui_output ="Ausgabefeld\n";

# Startparameter abfragen
getopts("og",\%opts);

&toolLog("renum Tool Version $rev\n\n");

# Parameter auswerten
foreach (keys %opts)
{
   if (($_ eq "o") && ($opts{$_} eq 1)) {$overwrite=1;}
   if (($_ eq "g") && ($opts{$_} eq 1)) {$withgui=1;}   		
}

# Wenn keine Parameter übergeben werden Abbruch mit Hinweis
if ($#ARGV==-1 && $withgui==0) 
{ 
   &toolLog("USE: renum.pl options datei\n"); 
   die;
}	

# Pfadparameter auswerten
foreach (@ARGV) {

	$infile = $_;
}

# Prüfen ob mit GUI gestartet werden soll
if  ($withgui==1) { 
	&doGUI();
	exit();
}

&INIopenfile($infile);

&INIselector;



#########################
# GUI                   #
#########################

sub doGUI
{
	$mw = MainWindow->new;
	$mw->title("Renum.pl");
	$mw->geometry('500x240');
	$mw->minsize(500,240); # Minimalgröße des Fensters: 500 x 200 
	
	########### Hauptfenster ##############
	my $frame1 = $mw->Frame;
	$frame1->pack(-side => "top", -fill => "both", 
	-expand => "1", -padx => "2m", -pady => "2m");	
	      
	
	########### Ausgabefenster ###########
	# Rahmen
	my $out_frm = $frame1->Frame(-borderwidth => 2,
			      -relief => "ridge");
	$out_frm->pack(-side => "top", -anchor => "n",
		-expand => "1",	-fill => "both");	
	
	# Scrollbar
	$scrollbar = $out_frm->Scrollbar( );

	# Textfeld
	$out_text = $out_frm->ROText(-width => 80, -height => 5,
                         -fg => 'black', -bg => 'white',
                         -yscrollcommand => ['set' => $scrollbar],);
                         #-state => "disabled");
	$out_text->insert('end', $gui_output);

	$out_text->pack(-padx => 5, -pady => 5, -expand => "1",	-fill => "both");
	$scrollbar->configure(-command => ['yview' => $out_text]);
	#$scrollbar->pack(-side => 'right', -fill => 'y');
	
	   	      
	MainLoop();	      
}



#########################
# allgemeine Funktionen #
#########################


sub toolLog
{
    # LOG Ausgabe
    my $param = shift;
	print ($param);
	$out_text->insert('end', $param);
}