#!/usr/bin/wksh -openlook

selectCB() {   # $1 = widget handle of button
	XtSetValues $1 label:"Goodbye World"
	XtAddCallback $1 select "exit 0"
}

OlInitialize TOPLEVEL hello Hello -openlook "$@"
XtCreateManagedWidget B b oblongButton $TOPLEVEL label:"Hello World"
XtAddCallback $B select "selectCB $B"
XtRealizeWidget $TOPLEVEL
XtMainLoop

