#!/usr/bin/wksh -motif

quitCB() {  # Takes no arguments
    exit 0
}

XtAppInitialize TOPLEVEL quit Quit "$@"
XtCreateManagedWidget BUTTON button pushButton $TOPLEVEL labelString:Quit
XtAddCallback $BUTTON activateCallback quitCB
XtRealizeWidget $TOPLEVEL
XtMainLoop
