initial commit
This commit is contained in:
27
tcl/drivers/drvpar.tcl
Normal file
27
tcl/drivers/drvpar.tcl
Normal file
@ -0,0 +1,27 @@
|
||||
namespace eval drvpar {
|
||||
}
|
||||
|
||||
proc stdConfig::drvpar {parpath} {
|
||||
controller syncedprot
|
||||
|
||||
obj DRVPAR -drive rd
|
||||
prop read drvpar::read
|
||||
prop path $parpath
|
||||
}
|
||||
|
||||
proc drvpar::update {path val} {
|
||||
updateval $path $val
|
||||
}
|
||||
|
||||
proc drvpar::read {} {
|
||||
catch {
|
||||
[sct controller] updatescript [sct path] "drvpar::update [sct]"
|
||||
}
|
||||
set err [silent "" hgetpropval [sct path] geterror]
|
||||
if {$err ne ""} {
|
||||
updateerror [sct] $err
|
||||
} else {
|
||||
updateval [sct] [hvali [sct]]
|
||||
}
|
||||
return idle
|
||||
}
|
Reference in New Issue
Block a user