#!/usr/bin/wksh -openlook

selProcCB() {
	ofgv $1 $CB_INDEX label:name
	echo "Got: " $name
}

OlInitialize TOPLEVEL flat Flat "$@"
XtCreateManagedWidget FORM form form $TOPLEVEL

XtCreateManagedWidget F f flatExclusives $FORM \
	itemFields:'{font, label}' \
	items:' {6x13, Small}, {9x15, Medium}, {12x24, Large}'

sv $F selectProc:"selProcCB $F"

XtRealizeWidget $TOPLEVEL
XtMainLoop
