28 lines
489 B
Tcl
28 lines
489 B
Tcl
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
|
|
}
|