31 lines
433 B
Tcl
31 lines
433 B
Tcl
namespace eval srsbga244 {} {
|
|
}
|
|
|
|
proc stdConfig::srsbga244 {} {
|
|
controller std "" 5
|
|
prop read srsbga244::read
|
|
prop update srsbga244::update
|
|
|
|
obj He3 rd
|
|
prop cmd RATO?1%
|
|
kids He3 {
|
|
# node prx rd -text
|
|
# prop cmd PRX
|
|
|
|
node press rd
|
|
prop cmd PRES?bar
|
|
|
|
}
|
|
}
|
|
|
|
proc srsbga244::read {} {
|
|
sct send "[sct cmd]\r\n"
|
|
return update
|
|
}
|
|
|
|
proc srsbga244::update {} {
|
|
sct update [sct result]
|
|
return idle
|
|
}
|
|
|