diff --git a/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl b/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl index cd9f143c..92067ff1 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl @@ -179,6 +179,7 @@ debug_log "setValue $dev:16:$cmd $par" if {[string first "ASCERR:" $data] >=0} { sct geterror $data } elseif {$data != [sct oldval]} { + hdelprop [sct] geterror sct oldval $data sct update $data sct utime readtime @@ -221,6 +222,13 @@ debug_log "setValue $dev:16:$cmd $par" proc setSP {tc_root nextState cmd} { debug_log "setSP $tc_root $nextState $cmd [sct]=[sct target] [hget [sct]]" + debug_log "setSP sct = [sct], sct writestatus = [sct writestatus]" + if {[sct writestatus] == "start"} { + # Called by drive adapter + hset $tc_root/status "busy" + debug_log "setSP hsetprop $tc_root/setpoint driving 1" + hsetprop $tc_root/setpoint driving 1 + } hset $tc_root/Loop1/setpoint [sct target] return idle } @@ -502,7 +510,7 @@ proc createNode {scobj_hpath sct_controller cmdGroup varName readable writable\ } ::scobj::hinitprops $tempobj - hsetprop $scobj_hpath klass NXenvironment + hsetprop $scobj_hpath klass environment ::scobj::set_required_props $scobj_hpath foreach {rootpath hpath klass priv} " $scobj_hpath sensor NXsensor spy @@ -523,6 +531,7 @@ proc createNode {scobj_hpath sct_controller cmdGroup varName readable writable\ hsetprop $scobj_hpath privilege spy ::scobj::hinitprops $tempobj setpoint hsetprop $scobj_hpath/setpoint data true + hsetprop $scobj_hpath/setpoint type drivable if {[SplitReply [environment_simulation]]=="false"} { ansto_makesctdrive ${tempobj}_driveable $scobj_hpath/setpoint $scobj_hpath/sensor/value $sct_controller }