#!/usr/bin/wksh -openlook

sliderCB() { 	# $1 = slider widget handle

	sv $TEXT string:$CALL_DATA_NEW_LOCATION
}

oi TOPLEVEL slider Slider "$@"

cmw CONTROL control controlArea $TOPLEVEL \
	layoutType:fixedcols measure:1

cmw SLIDER slider slider $CONTROL orientation:horizontal width:200
acb $SLIDER sliderMoved "sliderCB $SLIDER"
cmw TEXT text staticText $CONTROL string:0
rw $TOPLEVEL
ml
