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

drivers/trun.tcl: fix issue with $tr - none

Browse Source
This commit is contained in:
zolliker
2023-08-08 13:12:49 +02:00
parent fd196d939a
commit 8439d765a4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/drivers/trun.tcl
View File

@ -497,9 +497,9 @@ 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] 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
sct prev_tr $tr
} else { } else {
set dif [expr $tr - $prev_tr] set dif [expr $tr - $prev_tr]
updateval_u [sct]/target $tr 0 updateval_u [sct]/target $tr 0