From eb79d3ae4759726e55e6e4ff1b5622db283e5abd Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 10 Jan 2007 09:15:02 +1100
Subject: [PATCH] Added nxfileopen flag and some sics variables

r1388 | ffr | 2007-01-10 09:15:02 +1100 (Wed, 10 Jan 2007) | 2 lines
---
 site_ansto/instrument/hrpd/echidna_configuration.tcl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/site_ansto/instrument/hrpd/echidna_configuration.tcl b/site_ansto/instrument/hrpd/echidna_configuration.tcl
index e41919de..eebf7ae1 100644
--- a/site_ansto/instrument/hrpd/echidna_configuration.tcl
+++ b/site_ansto/instrument/hrpd/echidna_configuration.tcl
@@ -1,5 +1,5 @@
-# $Revision: 1.9 $
-# $Date: 2006-12-07 22:12:48 $
+# $Revision: 1.10 $
+# $Date: 2007-01-09 22:15:02 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by: $Author: ffr $
 
@@ -17,7 +17,8 @@ source server_config.tcl
 VarMake Instrument Text Internal 
 Instrument Echidna 
 Instrument lock
-VarMake bm_distance Float User
+VarMake sics_bm_distance Float User
+VarMake sics_mono_crystal Text User
 
 #MakeCounter simCtr SIM -1.0
 #MakeScanCommand  xxxscan simCtr echidna.hdd recover.bin
@@ -25,13 +26,13 @@ VarMake bm_distance Float User
 fileeval motor_configuration.tcl
 
 proc nxcreatefile {{type nx5}} {
-  global dataFileName;
+  global dataFileName nxFileOpen;
   SicsDataPostFix .$type;
 
   array set nxmode [list h5 create5 nx5 create5 xml createxml];
   set dataFileName [nxscript makefilename]
   nxscript $nxmode($type) $dataFileName echidna.dic;
-  nxscript close;
+  set nxFileOpen true
 }
 
 publish nxcreatefile user