#!/usr/bin/wksh -openlook

quitCB() {  # Takes no arguments
    exit 0
}

OlInitialize TOPLEVEL quit Quit "$@"
XtCreateManagedWidget BUTTON button oblongButton $TOPLEVEL label:Quit
XtAddCallback $BUTTON select quitCB
XtRealizeWidget $TOPLEVEL
XtMainLoop
