#!/usr/bin/wksh -motif

textCB() {
	gv $1 value:string
	sv $MESSAGE \
		labelString:"Footer: TEXTFIELD User Input: $string"

	sv $1 value:""
}

ai TOPLEVEL textfield Textfield "$@"

cmw RC rc rowColumn $TOPLEVEL orientation:vertical

addfields $RC \
	TEXT "Textfield: type <return> when done" 'textCB $TEXT' 10

cmw MESSAGE message label $RC labelString:"Footer:"

rw $TOPLEVEL
ml
