#!/usr/bin/wksh -motif

#
# A simple demo of the uses of dataprint and dataparse
#

do_ok() {
	RESET_DATA="`dataprint $c`"
	echo "DATA IN $c:"
	echo "$RESET_DATA"
}

do_reset() {
	datareset $c "$RESET_DATA"
}

ai t t t
addcols $t c
addfields $c A A : 10 B B : 10
cmw s s scale $c orientation:horizontal
addrows $c r
addbuttons $r OK do_ok RESET do_reset
rw $t
RESET_DATA="`dataprint $c`"
ml
