diff --git a/tcl/drivers/heliox.tcl b/tcl/drivers/heliox.tcl index 3676209..03bb43a 100644 --- a/tcl/drivers/heliox.tcl +++ b/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 ""} { - catch {[sct controller] killupdatescript $old "updateval [sct objectPath]"} - } - [sct controller] updatescript $mainsensor "updateval [sct objectPath]" + 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 {} {