From: Eric S. Raymond Date: Wed, 13 Sep 2006 17:57:12 +0000 (+0000) Subject: Beginnings of a button panel. X-Git-Tag: 2.0~283 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=cb7badd92a2920ca863cc45af6b58e89ea9e5a9f;p=super-star-trek.git Beginnings of a button panel. --- diff --git a/src/xio.c b/src/xio.c index ea13d05..63facea 100644 --- a/src/xio.c +++ b/src/xio.c @@ -7,7 +7,7 @@ #include XtAppContext app_context; -Widget toplevel, form, quit, text; +Widget toplevel, form, buttons, quit, destruct, text; void quit_proc (Widget w, XtPointer client_data, XtPointer call_data) { @@ -21,18 +21,22 @@ int main (int argc, char **argv) argv, NULL, applicationShellWidgetClass, XtNallowShellResize, True, NULL); form = XtVaCreateManagedWidget ("form", formWidgetClass, toplevel, NULL); - quit = XtVaCreateManagedWidget ("quit", commandWidgetClass, form, XtNlabel, - "Quit", NULL); + buttons = XtVaCreateManagedWidget ("form", formWidgetClass, form, NULL); + quit = XtVaCreateManagedWidget("quit", + commandWidgetClass, buttons, + XtNlabel, "Quit", NULL); + destruct = XtVaCreateManagedWidget("destruct", + commandWidgetClass, buttons, + XtNfromHoriz, quit, + XtNlabel, "Destruct", NULL); text = XtVaCreateManagedWidget ("text", asciiTextWidgetClass, form, - XtNfromVert, quit, XtNresize, + XtNfromVert, buttons, XtNresize, XawtextResizeBoth, XtNresizable, True, NULL); XtAddCallback (quit, XtNcallback, quit_proc, NULL); - if (argc <= 1) - XtVaSetValues (text, XtNtype, XawAsciiString, - XtNstring, "Fool! You should" - " supply a file name!", NULL); - else - XtVaSetValues (text, XtNtype, XawAsciiFile, XtNstring, argv [1], NULL); + + /* sample text so the widget will be identifiable */ + XtVaSetValues (text, XtNtype, XawAsciiString, + XtNstring, "Command window", NULL); XtVaSetValues (text, XtNeditType, XawtextRead, XtNdisplayCaret, False, NULL); XtRealizeWidget (toplevel); XtAppMainLoop (app_context);