diff options
Diffstat (limited to 'main.c')
| -rw-r--r-- | main.c | 510 |
1 files changed, 510 insertions, 0 deletions
@@ -0,0 +1,510 @@ +/* $XConsortium: main.c,v 1.22 94/04/17 20:45:30 rws Exp $ */ +/* + +Copyright (c) 1991 X Consortium + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be included +in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. +IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR +OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, +ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of the X Consortium shall +not be used in advertising or otherwise to promote the sale, use or +other dealings in this Software without prior written authorization +from the X Consortium. + +*/ +/* $XFree86: xc/programs/xgc/main.c,v 1.5 2001/10/28 03:34:34 tsi Exp $ */ + +/* xgc +** +** main.c +** +** Contains the bare minimum necessary to oversee the whole operation. +*/ + +#include <X11/Intrinsic.h> +#include <X11/StringDefs.h> +#include <X11/Xaw/Form.h> +#include <X11/Xaw/Command.h> +#include <X11/Xaw/AsciiText.h> +#include <X11/Shell.h> +#include <stdio.h> +#include <stdlib.h> + +#include "xgc.h" +#define DEFINE_TILE +#include "tile" +#include "main.h" + +static void fill_up_commandform(); +extern void run_test(); +static void quit(); +static void quitAction(); +static void clear_test_window(); +static void clear_result_window(); +extern void start_playback(); +extern void read_from_keyboard(); +extern void toggle_recordbutton(); +static void set_foreground_and_background(); +extern ChoiceDesc *create_choice(); +extern void choose_defaults(); +extern void line_up_labels(); +extern Widget create_text_choice(); +extern void create_planemask_choice(); +extern void create_dashlist_choice(); +extern void create_testfrac_choice(); +extern void GC_change_foreground(); +extern void GC_change_background(); +extern void GC_change_font(); +extern void close_file_if_recording(); +extern void set_text (Widget ww, char *string); + +#ifdef notdef +int fildes[2]; /* for pipe */ +FILE *outend; +#endif + +XStuff X; /* GC stuff plus some global variables */ +Boolean recording = FALSE; /* Whether we're recording into a file */ +XtAppContext appcontext; /* To make Xt happy */ +static Atom wm_delete_window; +static XtActionsRec actions[] = { + {"quit", quitAction} +}; + +static Widget bigdaddy; /* the top level widget */ + Widget topform; /* form surrounding the whole thing */ + Widget GCform; /* form in which you choose the GC */ +static Widget Testform; /* form in which you choose the test */ + Widget testchoiceform; /* form inside that */ + ChoiceDesc *testchoicedesc; /* record of what widgets are in the + test choice form */ +static Widget commandform; /* form with run, quit, clear, etc. */ + Widget test; /* where the test is run */ + Widget result; /* where the results are displayed */ +static Widget runbutton; /* command for running */ +static Widget quitbutton; /* command for quitting */ +static Widget clearbutton; /* command for clearing the test window */ + Widget recordbutton; /* start/stop recording */ +static Widget playbackbutton; /* playback from file */ +static Widget keyinputbutton; /* start reading from keyboard */ +static Widget GCchoices[NUMCHOICES]; /* all the forms that contain stuff + for changing GC's*/ + ChoiceDesc *GCdescs[NUMCHOICES]; /* record of the widgets inside + the choice widgets */ + Widget planemaskchoice; /* form for choosing the plane mask */ + Widget dashlistchoice; /* form for choosing the dash list */ +static Widget linewidthchoice; /* form for choosing line width */ + Widget linewidthtext; /* text widget within that */ +static Widget fontchoice; /* form for choosing the font */ + Widget fonttext; /* text widget within that */ +static Widget foregroundchoice; /* form for choosing foreground */ + Widget foregroundtext; /* text widget within that */ +static Widget backgroundchoice; /* form for choosing background */ + Widget backgroundtext; /* text widget within that */ +static Widget percentchoice; /* form for choosing percentage of test */ + +/* main(argc.argv) +** --------------- +** Initializes the toolkit, initializes data, puts up the widgets, +** starts the event loop. +*/ + +int +main(argc,argv) + int argc; + char **argv; +{ + static Arg shellargs[] = { + {XtNinput, (XtArgVal) True} + }; + + static Arg testformargs[] = { + {XtNfromVert, (XtArgVal) NULL} /* put it under GCform */ + }; + + static Arg commandformargs[] = { + {XtNfromVert, (XtArgVal) NULL}, /* put it under GCform */ + {XtNfromHoriz, (XtArgVal) NULL} /* and to the right of Testform */ + }; + + static Arg testargs[] = { + {XtNheight, (XtArgVal) 400}, + {XtNwidth, (XtArgVal) 400}, + {XtNfromHoriz, (XtArgVal) NULL} /* put it to the right of GCform */ + }; + + static Arg resultargs[] = { + {XtNheight, (XtArgVal) 50}, + {XtNwidth, (XtArgVal) 400}, + {XtNfromHoriz, (XtArgVal) NULL}, /* put it to the right of GCform */ + {XtNfromVert, (XtArgVal) NULL} /* and under test */ + }; + + static Arg gcchoiceargs[] = { + {XtNfromVert, (XtArgVal) NULL}, /* put it under the one above it */ + {XtNfromHoriz, (XtArgVal) NULL}, /* and next to that one */ + {XtNborderWidth, (XtArgVal) 0} /* no ugly borders */ + }; + + static Arg testchoiceargs[] = { + {XtNborderWidth, (XtArgVal) 0} + }; + + int i; /* counter */ + + /* Open the pipe */ + +#ifdef notdef + pipe(fildes); + outend = fdopen(fildes[0],"r"); +#endif + + /* Initialize toolkit stuff */ + + XtSetLanguageProc(NULL, (XtLanguageProc) NULL, NULL); + + bigdaddy = XtAppInitialize(&appcontext, "Xgc", (XrmOptionDescList) NULL, + (Cardinal) 0, &argc, argv, (String *) NULL, + shellargs, XtNumber(shellargs)); + X.dpy = XtDisplay(bigdaddy); + XtAppAddActions(appcontext, actions, XtNumber(actions)); + XtOverrideTranslations + (bigdaddy, XtParseTranslationTable("<Message>WM_PROTOCOLS: quit()")); + + /* Initialize GC stuff */ + + X.scr = DefaultScreenOfDisplay(X.dpy); + X.gc = XCreateGC(X.dpy,RootWindowOfScreen(X.scr),0,(XGCValues *) NULL); + X.miscgc = XCreateGC(X.dpy,RootWindowOfScreen(X.scr),0,(XGCValues *) NULL); + + /* Find out what the foreground & background are, and update the GC + ** accordingly */ + + set_foreground_and_background(); + + topform = XtCreateManagedWidget("topform",formWidgetClass,bigdaddy, + NULL,0); + + GCform = XtCreateManagedWidget("GCform",formWidgetClass,topform, + NULL,0); + + /* create all the GCchoices forms */ + + for (i=0;i<NUMCHOICES;++i) { + if (i==0) /* on top */ + gcchoiceargs[0].value = (XtArgVal) NULL; + else /* under the last one */ + gcchoiceargs[0].value = (XtArgVal) GCchoices[i-1]; + + GCchoices[i] = XtCreateManagedWidget(Everything[i]->choice.text, + formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + + /* now fill up that form */ + GCdescs[i] = create_choice(GCchoices[i],Everything[i]); + } + + /* put the planemask choice under the bottom GC choice */ + gcchoiceargs[0].value = (XtArgVal) GCchoices[NUMCHOICES-1]; + planemaskchoice = XtCreateManagedWidget("planemask",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + /* fill it up */ + create_planemask_choice(planemaskchoice); + + /* put the dashlist choice under the planemask choice */ + gcchoiceargs[0].value = (XtArgVal) planemaskchoice; + dashlistchoice = XtCreateManagedWidget("dashlist",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + /* fill it up */ + create_dashlist_choice(dashlistchoice); + + /* put the linewidth choice under the dashlist choice */ + gcchoiceargs[0].value = (XtArgVal) dashlistchoice; + linewidthchoice = XtCreateManagedWidget("linewidth",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + /* fill it up */ + linewidthtext = create_text_choice(linewidthchoice,TLineWidth,2,30); + + /* put the font choice under the linewidth choice */ + gcchoiceargs[0].value = (XtArgVal) linewidthchoice; + fontchoice = XtCreateManagedWidget("font",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + /* fill it up */ + fonttext = create_text_choice(fontchoice,TFont,80,300); + + gcchoiceargs[0].value = (XtArgVal) fontchoice; + foregroundchoice = XtCreateManagedWidget("foreground",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + foregroundtext = create_text_choice(foregroundchoice,TForeground,4,50); + + gcchoiceargs[1].value = (XtArgVal) foregroundchoice; + backgroundchoice = XtCreateManagedWidget("background",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + backgroundtext = create_text_choice(backgroundchoice,TBackground,4,50); + + gcchoiceargs[1].value = (XtArgVal) NULL; + gcchoiceargs[0].value = (XtArgVal) foregroundchoice; + percentchoice = XtCreateManagedWidget("testpercent",formWidgetClass,GCform, + gcchoiceargs,XtNumber(gcchoiceargs)); + X.percent = 1.0; + create_testfrac_choice(percentchoice); + + /* make all the labels inside the choices line up nicely */ + line_up_labels(GCdescs,(int) XtNumber(GCdescs)); + + /* put the test form under the GC form */ + testformargs[0].value = (XtArgVal) GCform; + Testform = XtCreateManagedWidget("Testform",formWidgetClass,topform, + testformargs,XtNumber(testformargs)); + + testchoiceform = XtCreateManagedWidget("testchoiceform",formWidgetClass, + Testform,testchoiceargs,XtNumber(testchoiceargs)); + testchoicedesc = create_choice(testchoiceform,Everything[CTest]); + + commandformargs[0].value = (XtArgVal) GCform; + commandformargs[1].value = (XtArgVal) Testform; + commandform = XtCreateManagedWidget("commandform",formWidgetClass,topform, + commandformargs,XtNumber(commandformargs)); + + /* Put the appropriate command buttons in the command form */ + + fill_up_commandform(commandform); + + testargs[2].value = (XtArgVal) GCform; /* to the right of */ + test = XtCreateManagedWidget("test",widgetClass,topform, + testargs,XtNumber(testargs)); + + resultargs[2].value = (XtArgVal) GCform; /* to the right of */ + resultargs[3].value = (XtArgVal) test; /* under */ + result = XtCreateManagedWidget("result",asciiTextWidgetClass,topform, + resultargs,XtNumber(resultargs)); + + /* Now realize all the widgets */ + + XtRealizeWidget(bigdaddy); + + /* Now do things we couldn't do until we had a window available */ + + X.win = XtWindow(test); + X.tile = XCreatePixmap(X.dpy,X.win,tile_width,tile_height, + DefaultDepthOfScreen(X.scr)); + + X.tile = XCreatePixmapFromBitmapData(X.dpy,X.win, + (char *)tile_bits,tile_width, + tile_height,Black,White, + DefaultDepthOfScreen(X.scr)); + X.stipple = XCreateBitmapFromData(X.dpy,X.win,(char *)tile_bits,tile_width, + tile_height); + + XSetStipple(X.dpy,X.gc,X.stipple); + XSetStipple(X.dpy,X.miscgc,X.stipple); + + GC_change_foreground(X.foreground,TRUE); + GC_change_background(X.background,TRUE); + + wm_delete_window = XInternAtom(X.dpy, "WM_DELETE_WINDOW", False); + (void) XSetWMProtocols(X.dpy, XtWindow(bigdaddy), &wm_delete_window, 1); + + /* Act like the user picked the first choice in each group */ + + choose_defaults(GCdescs,(int)XtNumber(GCdescs)); + choose_defaults(&testchoicedesc,1); + + /* Loop forever, dealing with events */ + + XtAppMainLoop(appcontext); + + return 0; +} + +/* fill_up_commandform(w) +** ---------------------- +** Put the appropriate command buttons in the command form (w). +*/ + +static void +fill_up_commandform(w) + Widget w; +{ + static XtCallbackRec runcallbacklist[] = { + {(XtCallbackProc) run_test, NULL}, + {NULL, NULL} + }; + + static XtCallbackRec quitcallbacklist[] = { + {(XtCallbackProc) quit, NULL}, + {NULL, NULL} + }; + + static XtCallbackRec clearcallbacklist[] = { + {(XtCallbackProc) clear_test_window, NULL}, + {(XtCallbackProc) clear_result_window, NULL}, + {NULL, NULL} + }; + + static XtCallbackRec playbackcallbacklist[] = { + {(XtCallbackProc) start_playback, NULL}, + {NULL, NULL} + }; + + static XtCallbackRec keyinputcallbacklist[] = { + {(XtCallbackProc) read_from_keyboard, NULL}, + {NULL, NULL} + }; + + static XtCallbackRec recordcallbacklist[] = { + {(XtCallbackProc) toggle_recordbutton, NULL}, + {NULL, NULL} + }; + + static Arg runargs[] = { + {XtNcallback, (XtArgVal) NULL} + }; + + static Arg clearargs[] = { + {XtNcallback, (XtArgVal) NULL}, + {XtNfromVert, (XtArgVal) NULL}, /* put it under runbutton */ + {XtNvertDistance,(XtArgVal) 10} + }; + + static Arg recordargs[] = { + {XtNcallback, (XtArgVal) NULL}, + {XtNfromVert, (XtArgVal) NULL}, /* put it under clearbutton */ + {XtNvertDistance,(XtArgVal) 10}, + {XtNresizable, (XtArgVal) True} /* so we can change the name */ + }; + + static Arg playbackargs[] = { + {XtNcallback, (XtArgVal) NULL}, + {XtNfromVert, (XtArgVal) NULL} /* put it under recordbutton */ + }; + + static Arg keyinputargs[] = { + {XtNcallback, (XtArgVal) NULL}, + {XtNfromVert, (XtArgVal) NULL} /* put it under playbackbutton */ + }; + + static Arg quitargs[] = { + {XtNcallback, (XtArgVal) NULL}, + {XtNfromVert, (XtArgVal) NULL}, /* put it under keyinputbutton */ + {XtNvertDistance,(XtArgVal) 10} + }; + + runargs[0].value = (XtArgVal) runcallbacklist; + runbutton = XtCreateManagedWidget("Run",commandWidgetClass, + w,runargs,XtNumber(runargs)); + + clearargs[0].value = (XtArgVal) clearcallbacklist; + clearargs[1].value = (XtArgVal) runbutton; /* under */ + clearbutton = XtCreateManagedWidget("Clear window",commandWidgetClass, + w,clearargs,XtNumber(clearargs)); + + recordargs[0].value = (XtArgVal) recordcallbacklist; + recordargs[1].value = (XtArgVal) clearbutton; /* under */ + recordbutton = XtCreateManagedWidget("Record",commandWidgetClass, + w,recordargs,XtNumber(recordargs)); + + playbackargs[0].value = (XtArgVal) playbackcallbacklist; + playbackargs[1].value = (XtArgVal) recordbutton; /* under */ + playbackbutton = XtCreateManagedWidget("Playback",commandWidgetClass, + w,playbackargs,XtNumber(playbackargs)); + + keyinputargs[0].value = (XtArgVal) keyinputcallbacklist; + keyinputargs[1].value = (XtArgVal) playbackbutton; + keyinputbutton = XtCreateManagedWidget("Read Input",commandWidgetClass, + w,keyinputargs,XtNumber(keyinputargs)); + + quitargs[0].value = (XtArgVal) quitcallbacklist; + quitargs[1].value = (XtArgVal) keyinputbutton; /* under */ + quitbutton = XtCreateManagedWidget("Quit",commandWidgetClass, + w,quitargs,XtNumber(quitargs)); + +} +/* quit() +** ------ +** Leave the program nicely. +*/ + +static void +quit() +{ + close_file_if_recording(); + exit(0); +} + +static void quitAction(w, e, p, n) + Widget w; + XEvent *e; + String *p; + Cardinal *n; +{ + if (e->type == ClientMessage && e->xclient.data.l[0] != wm_delete_window) + XBell(XtDisplay(w), 0); + else + quit(); +} + +/* clear_test_window() +** ------------------- +** Clear the test window. +*/ + +static void +clear_test_window() +{ + XClearWindow(X.dpy,XtWindow(test)); +} + +/* clear_result_window() +** --------------------- +** Clear the result window. +*/ + +static void +clear_result_window() +{ + set_text(result, ""); +} + +/* set_foreground_and_background() +** ------------------------------- +** Finds the user-specified foreground and background by querying +** the resource manager, and sets state accordingly. Also specifies +** the initial font for text tests. +*/ + +static void +set_foreground_and_background() +{ + static XtResource resources[] = { + {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), + XtOffsetOf(XStuff, foreground), XtRString, XtDefaultForeground}, + {XtNbackground, XtCBackground, XtRPixel, sizeof(Pixel), + XtOffsetOf(XStuff, background), XtRString, XtDefaultBackground} + }; + + XtGetApplicationResources(bigdaddy, (XtPointer) &X, resources, + XtNumber(resources), NULL, (Cardinal) 0); + + X.gcv.foreground = X.foreground; + X.gcv.background = X.background; + + X.fontname = "6x10"; + GC_change_font(X.fontname,FALSE); +} |