🚀 go-pugleaf

I'm having trouble getting accelerators to work.  What's wrong with
the following code?  The intent is to have a Return keypress in the
dialog's `value' widget cause a set()notify()unset() action sequence
in the dialog's `show' widget.  I'm using the R3 Athena widgets on a
DS 3100 running Ultrix.

Thanks for any help - John
hagerman@ece.cmu.edu

#include <stdio.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Command.h>
#include <X11/Dialog.h>
#include <X11/Shell.h>

Widget Dialog;
Arg DialogArgs[] = {
    { XtNlabel, (XtArgVal) "label"},
    { XtNvalue, (XtArgVal) "value"},
};

ShowCallback(w, client_data, call_data)
    Widget w;
    caddr_t client_data, call_data;
{
    printf("%s\n", XtDialogGetValueString(Dialog));
}

main(argc, argv)
    int argc;
    char **argv;
{
    Display *dsp;
    XtAppContext ac;
    Widget top, cmd, val;
    XtAccelerators acc;
    Arg arg[1];

    XtToolkitInitialize();
    ac = XtCreateApplicationContext();
    dsp = XtOpenDisplay(ac, 0, 0, "accel", 0, 0, &argc, argv);
    top = XtAppCreateShell(0, "top", applicationShellWidgetClass, dsp, 0, 0);
    Dialog = XtCreateManagedWidget("dialog", dialogWidgetClass, top,
				   DialogArgs, XtNumber(DialogArgs));
    cmd = XtCreateManagedWidget("show", commandWidgetClass, Dialog, 0, 0);
    XtAddCallback(cmd, XtNcallback, ShowCallback, 0);
    val = XtNameToWidget(Dialog, "value");
    acc = XtParseAcceleratorTable("<Key>Return:set()notify()unset()");
    XtSetArg(arg[0], XtNaccelerators, (XtArgVal) acc);
    XtSetValues(cmd, arg, 1);
    XtInstallAccelerators(val, cmd);
    XtRealizeWidget(top);
    XtAppMainLoop(ac);
}