linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

Browse Source
This commit is contained in:
zolliker
2023-03-23 13:48:01 +01:00
parent f3476f656c c34774bcae
commit c883a83567
23 changed files with 122 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tcl/drivers/secop_4.tcl
View File

@ -618,12 +618,12 @@ proc secop::update_ {} {
hsetprop $objpath status posfault
}
} else {
if {[silent idle hgetpropval $objpath status] eq "run" && $writestatus ne "done"
&& ($value < 300 || $value >= 390)} {
clientput "$objpath/target changed, but status not BUSY: $value $text_value ($writestatus)"
set value 300
set text_value "target changed ($text_value)"
}
# if {[silent idle hgetpropval $objpath status] eq "run" && $writestatus ne "done"
# && ($value < 300 || $value >= 390)} {
# clientput "$objpath/target changed, but status not BUSY: $value $text_value ($writestatus)"
# set value 300
# set text_value "target changed ($text_value)"
# }
if {$value < 300 || $value >= 390} { # not busy or finalizing
hsetprop $objpath status idle
}