- Added forceclear to scancom

tcl/scancom.tcl

@@ -276,7 +276,6 @@ object_class ScanCommand {
             ClientPut "ERROR: Scan already in progress" error
             return 
      }
-     set slot(Active) 1
      xxxscan clear
      for {set i 0 } { $i < $slot(NoVar)} {incr i} {
        set ret [catch {xxxscan add [lindex $slot(scanvars) $i] \
@@ -286,6 +285,7 @@ object_class ScanCommand {
                error $msg
        }
      }
+     set slot(Active) 1
      set ret [catch \
          {xxxscan run $slot(NP) $slot(Mode) $slot(Preset)} msg]
      set slot(Active) 0
@@ -302,6 +302,10 @@ object_class ScanCommand {
        set slot(Active) 0  
        return "Scan Finished"
    }
+   
+   method forceclear {} {
+      set slot(Active) 0
+   }
 }
 #---- end of ScanCommand definition