#!/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