X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fxio.c;h=63faceada62e4320fc425ff2f14af61b19a22360;hp=ea13d0554cc1f044dee0267736149648972a10c6;hb=cb7badd92a2920ca863cc45af6b58e89ea9e5a9f;hpb=51dbba06363963a29eef1e11b867bd8aad66ac49 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);