fix stick sensors on reload
it seems stick sensors are not installed properly sometimes after restart. fix_stick_sensors is triggered for execution on creation of an lsc object
This commit is contained in:
@ -652,6 +652,16 @@ proc stick_sensors {sensor1 sensor2} {
|
||||
}
|
||||
}
|
||||
|
||||
proc fix_stick_sensors {} {
|
||||
# fix stick sensors
|
||||
foreach path {/tt/ts/curve /tt/ts_2/curve} {
|
||||
set curv [silent "" hval $path]
|
||||
if {$curv ne ""} {
|
||||
hset $path $curv
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
proc ts_sensor {sensor} {
|
||||
catch {
|
||||
catch {
|
||||
|
Reference in New Issue
Block a user