#!/usr/bin/wksh -openlook

sliderCB() { 	# $1 = slider widget handle
	sv $TEXT string:$CALL_DATA_NEW_LOCATION
}

oi TOPLEVEL form Form "$@"

cmw FORM form form $TOPLEVEL 

cmw SLIDER slider slider $FORM orientation:vertical height:100 x:5 y:5
acb $SLIDER sliderMoved "sliderCB $SLIDER"
cmw TEXT text staticText $FORM `rightof $SLIDER 10` string:0

cmw FOOT footer footerPanel $FORM `floatbottom; under $SLIDER 10`
cmw message message staticText $FOOT string:"Message Area"

rw $TOPLEVEL
ml
