From 6c633808229a6c14f66ff02e4db17444b12266ee Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Wed, 7 Nov 2007 15:51:37 +1100 Subject: [PATCH] Provide a runscan_reset_position variable so we can make the "runscan" command behaviour instrument specific. It defaults to false, which means that the scan motor position won't be reset on scan finish. r2242 | ffr | 2007-11-07 15:51:37 +1100 (Wed, 07 Nov 2007) | 2 lines --- site_ansto/instrument/config/scan/scan_common_1.tcl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/site_ansto/instrument/config/scan/scan_common_1.tcl b/site_ansto/instrument/config/scan/scan_common_1.tcl index ff70926c..b9903660 100644 --- a/site_ansto/instrument/config/scan/scan_common_1.tcl +++ b/site_ansto/instrument/config/scan/scan_common_1.tcl @@ -319,10 +319,12 @@ sicslist setatt ::scan::hdb_bmonscan long_name bmonscan sicslist setatt ::scan::hdb_hmscan long_name hmscan namespace eval scan { namespace export runscan + VarMake ::scan::runscan_reset_position Text internal + ::scan::runscan_reset_position false proc runscan {scanvar start stop numpoints mode preset {savetype "save"} } { variable save_filetype variable reset_position - set reset_position "true" + set reset_position [SplitReply [::scan::runscan_reset_position]] if {[is_drivable $scanvar] == 0} { return -code error "The scan variable <$scanvar> must be drivable" }