#!/usr/bin/wksh -openlook

textfieldCB() {
	gv $1 string:string
	sv $MESSAGE \
		string:"Footerpanel: TEXTFIELD User Input: $string"

	sv $1 string:""
}

oi TOPLEVEL textfield Textfield "$@"

cmw FOOTER footer footerPanel $TOPLEVEL

addfields $FOOTER \
	TEXT "Textfield: type <return> when done" 'textfieldCB $TEXT' 10

cmw MESSAGE text staticText $FOOTER string:""

rw $TOPLEVEL
ml
