- 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);
+ destruct = XtVaCreateManagedWidget("destruct",
+ commandWidgetClass, buttons,
+ XtNlabel, "Destruct", NULL);
+ /* the command window */
+ text = XtVaCreateManagedWidget ("text", asciiTextWidgetClass, form,
+ XtNfromVert, buttons,
+ XtNresize, XawtextResizeBoth,
+ XtNresizable, True, NULL);
+
+ /* sample text so the widget will be identifiable */
+ XtVaSetValues (text, XtNtype, XawAsciiString,
+ XtNstring, "Command window", NULL);