32 lines
493 B
Tcl
32 lines
493 B
Tcl
namespace eval ttdummy {} {
|
|
}
|
|
|
|
proc stdConfig::ttdummy {} {
|
|
controller syncedprot
|
|
|
|
obj NvDummy wr 1.5
|
|
prop read ttdummy::update
|
|
prop write ttdummy::update
|
|
prop check ttdummy::update
|
|
prop target 1.5
|
|
|
|
kids "tt dummy" {
|
|
node set par 0
|
|
|
|
node tm par 1.5
|
|
|
|
node ts par 1.5
|
|
|
|
kids "settings" {
|
|
node curve -text par "undefined"
|
|
}
|
|
}
|
|
}
|
|
|
|
proc ttdummy::update {} {
|
|
sct update [sct target]
|
|
hset [sct]/tm [sct target]
|
|
hset [sct]/ts [sct target]
|
|
return idle
|
|
}
|