X-Git-Url: https://jxself.org/git/?p=super-star-trek.git;a=blobdiff_plain;f=src%2Fxio.c;h=126da025166b1ba5de6ca7c9ea4a89f12f3814e7;hp=65098bff143e10b05708bff793cb5f15501034e2;hb=f21d3481583b5cf877fc7b6efd6f2e08a1ade4b9;hpb=0bc4964e6bcf3a3ee3b383ee79a97f69ffa48b46

diff --git a/src/xio.c b/src/xio.c
index 65098bf..126da02 100644
--- a/src/xio.c
+++ b/src/xio.c
@@ -8,6 +8,8 @@
 #include <X11/Xaw/AsciiText.h>
 #include "sst.h"
 
+#undef length	/* ugh -- must get rid of ugly #defines */
+
 static XtAppContext app_context;
 static Widget toplevel, text, form; 
 static Widget navigation, weapons, planets, misc; 
@@ -18,6 +20,10 @@ static String fallback[] = {
     "*text.resize: ResizeBoth",
     "*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:   ",
@@ -52,10 +58,25 @@ static void quit_proc(Widget w, XtPointer client_data, XtPointer call_data)
     exit (0);
 }
 
+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));
 }
 
@@ -106,7 +127,6 @@ static void instantiate_main(int argc, char **argv)
     text = XtVaCreateManagedWidget("text", 
 				   asciiTextWidgetClass, form,
 				   XtNeditType, XawtextEdit,
-				   XtNdisplayCaret,False,
 				   NULL);
     /* The button panels */
     navigation  = XtVaCreateManagedWidget("navigation",