X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fxio.c;h=9e59c19945c595c9af846ff61a972695a7c98ef3;hp=a84ee44192a077809e8da3bb7be703b3a89fa84b;hb=9aef5f5aae5fde0ed2b462945750c7aee59b3c1e;hpb=a4e2f7b1e48278ae7642c8fda987a67fe8674420 diff --git a/src/xio.c b/src/xio.c index a84ee44..9e59c19 100644 --- a/src/xio.c +++ b/src/xio.c @@ -1,71 +1,202 @@ +/* + * Problems with this code: + * 1. The text window behaves like it's only a few lines high, + * scrolling in response to Return when the insertion point + * is nowhere near the last line. + * 2. The attempt to insert text with XawTextReplace() core dumps. + * 3. I haven't found a way to write a callback that triggers on Return + * and yields the line before the return. The explanation at + * http://www.linuxjunkies.org/programming/GUI/xwindow/x11/text.html + * hints that this may be difficult. + * + * The functional goal is this: + * 1. Button pushes should be able to insert commands at the buffer's + * current insertion point. + * 2. When a user finishes a command with Return, a callback should + * receive the line of input typed. + * + * All the input passed to the game in back of this will be lines full + * of commands generated either by typing into the text buffer directly + * or by button presses that generate text unto the buffer. + */ #include +#include #include #include #include +#include #include #include #include +//#include "sst.h" +#define OPTION_PLANETS 1 +#define OPTION_PROBE 2 -XtAppContext app_context; -Widget toplevel, form, text; -Widget buttons, phasers, photons, destruct, quit; - -String fallback[] = { - /* button labels */ - "*phasers.label: Phasers", - "*photons.label: Torps", - "*destruct.label: Destruct", - "*quit.label: Quit", - /* text window resources */ +static XtAppContext app_context; +static Widget toplevel, text, form; +static Widget navigation, weapons, planets, misc; +static Widget navlabel, weaplabel, planlabel, misclabel; + +static String fallback[] = { "*text.resizable: true", "*text.resize: ResizeBoth", - /* layout constraints */ - "*photons.fromHoriz: phasers", - "*destruct.fromHoriz: photons", - "*quit.fromHoriz: destruct", + "*text.width: 640", + "*text.height: 200", + "*text.autoFill: True", + "*text.scrollVertical: Always", + "*text.scrollHorizontal: WhenNeeded", + "*text.displayCaret: True", + "*navigation.fromVert: text", + "*navigation.borderWidth: 0", + "*navlabel.label: Navigation: ", + "*navlabel.borderWidth: 0", + "*weapons.fromVert: navigation", + "*weapons.borderWidth: 0", + "*weaplabel.label: Weapons: ", + "*weaplabel.borderWidth: 0", + "*planets.fromVert: weapons", + "*planets.borderWidth: 0", + "*planlabel.label: Planets: ", + "*planlabel.borderWidth: 0", + "*misc.fromVert: planets", + "*misc.borderWidth: 0", + "*misclabel.label: Miscellaneous:", + "*misclabel.borderWidth: 0", NULL, }; -static void quit_proc (Widget w, XtPointer client_data, XtPointer call_data) +struct cmd_t { + char *name; + void (*callback)(Widget, XtPointer, XtPointer); + Widget *parent; + int enable; + Widget widget; + +}; + +static void quit_proc(Widget w, XtPointer client_data, XtPointer call_data) { XtDestroyApplicationContext (app_context); exit (0); } -int main (int argc, char **argv) +static void text_append_to(Widget w, String str) +/* append text to a specified text widget */ +{ + XawTextBlock txtblk; + XawTextPosition textend = XawTextGetInsertionPoint(w); + + txtblk.ptr = str; + txtblk.length = strlen(str); + txtblk.firstPos = 0; + txtblk.format = FMT8BIT; + + XawTextReplace(w, textend, textend, &txtblk); +} + +static void noargs_proc(Widget w, XtPointer client_data, XtPointer call_data) +/* use this for commands that take no arguments */ +{ + /* currently a stub */ + text_append_to(w, XtName(w)); + printf("Button %s pressed\n", XtName(w)); +} + +static struct cmd_t commands[] = { + {"Move", NULL, &navigation, 0}, + {"Dock", noargs_proc, &navigation, 0}, + {"Chart", noargs_proc, &navigation, 0}, + {"Impulse", NULL, &navigation, 0}, + {"Rest", NULL, &navigation, 0}, + {"Warp", NULL, &navigation, 0}, + {"Probe", NULL, &navigation, OPTION_PROBE}, + + {"Phasers", NULL, &weapons, 0}, + {"Torpedo", NULL, &weapons, 0}, + {"Shields", NULL, &weapons, 0}, + {"Damages", noargs_proc, &weapons, 0}, + {"Abandon", noargs_proc, &weapons, 0}, + {"Destruct", noargs_proc, &weapons, 0}, + {"Deathray", noargs_proc, &weapons, 0}, + {"Mayday", noargs_proc, &weapons, 0}, + + {"Sensors", noargs_proc, &planets, OPTION_PLANETS}, + {"Orbit", noargs_proc, &planets, OPTION_PLANETS}, + {"Transport", noargs_proc, &planets, OPTION_PLANETS}, + {"Mine", noargs_proc, &planets, OPTION_PLANETS}, + {"Crystals", noargs_proc, &planets, OPTION_PLANETS}, + {"Shuttle", noargs_proc, &planets, OPTION_PLANETS}, + {"Planets", noargs_proc, &planets, OPTION_PLANETS}, + + {"Score", noargs_proc, &misc, 0}, + {"Report", noargs_proc, &misc, 0}, + {"Computer", noargs_proc, &misc, 0}, + {"Save", NULL, &misc, 0}, + {"Quit", quit_proc, &misc, 0}, + {"Help", noargs_proc, &misc, 0}, +}; + +static void instantiate_main(int argc, char **argv) { - toplevel = XtVaOpenApplication (&app_context, "sst2k", NULL, 0, &argc, + struct cmd_t *cp; + + toplevel = XtVaOpenApplication(&app_context, "sst2k", NULL, 0, &argc, argv, fallback, applicationShellWidgetClass, XtNallowShellResize, True, NULL); - form = XtVaCreateManagedWidget ("form", formWidgetClass, toplevel, NULL); - /* The button panel */ - buttons = XtVaCreateManagedWidget ("form", formWidgetClass, form, NULL); - phasers = XtVaCreateManagedWidget("phasers", - commandWidgetClass, buttons, - NULL); - photons = XtVaCreateManagedWidget("photons", - commandWidgetClass, buttons, - NULL); - destruct = XtVaCreateManagedWidget("destruct", - commandWidgetClass, buttons, - NULL); - quit = XtVaCreateManagedWidget("quit", - commandWidgetClass, buttons, - NULL); - XtAddCallback (quit, XtNcallback, quit_proc, NULL); + form = XtVaCreateManagedWidget("form", formWidgetClass, toplevel, NULL); /* the command window */ - text = XtVaCreateManagedWidget ("text", asciiTextWidgetClass, form, - XtNfromVert, buttons, - 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); + text = XtVaCreateManagedWidget("text", + asciiTextWidgetClass, form, + XtNeditType, XawtextEdit, + NULL); + /* The button panels */ + navigation = XtVaCreateManagedWidget("navigation", + boxWidgetClass, form, + XtNorientation, XtorientHorizontal, + NULL); + navlabel = XtVaCreateManagedWidget("navlabel", + labelWidgetClass, navigation, + NULL); + weapons = XtVaCreateManagedWidget("weapons", + boxWidgetClass, form, + XtNorientation, XtorientHorizontal, + NULL); + weaplabel = XtVaCreateManagedWidget("weaplabel", + labelWidgetClass, weapons, + NULL); + planets = XtVaCreateManagedWidget("planets", + boxWidgetClass, form, + XtNorientation, XtorientHorizontal, + NULL); + planlabel = XtVaCreateManagedWidget("planlabel", + labelWidgetClass, planets, + XtNborderWidth, 0, + NULL); + misc = XtVaCreateManagedWidget("misc", + boxWidgetClass, form, + XtNorientation, XtorientHorizontal, + NULL); + misclabel = XtVaCreateManagedWidget("misclabel", + labelWidgetClass, misc, + NULL); + for (cp = commands; cp < commands + ARRAY_SIZE(commands); cp++) { + cp->widget = XtVaCreateManagedWidget(cp->name, + commandWidgetClass, + *cp->parent, + XtNlabel, cp->name, + NULL); + if (cp->callback) + XtAddCallback (cp->widget, XtNcallback, cp->callback, NULL); + } + XtRealizeWidget(toplevel); + XtAppMainLoop(app_context); /* loop may be interrupted */ - XtDestroyApplicationContext (app_context); + XtDestroyApplicationContext(app_context); +} + +int main(int argc, char **argv) +{ + instantiate_main(argc, argv); exit(0); }