move a lot of stuff to git
This commit is contained in:
30
tcl/drivers/srsbga244.tcl
Normal file
30
tcl/drivers/srsbga244.tcl
Normal file
@ -0,0 +1,30 @@
|
||||
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
|
||||
}
|
||||
|
Reference in New Issue
Block a user