From a67b8ff3af4930a147c5322c7e1aca657aca3988 Mon Sep 17 00:00:00 2001
From: Zaher Salman <zaher.salman@psi.ch>
Date: Tue, 24 Nov 2009 13:50:42 +0000
Subject: [PATCH] More work on plotting implantation profiles.

---
 trimsp/TrimSPGUI/TrimSP.pl      | 13 ++++++++-----
 trimsp/TrimSPGUI/TrimSPGUI.ui.h | 11 +++++++----
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/trimsp/TrimSPGUI/TrimSP.pl b/trimsp/TrimSPGUI/TrimSP.pl
index c61e79f..b53a1c0 100644
--- a/trimsp/TrimSPGUI/TrimSP.pl
+++ b/trimsp/TrimSPGUI/TrimSP.pl
@@ -1,6 +1,6 @@
 # Form implementation generated from reading ui file 'TrimSPGUI.ui'
 #
-# Created: Mon Nov 23 15:50:35 2009
+# Created: Tue Nov 24 14:48:53 2009
 #      by: The PerlQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!
@@ -2766,17 +2766,20 @@ sub PlotProfiles
     my $filenames=join(",",@files);
     print "Selected file: $filenames\n";
     
+    my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
+		"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
     if ($filenames ne "" ) {
 # Now that we have the file list send it to root macro for plotting.
-	my $cmd='root "plotRge.C(\"'.$filenames.'\")"';
-#    my $pid = open(FTO,"$cmd");
+	my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"';
+#	my $pid = open(FTO,"$cmd");
 	my $pid = open(FTO,"$cmd 2>&1 |");
+	print "PID=$pid\n";
 	while (<FTO>) {
-#	FitTextOutput->append("$_");
 	    print "$_";
 	}
 	close(FTO);
-# system($cmd);
+#	my $pid=system($cmd);
+	
     }
 
 }
diff --git a/trimsp/TrimSPGUI/TrimSPGUI.ui.h b/trimsp/TrimSPGUI/TrimSPGUI.ui.h
index 68c48d4..d435b21 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.ui.h
+++ b/trimsp/TrimSPGUI/TrimSPGUI.ui.h
@@ -622,17 +622,20 @@ void TrimSPGUI::PlotProfiles()
     my $filenames=join(",",@files);
     print "Selected file: $filenames\n";
     
+    my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
+		"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
     if ($filenames ne "" ) {
 # Now that we have the file list send it to root macro for plotting.
-	my $cmd='root "plotRge.C(\"'.$filenames.'\")"';
-#    my $pid = open(FTO,"$cmd");
+	my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"';
+#	my $pid = open(FTO,"$cmd");
 	my $pid = open(FTO,"$cmd 2>&1 |");
+	print "PID=$pid\n";
 	while (<FTO>) {
-#	FitTextOutput->append("$_");
 	    print "$_";
 	}
 	close(FTO);
-# system($cmd);
+#	my $pid=system($cmd);
+	
     }
 }