#!/usr/bin/wksh -motif

quitCB() {
	exit 0
}

selectCB() { 	# $1 = button number to print
	typeset set

	gv $CB_WIDGET set:set
	echo "Button $1 $set"
}

XtAppInitialize TOPLEVEL menu Menu "$@"

crtradiob MENU $TOPLEVEL MENU

crttoggleb ONE $MENU ONE valueChangedCallback:"selectCB ONE"
crttoggleb TWO $MENU TWO valueChangedCallback:"selectCB TWO"
crttoggleb EXIT $MENU EXIT valueChangedCallback:"exit 1"

XtRealizeWidget $TOPLEVEL
XtMainLoop
