fix issues on heliox

tcl/drivers/heliox.tcl

@@ -31,12 +31,14 @@ proc stdConfig::heliox {} {
     prop help "how many hours the pot should last (< 75)"
   }
   catch {
-      hsetprop /tt getsample hvali /ts/pot
+      hsetprop /tt getsample hvali /th/pot
   } msg
   clientput $msg
 }
 
 proc heliox::check_set {} {
+  # save for later
+  sct goto [sct target]
   if {[sct target] < 1.6} {
     set condense_text ""
     if {[hvali [sct]/lasts_until] > [DoubleTime]} {
@@ -49,7 +51,7 @@ proc heliox::check_set {} {
       hupdate [sct]/mode 4
       set condense_text "started"
     }
-    sct goto [sct target]
+    # sct goto [sct target]
     if {$condense_text ne ""} {
       sct print "going to [sct target] K might take a while - condense process is $condense_text"
     }
@@ -111,13 +113,14 @@ proc heliox::check_set {} {
 }
 
 proc heliox::setmainsensor {mainsensor} {
-  set old [silent "" hgetpropval [sct objectPath] mainsensor]
-  if {$mainsensor ne $old} {
-    if {$old ne ""} {
+  if {$mainsensor eq "/th/low"} {
+    set old /th/pot
+  } else {
+    set old /th/low
+  }
   catch {[sct controller] killupdatescript $old "updateval [sct objectPath]"}
-    }
   [sct controller] updatescript $mainsensor "updateval [sct objectPath]"
-  }
+  hsetprop [sct objectPath] mainsensor $mainsensor
 }
 
 proc heliox::check_mode {} {