X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fxio.c;h=9c5e03cf3221099515bbaaa3f03c0f24f813e29e;hp=ea13d0554cc1f044dee0267736149648972a10c6;hb=34935ff4685463b7aca1a32bd70561cdcc2f8829;hpb=38a3852bd4f39e5798588d94b958dabc3e56cc7a

diff --git a/src/xio.c b/src/xio.c
index ea13d05..9c5e03c 100644
--- a/src/xio.c
+++ b/src/xio.c
@@ -2,39 +2,132 @@
 #include <X11/Intrinsic.h>
 #include <X11/StringDefs.h>
 #include <X11/Shell.h>
+#include <X11/Xaw/Box.h>
 #include <X11/Xaw/Form.h>
 #include <X11/Xaw/Command.h>
 #include <X11/Xaw/AsciiText.h>
+#include "sst.h"
 
-XtAppContext app_context;
-Widget toplevel, form, quit, text;
+static XtAppContext app_context;
+static Widget toplevel, text, form; 
+static Widget navigation, weapons, status, planets, misc; 
 
-void quit_proc (Widget w, XtPointer client_data, XtPointer call_data)
+static String fallback[] = {
+    /* text window resources */
+    "*text.resizable: true",
+    "*text.resize: ResizeBoth",
+    NULL,
+};
+
+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 noargs_proc(Widget w, XtPointer client_data, XtPointer call_data)
+/* use this for commands that take no arguments */
+{
+    /* currently a stub */
+}
+
+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},
+
+    {"Score",		noargs_proc,	&status,	0},
+    {"Report",		noargs_proc,	&status,	0},
+    {"Computer",	noargs_proc,   	&status,	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},
+
+    {"Emexit",		noargs_proc,	&misc,		0},
+    {"Save",		NULL,		&misc,		0},
+    {"Quit",		quit_proc,	&misc,		0},
+    {"Help",		noargs_proc,	&misc,		0},
+};
+
+int main(int argc, char **argv)
 { 
-    toplevel = XtVaOpenApplication (&app_context, "XThird", NULL, 0, &argc,
-				    argv, NULL, applicationShellWidgetClass,
+    struct cmd_t *cp;
+
+    toplevel = XtVaOpenApplication(&app_context, "sst2k", NULL, 0, &argc,
+				    argv, fallback, 
+				    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);
+    form = XtVaCreateManagedWidget("form", formWidgetClass, toplevel, NULL);
+    /* the command window */
+    text = XtVaCreateManagedWidget("text", asciiTextWidgetClass, form, 
+				   XtNwidth, 400, XtNheight, 200,
+				   NULL);
+    XtVaSetValues(text, XtNeditType,XawtextRead, XtNdisplayCaret,False, NULL);
+    /* The button panels */
+    navigation  = XtVaCreateManagedWidget("navigation", 
+				       boxWidgetClass, form,
+				       XtNfromVert, text, 
+				       XtNorientation, XtorientHorizontal,
+				       NULL); 
+    weapons  = XtVaCreateManagedWidget("weapons", 
+				       boxWidgetClass, form,
+				       XtNfromVert, navigation, 
+				       XtNorientation, XtorientHorizontal,
+				       NULL); 
+    status   = XtVaCreateManagedWidget("status", 
+				       boxWidgetClass, form,
+				       XtNfromVert, weapons, 
+				       XtNorientation, XtorientHorizontal,
+				       NULL); 
+    planets  = XtVaCreateManagedWidget("planets", 
+				       boxWidgetClass, form,
+				       XtNfromVert, status, 
+				       XtNorientation, XtorientHorizontal,
+				       NULL); 
+    misc  = XtVaCreateManagedWidget("misc", 
+				       boxWidgetClass, form,
+				       XtNfromVert, planets, 
+				       XtNorientation, XtorientHorizontal,
+				       NULL); 
+    for (cp = commands; cp < commands + sizeof(commands)/sizeof(commands[0]); 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);
     exit(0);
 }