22 lines
672 B
Tcl
22 lines
672 B
Tcl
proc fixheater {} {
|
|
if {[catch {hval /tt/set/reg}]} {
|
|
set mout2 [silent 0 hgetpropval /tt/set/power last_htr]
|
|
hsetprop /tt/set @manual_out $mout2
|
|
set mout1 [silent 0 hgetpropval /tt/setvti/power last_htr]
|
|
hsetprop /tt/setvti @manual_out $mout1
|
|
tt set [silent 0 hgetpropval /tt/set last_target]
|
|
tt setvti [silent 0 hgetpropval /tt/setvti last_target]
|
|
} else {
|
|
set htr [silent 0 hgetpropval /tt/set/power htr]
|
|
if {$htr} {
|
|
hsetprop /tt/set/power last_htr $htr
|
|
}
|
|
set htr [silent 0 hgetpropval /tt/setvti/power htr]
|
|
if {$htr} {
|
|
hsetprop /tt/setvti/power last_htr $htr
|
|
}
|
|
}
|
|
}
|
|
|
|
publishLazy fixheater
|