From 97b93dcb8f9ced5df8ec61b19d0b5dda526acdfc Mon Sep 17 00:00:00 2001
From: Zaher Salman <zaher.salman@psi.ch>
Date: Fri, 27 Apr 2012 08:07:52 +0000
Subject: [PATCH] Check mac file

---
 geant4/PQt_musrSim/QmuSRSim.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/geant4/PQt_musrSim/QmuSRSim.pl b/geant4/PQt_musrSim/QmuSRSim.pl
index c916da8..e20778e 100644
--- a/geant4/PQt_musrSim/QmuSRSim.pl
+++ b/geant4/PQt_musrSim/QmuSRSim.pl
@@ -1,6 +1,6 @@
 # Form implementation generated from reading ui file 'QmuSRSim.ui'
 #
-# Created: Thu Apr 26 17:05:32 2012
+# Created: Fri Apr 27 10:07:20 2012
 #      by: The PerlQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!
@@ -18906,6 +18906,7 @@ sub CheckSim
     my $Geant4PATH= Geant4->text();
     my $SaveDataPATH= SaveData->text();
     my $ROOTSYSPATH=ROOTSYS->text();
+    my $MAC=MAC->text();
     
 # Check if any of them is empty or does not exist
     unless (-d $musrSimPATH) {
@@ -18925,6 +18926,12 @@ sub CheckSim
 	$answ=0;
 	$answtext=$answtext."ROOTSYS Path is wrong!\n";
     }
+
+    my $NewFile="$musrSim/run/$MAC.mac";
+    unless (-e $NewFile) {
+      $answ=0;
+      $answtext=}answtext."Macro file $NewFile exists!\n";
+    }
     
     if ($answ==0) {
 	print STDERR $answtext;