From: Stas Sergeev Date: Wed, 13 Sep 2006 17:32:01 +0000 (+0000) Subject: move xio.c to src X-Git-Tag: 2.0~285 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=38a3852bd4f39e5798588d94b958dabc3e56cc7a;p=super-star-trek.git move xio.c to src --- diff --git a/src/xio.c b/src/xio.c new file mode 100644 index 0000000..ea13d05 --- /dev/null +++ b/src/xio.c @@ -0,0 +1,40 @@ +#include +#include +#include +#include +#include +#include +#include + +XtAppContext app_context; +Widget toplevel, form, quit, text; + +void quit_proc (Widget w, XtPointer client_data, XtPointer call_data) +{ + XtDestroyApplicationContext (app_context); + exit (0); +} + +int main (int argc, char **argv) +{ + toplevel = XtVaOpenApplication (&app_context, "XThird", NULL, 0, &argc, + argv, NULL, applicationShellWidgetClass, + XtNallowShellResize, True, NULL); + form = XtVaCreateManagedWidget ("form", formWidgetClass, toplevel, NULL); + quit = XtVaCreateManagedWidget ("quit", commandWidgetClass, form, XtNlabel, + "Quit", NULL); + text = XtVaCreateManagedWidget ("text", asciiTextWidgetClass, form, + XtNfromVert, quit, 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); + XtVaSetValues (text, XtNeditType, XawtextRead, XtNdisplayCaret, False, NULL); + XtRealizeWidget (toplevel); + XtAppMainLoop (app_context); + exit(0); +} diff --git a/xio.c b/xio.c deleted file mode 100644 index ea13d05..0000000 --- a/xio.c +++ /dev/null @@ -1,40 +0,0 @@ -#include -#include -#include -#include -#include -#include -#include - -XtAppContext app_context; -Widget toplevel, form, quit, text; - -void quit_proc (Widget w, XtPointer client_data, XtPointer call_data) -{ - XtDestroyApplicationContext (app_context); - exit (0); -} - -int main (int argc, char **argv) -{ - toplevel = XtVaOpenApplication (&app_context, "XThird", NULL, 0, &argc, - argv, NULL, applicationShellWidgetClass, - XtNallowShellResize, True, NULL); - form = XtVaCreateManagedWidget ("form", formWidgetClass, toplevel, NULL); - quit = XtVaCreateManagedWidget ("quit", commandWidgetClass, form, XtNlabel, - "Quit", NULL); - text = XtVaCreateManagedWidget ("text", asciiTextWidgetClass, form, - XtNfromVert, quit, 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); - XtVaSetValues (text, XtNeditType, XawtextRead, XtNdisplayCaret, False, NULL); - XtRealizeWidget (toplevel); - XtAppMainLoop (app_context); - exit(0); -}