#!/perl/bin/perl


use Tk;

#
sel_report();
#
######################  Main Graphical GUI activation
sub sel_report{
	my $wjob = MainWindow->new;
	$wjob->title("GRAPHICAL COMPARE");
	$testo=$wjob->Text( -borderwidth =>2, -relief => 'solid', -height => 40, -width => 120)->pack();
	$ugo = $testo->Scrolled("Text")->pack();
	open (FILE, "c:/tmp/compare_results.txt") || die "cazzo fai";
	while(<FILE>){
		$ugo->insert('end', "Page 1

    					Compare results    ( UNIT ARE IN MM )

  X Position	Y Position   JOB Name       Step1        Step2             Ref.Layer
========================================================================================================
-57.4763925    33.9636075    demosmall      novpl         vpl           results_layer_top
-52.3963925    33.9636075    demosmall      novpl         vpl           results_layer_top
-6.6763925     44.1236075    demosmall      novpl         vpl           results_layer_top
18.22361       8.06361       demosmall      novpl         vpl           results_signal_2
18.22361       13.14361      demosmall      novpl         vpl           results_signal_2
23.30361       13.14361      demosmall      novpl         vpl           results_signal_2
53.78361       23.30361      demosmall      novpl         vpl           results_signal_2
53.78361       28.38361      demosmall      novpl         vpl           results_signal_2"
);
	}
	close (FILE);
    MainLoop;	
}