SICS-561: Wait for the hmm COUNTEND event in blocking mode.

Also allow veto when scanning.
2013-03-02 17:02:30 +11:00
parent ed95f3aaaf
commit 94f21f832e
2 changed files with 10 additions and 22 deletions
--- a/site_ansto/instrument/util/eventutil.tcl
+++ b/site_ansto/instrument/util/eventutil.tcl
@@ -37,7 +37,7 @@ proc ::event::waitfor {sobj args} {
    set oldStatus [lindex [SplitReply [status]] 0]
    eval $args
    while {$sobjBusy == 1} {
-      wait 2
+      wait 1
    } 
    scriptcallback remove $sobj $CBID
    SetStatus $oldStatus