23 lines
486 B
Plaintext
Executable File
23 lines
486 B
Plaintext
Executable File
#!/usr/bin/wish8.0
|
|
load libtclcdev.so
|
|
|
|
cdev hunt:ai001 "set VAL" "value 123.5"
|
|
cdev hunt:ai001 "get VAL"
|
|
|
|
label .l -textvariable Control(hunt:ai001.VAL) -width 10
|
|
pack .l
|
|
cdev hunt:ai001 "monitorOn VAL" hunt:ai001.VAL
|
|
|
|
scale .s -variable dummy -command {cdev hunt:ai001 "set VAL" "value $dummy"}
|
|
pack .s
|
|
|
|
cdev hunt:bi001 "set VAL" "value 1"
|
|
cdev hunt:bi001 "get VAL"
|
|
|
|
label .l -textvariable Control(sls_bi0:b1.VAL) -width 10
|
|
pack .l
|
|
cdev sls_bi0:b1 "monitorOn VAL" sls_bi0:b1.VAL
|
|
|
|
|
|
|