29 lines
521 B
Tcl
29 lines
521 B
Tcl
namespace eval ccupressure {
|
|
}
|
|
|
|
proc stdConfig::ccupressure {ccu scale} {
|
|
controller syncedprot
|
|
|
|
obj CCUPRESSURE rd
|
|
prop ccu $ccu
|
|
prop scale $scale
|
|
prop read ccupressure::read
|
|
kids gas_pressure {
|
|
}
|
|
}
|
|
|
|
proc ccupressure::read {} {
|
|
if {[hval /pccu/fav] == 0} {
|
|
_[sct ccu] updatescript /[sct ccu]/f "ccupressure::update [sct] [sct scale]"
|
|
pccu fav 1
|
|
}
|
|
return idle
|
|
}
|
|
|
|
proc ccupressure::update {path scale value} {
|
|
hupdate $path [expr $value * $scale]
|
|
catch {
|
|
hdelprop $path geterror
|
|
}
|
|
}
|