-{ 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,
- XtNfromHoriz, 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);
+{
+ 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,
+ XtNfromHoriz, 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);