#!/usr/bin/wksh -motif

scaleCB() { 	# $1 = slider widget handle
	gv $1 value:value
	sv $TEXT labelString:$value
}

ai TOPLEVEL scale Scale "$@"

cmw RC rc rowColumn $TOPLEVEL orientation:vertical

cmw SCALE scale scale $RC orientation:HORIZONTAL
acb $SCALE dragCallback "scaleCB $SCALE"
cmw TEXT text label $RC labelString:0
rw $TOPLEVEL
ml
