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

fix error with dblctrl (not going to 'up' mode)

Browse Source
This commit is contained in:
zolliker
2023-07-03 18:06:51 +02:00
parent 4fd3ad4985
commit b2c0c1c62e
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/drivers/trun.tcl
View File

@ -496,10 +496,12 @@ proc trun::read_run {} {
} }
set now [DoubleTime] set now [DoubleTime]
set tr [silent none sct target] set tr [silent none sct target]
set prev_tr [silent $tr sct prev_tr]
sct prev_tr $tr
if {$tr eq "none"} { if {$tr eq "none"} {
set tr $tmain set tr $tmain
} else { } else {
set dif [expr abs($tr) - [hvali [sct]/target]] set dif [expr $tr - $prev_tr]
updateval_u [sct]/target $tr 0 updateval_u [sct]/target $tr 0
set dblmode [silent -1 hval [sct]/dblctrl/mode] set dblmode [silent -1 hval [sct]/dblctrl/mode]
if {$dblmode >= 0} { # not disabled if {$dblmode >= 0} { # not disabled