xoptions.c

   1 /*
   2  * xoptions.c -- Move list window, part of X front end for XBoard
   3  *
   4  * Copyright 2000,2009 Free Software Foundation, Inc.
   5  * ------------------------------------------------------------------------
   6  *
   7  * GNU XBoard is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation, either version 3 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * GNU XBoard is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  15  * General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program. If not, see http://www.gnu.org/licenses/.  *
  19  *
  20  *------------------------------------------------------------------------
  21  ** See the file ChangeLog for a revision history.  */
  22
  23 // [HGM] this file is the counterpart of woptions.c, containing xboard popup menus
  24 // similar to those of WinBoard, to set the most common options interactively.
  25
  26 #include "config.h"
  27
  28 #include <stdio.h>
  29 #include <ctype.h>
  30 #include <errno.h>
  31 #include <sys/types.h>
  32
  33 #if STDC_HEADERS
  34 # include <stdlib.h>
  35 # include <string.h>
  36 #else /* not STDC_HEADERS */
  37 extern char *getenv();
  38 # if HAVE_STRING_H
  39 #  include <string.h>
  40 # else /* not HAVE_STRING_H */
  41 #  include <strings.h>
  42 # endif /* not HAVE_STRING_H */
  43 #endif /* not STDC_HEADERS */
  44
  45 #if HAVE_UNISTD_H
  46 # include <unistd.h>
  47 #endif
  48
  49 #include <X11/Intrinsic.h>
  50 #include <X11/StringDefs.h>
  51 #include <X11/Shell.h>
  52 #include <X11/Xaw/Dialog.h>
  53 #include <X11/Xaw/Form.h>
  54 #include <X11/Xaw/List.h>
  55 #include <X11/Xaw/Label.h>
  56 #include <X11/Xaw/SimpleMenu.h>
  57 #include <X11/Xaw/SmeBSB.h>
  58 #include <X11/Xaw/SmeLine.h>
  59 #include <X11/Xaw/Box.h>
  60 #include <X11/Xaw/Paned.h>
  61 #include <X11/Xaw/MenuButton.h>
  62 #include <X11/cursorfont.h>
  63 #include <X11/Xaw/Text.h>
  64 #include <X11/Xaw/AsciiText.h>
  65 #include <X11/Xaw/Viewport.h>
  66 #include <X11/Xaw/Toggle.h>
  67
  68 #include "common.h"
  69 #include "backend.h"
  70 #include "xboard.h"
  71 #include "gettext.h"
  72
  73 #ifdef ENABLE_NLS
  74 # define  _(s) gettext (s)
  75 # define N_(s) gettext_noop (s)
  76 #else
  77 # define  _(s) (s)
  78 # define N_(s)  s
  79 #endif
  80
  81 extern void SendToProgram P((char *message, ChessProgramState *cps));
  82
  83 extern Widget formWidget, shellWidget, boardWidget, menuBarWidget;
  84 extern Display *xDisplay;
  85 extern int squareSize;
  86 extern Pixmap xMarkPixmap;
  87 extern char *layoutName;
  88 extern Window xBoardWindow;
  89 extern Arg layoutArgs[2], formArgs[2];
  90 Pixel timerForegroundPixel, timerBackgroundPixel;
  91
  92 // [HGM] the following code for makng menu popups was cloned from the FileNamePopUp routines
  93
  94 static Widget previous = NULL;
  95
  96 void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b)
  97 {
  98     Arg args;
  99
 100     if(previous) {
 101         XtSetArg(args, XtNdisplayCaret, False);
 102         XtSetValues(previous, &args, 1);
 103     }
 104     XtSetArg(args, XtNdisplayCaret, True);
 105     XtSetValues(w, &args, 1);
 106     XtSetKeyboardFocus((Widget) data, w);
 107     previous = w;
 108 }
 109
 110 //--------------------------- New Shuffle Game --------------------------------------------
 111 extern int shuffleOpenings;
 112 extern int startedFromPositionFile;
 113 int shuffleUp;
 114 Widget shuffleShell;
 115
 116 void ShufflePopDown()
 117 {
 118     if (!shuffleUp) return;
 119     XtPopdown(shuffleShell);
 120     XtDestroyWidget(shuffleShell);
 121     shuffleUp = False;
 122     ModeHighlight();
 123 }
 124
 125 void ShuffleCallback(w, client_data, call_data)
 126      Widget w;
 127      XtPointer client_data, call_data;
 128 {
 129     String name;
 130     Widget w2;
 131     Arg args[16];
 132     char buf[80];
 133
 134     XtSetArg(args[0], XtNlabel, &name);
 135     XtGetValues(w, args, 1);
 136
 137     if (strcmp(name, _("cancel")) == 0) {
 138         ShufflePopDown();
 139         return;
 140     }
 141     if (strcmp(name, _("off")) == 0) {
 142         ShufflePopDown();
 143         shuffleOpenings = False; // [HGM] should be moved to New Variant menu, once we have it!
 144         ResetGameEvent();
 145         AnalysisPopDown();
 146         return;
 147     }
 148     if (strcmp(name, _("random")) == 0) {
 149         sprintf(buf, "%d", rand());
 150         XtSetArg(args[0],XtNvalue, buf); // erase bad (non-numeric) value
 151         XtSetValues(XtParent(w), args, 1);
 152         return;
 153     }
 154     if (strcmp(name, _("ok")) == 0) {
 155         int nr; String name;
 156         name = XawDialogGetValueString(w2 = XtParent(w));
 157         if(sscanf(name ,"%d",&nr) != 1) {
 158             sprintf(buf, "%d", appData.defaultFrcPosition);
 159             XtSetArg(args[0],XtNvalue, buf); // erase bad (non-numeric) value
 160             XtSetValues(w2, args, 1);
 161             return;
 162         }
 163         appData.defaultFrcPosition = nr;
 164         shuffleOpenings = True;
 165         ShufflePopDown();
 166         ResetGameEvent();
 167         AnalysisPopDown();
 168         return;
 169     }
 170 }
 171
 172 void ShufflePopUp()
 173 {
 174     Arg args[16];
 175     Widget popup, layout, dialog, edit;
 176     Window root, child;
 177     int x, y, i;
 178     int win_x, win_y;
 179     unsigned int mask;
 180     char def[80];
 181
 182     i = 0;
 183     XtSetArg(args[i], XtNresizable, True); i++;
 184     XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 185     shuffleShell = popup =
 186       XtCreatePopupShell(_("New Shuffle Game"), transientShellWidgetClass,
 187                          shellWidget, args, i);
 188
 189     layout =
 190       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 191                             layoutArgs, XtNumber(layoutArgs));
 192
 193     sprintf(def, "%d\n", appData.defaultFrcPosition);
 194     i = 0;
 195     XtSetArg(args[i], XtNlabel, _("Start-position number:")); i++;
 196     XtSetArg(args[i], XtNvalue, def); i++;
 197     XtSetArg(args[i], XtNborderWidth, 0); i++;
 198     dialog = XtCreateManagedWidget(_("Shuffle"), dialogWidgetClass,
 199                                    layout, args, i);
 200
 201 //    XtSetArg(args[0], XtNeditType, XawtextEdit);  // [HGM] can't get edit to work decently
 202 //    XtSetArg(args[1], XtNuseStringInPlace, False);
 203 //    XtSetValues(dialog, args, 2);
 204
 205     XawDialogAddButton(dialog, _("ok"), ShuffleCallback, (XtPointer) dialog);
 206     XawDialogAddButton(dialog, _("cancel"), ShuffleCallback, (XtPointer) dialog);
 207     XawDialogAddButton(dialog, _("random"), ShuffleCallback, (XtPointer) dialog);
 208     XawDialogAddButton(dialog, _("off"), ShuffleCallback, (XtPointer) dialog);
 209
 210     XtRealizeWidget(popup);
 211     CatchDeleteWindow(popup, "ShufflePopDown");
 212
 213     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 214                   &x, &y, &win_x, &win_y, &mask);
 215
 216     XtSetArg(args[0], XtNx, x - 10);
 217     XtSetArg(args[1], XtNy, y - 30);
 218     XtSetValues(popup, args, 2);
 219
 220     XtPopup(popup, XtGrabExclusive);
 221     shuffleUp = True;
 222
 223     edit = XtNameToWidget(dialog, "*value");
 224
 225     XtSetKeyboardFocus(popup, edit);
 226 }
 227
 228 void ShuffleMenuProc(w, event, prms, nprms)
 229      Widget w;
 230      XEvent *event;
 231      String *prms;
 232      Cardinal *nprms;
 233 {
 234 //    if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
 235 //      Reset(FALSE, TRUE);
 236 //    }
 237     ShufflePopUp();
 238 }
 239
 240 //--------------------------- Time-Control Menu Popup ----------------------------------
 241 int TimeControlUp;
 242 Widget TimeControlShell;
 243 int tcInc;
 244 Widget tcMess1, tcMess2, tcData, tcTime, tcOdds1, tcOdds2;
 245 int tcIncrement, tcMoves;
 246
 247 void TimeControlPopDown()
 248 {
 249     if (!TimeControlUp) return;
 250     XtPopdown(TimeControlShell);
 251     XtDestroyWidget(TimeControlShell);
 252     TimeControlUp = False;
 253     ModeHighlight();
 254 }
 255
 256 void TimeControlCallback(w, client_data, call_data)
 257      Widget w;
 258      XtPointer client_data, call_data;
 259 {
 260     String name, txt;
 261     Widget w2;
 262     Arg args[16];
 263     char buf[80];
 264     int j;
 265
 266     XtSetArg(args[0], XtNlabel, &name);
 267     XtGetValues(w, args, 1);
 268
 269     if (strcmp(name, _("classical")) == 0) {
 270         if(!tcInc) return;
 271         j=0;
 272         XtSetArg(args[j], XtNlabel, _("minutes for each")); j++;
 273         XtSetValues(tcMess1, args, j);
 274         j=0;
 275         XtSetArg(args[j], XtNlabel, _("moves")); j++;
 276         XtSetValues(tcMess2, args, j);
 277         j=0;
 278         XtSetArg(args[j], XtNstring, &name); j++;
 279         XtGetValues(tcData, args, j);
 280         tcIncrement = 0; sscanf(name, "%d", &tcIncrement);
 281         sprintf(buf, "%d", tcMoves);
 282         j=0;
 283         XtSetArg(args[j], XtNstring, buf); j++;
 284         XtSetValues(tcData, args, j);
 285         tcInc = False;
 286         return;
 287     }
 288     if (strcmp(name, _("incremental")) == 0) {
 289         if(tcInc) return;
 290         j=0;
 291         XtSetArg(args[j], XtNlabel, _("minutes, plus")); j++;
 292         XtSetValues(tcMess1, args, j);
 293         j=0;
 294         XtSetArg(args[j], XtNlabel, _("sec/move")); j++;
 295         XtSetValues(tcMess2, args, j);
 296         j=0;
 297         XtSetArg(args[j], XtNstring, &name); j++;
 298         XtGetValues(tcData, args, j);
 299         tcMoves = appData.movesPerSession; sscanf(name, "%d", &tcMoves);
 300         sprintf(buf, "%d", tcIncrement);
 301         j=0;
 302         XtSetArg(args[j], XtNstring, buf); j++;
 303         XtSetValues(tcData, args, j);
 304         tcInc = True;
 305         return;
 306     }
 307     if (strcmp(name, _(" OK ")) == 0) {
 308         int inc, mps, tc, ok;
 309         XtSetArg(args[0], XtNstring, &txt);
 310         XtGetValues(tcData, args, 1);
 311         if(tcInc) {
 312             ok = sscanf(txt, "%d", &inc); mps = 0;
 313             if(!ok && txt[0] == 0) { inc = 0; ok = 1; } // accept empty string as zero
 314             ok &= (inc >= 0);
 315         } else {
 316             ok = sscanf(txt, "%d", &mps); inc = -1;
 317             ok &= (mps > 0);
 318         }
 319         if(ok != 1) {
 320             XtSetArg(args[0], XtNstring, ""); // erase any offending input
 321             XtSetValues(tcData, args, 1);
 322             return;
 323         }
 324         XtSetArg(args[0], XtNstring, &txt);
 325         XtGetValues(tcTime, args, 1);
 326         if(!ParseTimeControl(txt, inc, mps)) {
 327             XtSetArg(args[0], XtNstring, ""); // erase any offending input
 328             XtSetValues(tcTime, args, 1);
 329             DisplayError(_("Bad Time-Control String"), 0);
 330             return;
 331         }
 332         appData.movesPerSession = mps;
 333         appData.timeIncrement = inc;
 334         appData.timeControl = strdup(txt);
 335         XtSetArg(args[0], XtNstring, &txt);
 336         XtGetValues(tcOdds1, args, 1);
 337         appData.firstTimeOdds = first.timeOdds
 338                 = (sscanf(txt, "%d", &j) == 1 && j > 0) ? j : 1;
 339         XtGetValues(tcOdds2, args, 1);
 340         appData.secondTimeOdds = second.timeOdds
 341                 = (sscanf(txt, "%d", &j) == 1 && j > 0) ? j : 1;
 342
 343         Reset(True, True);
 344         TimeControlPopDown();
 345         return;
 346     }
 347 }
 348
 349 void TimeControlPopUp()
 350 {
 351     Arg args[16];
 352     Widget popup, layout, form, edit, b_ok, b_cancel, b_clas, b_inc, mess;
 353     Window root, child;
 354     int x, y, i, j;
 355     int win_x, win_y;
 356     unsigned int mask;
 357     char def[80];
 358
 359     tcInc = (appData.timeIncrement >= 0);
 360     tcMoves = appData.movesPerSession; tcIncrement = appData.timeIncrement;
 361     if(!tcInc) tcIncrement = 0;
 362     sprintf(def, "%d", tcInc ? tcIncrement : tcMoves);
 363
 364     i = 0;
 365     XtSetArg(args[i], XtNresizable, True); i++;
 366 //    XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 367     TimeControlShell = popup =
 368       XtCreatePopupShell(_("TimeControl Menu"), transientShellWidgetClass,
 369                          shellWidget, args, i);
 370
 371     layout =
 372       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 373                             layoutArgs, XtNumber(layoutArgs));
 374
 375     form =
 376       XtCreateManagedWidget(layoutName, formWidgetClass, layout,
 377                             formArgs, XtNumber(formArgs));
 378
 379     j = 0;
 380 //    XtSetArg(args[j], XtNwidth,     (XtArgVal) 300); j++;
 381 //    XtSetArg(args[j], XtNheight,    (XtArgVal) 85); j++;
 382     XtSetValues(popup, args, j);
 383
 384     j= 0;
 385     XtSetArg(args[j], XtNborderWidth, 1); j++;
 386     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 387     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 388     XtSetArg(args[j], XtNstring, appData.timeControl);  j++;
 389     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 390     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 391     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 392     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 393     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 394     XtSetArg(args[j], XtNresizable, True);  j++;
 395     XtSetArg(args[j], XtNwidth,  85);  j++;
 396 //    XtSetArg(args[j], XtNheight, 20);  j++;
 397     tcTime = XtCreateManagedWidget("TC", asciiTextWidgetClass, form, args, j);
 398     XtAddEventHandler(tcTime, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 399
 400     j= 0;
 401     XtSetArg(args[j], XtNlabel, tcInc ? _("   minutes, plus   ") : _("minutes for each")); j++;
 402     XtSetArg(args[j], XtNborderWidth, 0); j++;
 403     XtSetArg(args[j], XtNfromHoriz, tcTime); j++;
 404     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 405     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 406     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 407     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 408   //  XtSetArg(args[j], XtNwidth,  100);  j++;
 409   //  XtSetArg(args[j], XtNheight, 20);  j++;
 410     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 411
 412     j= 0;
 413     XtSetArg(args[j], XtNborderWidth, 1); j++;
 414     XtSetArg(args[j], XtNfromHoriz, tcMess1); j++;
 415     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 416     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 417     XtSetArg(args[j], XtNstring, def);  j++;
 418     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 419     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 420     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 421     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 422     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 423     XtSetArg(args[j], XtNresizable, True);  j++;
 424     XtSetArg(args[j], XtNwidth,  40);  j++;
 425 //    XtSetArg(args[j], XtNheight, 20);  j++;
 426     tcData = XtCreateManagedWidget("MPS", asciiTextWidgetClass, form, args, j);
 427     XtAddEventHandler(tcData, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 428
 429     j= 0;
 430     XtSetArg(args[j], XtNlabel, tcInc ? _("sec/move") : _("moves     ")); j++;
 431     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 432     XtSetArg(args[j], XtNborderWidth, 0); j++;
 433     XtSetArg(args[j], XtNfromHoriz, tcData); j++;
 434     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 435     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 436     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 437     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 438 //    XtSetArg(args[j], XtNwidth,  80);  j++;
 439 //    XtSetArg(args[j], XtNheight, 20);  j++;
 440     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass,
 441                                    form, args, j);
 442
 443     j= 0;
 444     XtSetArg(args[j], XtNborderWidth, 1); j++;
 445     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 446     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 447     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 448     XtSetArg(args[j], XtNstring, "1");  j++;
 449     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 450     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 451     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 452     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 453     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 454     XtSetArg(args[j], XtNresizable, True);  j++;
 455     XtSetArg(args[j], XtNwidth,  40);  j++;
 456 //    XtSetArg(args[j], XtNheight, 20);  j++;
 457     tcOdds1 = XtCreateManagedWidget("Odds1", asciiTextWidgetClass, form, args, j);
 458     XtAddEventHandler(tcOdds1, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 459
 460     j= 0;
 461     XtSetArg(args[j], XtNborderWidth, 1); j++;
 462     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 463     XtSetArg(args[j], XtNfromHoriz, tcOdds1); j++;
 464     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 465     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 466     XtSetArg(args[j], XtNstring, "1");  j++;
 467     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 468     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 469     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 470     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 471     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 472     XtSetArg(args[j], XtNresizable, True);  j++;
 473     XtSetArg(args[j], XtNwidth,  40);  j++;
 474 //    XtSetArg(args[j], XtNheight, 20);  j++;
 475     tcOdds2 = XtCreateManagedWidget("Odds2", asciiTextWidgetClass, form, args, j);
 476     XtAddEventHandler(tcOdds2, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 477
 478     j= 0;
 479     XtSetArg(args[j], XtNlabel, _("Engine #1 and #2 Time-Odds Factors")); j++;
 480     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 481     XtSetArg(args[j], XtNborderWidth, 0); j++;
 482     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 483     XtSetArg(args[j], XtNfromHoriz, tcOdds2); j++;
 484     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 485     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 486     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 487     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 488 //    XtSetArg(args[j], XtNwidth,  200);  j++;
 489 //    XtSetArg(args[j], XtNheight, 20);  j++;
 490     mess = XtCreateManagedWidget("Oddstext", labelWidgetClass,
 491                                    form, args, j);
 492     j=0;
 493     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 494     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 495     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 496     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 497     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 498     b_clas= XtCreateManagedWidget(_("classical"), commandWidgetClass,
 499                                    form, args, j);
 500     XtAddCallback(b_clas, XtNcallback, TimeControlCallback, (XtPointer) 0);
 501
 502     j=0;
 503     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 504     XtSetArg(args[j], XtNfromHoriz, b_clas);  j++;
 505     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 506     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 507     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 508     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 509     b_inc = XtCreateManagedWidget(_("incremental"), commandWidgetClass,
 510                                    form, args, j);
 511     XtAddCallback(b_inc, XtNcallback, TimeControlCallback, (XtPointer) 0);
 512
 513     j=0;
 514     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 515     XtSetArg(args[j], XtNfromHoriz, tcData);  j++;
 516     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 517     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 518     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 519     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 520     b_ok= XtCreateManagedWidget(_(" OK "), commandWidgetClass,
 521                                    form, args, j);
 522     XtAddCallback(b_ok, XtNcallback, TimeControlCallback, (XtPointer) 0);
 523
 524     j=0;
 525     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 526     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
 527     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 528     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 529     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 530     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 531     b_cancel= XtCreateManagedWidget(_("cancel"), commandWidgetClass,
 532                                    form, args, j);
 533     XtAddCallback(b_cancel, XtNcallback, TimeControlPopDown, (XtPointer) 0);
 534
 535     XtRealizeWidget(popup);
 536     CatchDeleteWindow(popup, "TimeControlPopDown");
 537
 538     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 539                   &x, &y, &win_x, &win_y, &mask);
 540
 541     XtSetArg(args[0], XtNx, x - 10);
 542     XtSetArg(args[1], XtNy, y - 30);
 543     XtSetValues(popup, args, 2);
 544
 545     XtPopup(popup, XtGrabExclusive);
 546     TimeControlUp = True;
 547
 548     previous = NULL;
 549     SetFocus(tcTime, popup, (XEvent*) NULL, False);
 550 //    XtSetKeyboardFocus(popup, tcTime);
 551 }
 552
 553 void TimeControlProc(w, event, prms, nprms)
 554      Widget w;
 555      XEvent *event;
 556      String *prms;
 557      Cardinal *nprms;
 558 {
 559    TimeControlPopUp();
 560 }
 561
 562 //--------------------------- Engine-Options Menu Popup ----------------------------------
 563 int EngineUp;
 564 Widget EngineShell;
 565 extern int adjudicateLossThreshold;
 566
 567 Widget engDrawMoves, engThreshold, engRule, engRepeat;
 568
 569 void EnginePopDown()
 570 {
 571     if (!EngineUp) return;
 572     XtPopdown(EngineShell);
 573     XtDestroyWidget(EngineShell);
 574     EngineUp = False;
 575     ModeHighlight();
 576 }
 577
 578 int ReadToggle(Widget w)
 579 {
 580     Arg args; Boolean res;
 581
 582     XtSetArg(args, XtNstate, &res);
 583     XtGetValues(w, &args, 1);
 584
 585     return res;
 586 }
 587
 588 Widget w1, w2, w3, w4, w5, w6, w7, w8;
 589
 590 void EngineCallback(w, client_data, call_data)
 591      Widget w;
 592      XtPointer client_data, call_data;
 593 {
 594     String name;
 595     Widget s2;
 596     Arg args[16];
 597     char buf[80];
 598     int j;
 599
 600     XtSetArg(args[0], XtNlabel, &name);
 601     XtGetValues(w, args, 1);
 602
 603     if (strcmp(name, _("OK")) == 0) {
 604         // read all switches
 605         appData.periodicUpdates = ReadToggle(w1);
 606 //      appData.hideThinkingFromHuman = ReadToggle(w2);
 607         appData.firstScoreIsAbsolute  = ReadToggle(w3);
 608         appData.secondScoreIsAbsolute = ReadToggle(w4);
 609         appData.testClaims    = ReadToggle(w5);
 610         appData.checkMates    = ReadToggle(w6);
 611         appData.materialDraws = ReadToggle(w7);
 612         appData.trivialDraws  = ReadToggle(w8);
 613
 614         // adjust setting in other menu for duplicates
 615         // (perhaps duplicates should be removed from general Option Menu?)
 616 //      XtSetArg(args[0], XtNleftBitmap, appData.showThinking ? xMarkPixmap : None);
 617 //      XtSetValues(XtNameToWidget(menuBarWidget,
 618 //                                 "menuOptions.Show Thinking"), args, 1);
 619
 620         // read out numeric controls, simply ignore bad formats for now
 621         XtSetArg(args[0], XtNstring, &name);
 622         XtGetValues(engDrawMoves, args, 1);
 623         if(sscanf(name, "%d", &j) == 1) appData.adjudicateDrawMoves = j;
 624         XtGetValues(engThreshold, args, 1);
 625         if(sscanf(name, "%d", &j) == 1)
 626                 adjudicateLossThreshold = appData.adjudicateLossThreshold = -j; // inverted!
 627         XtGetValues(engRule, args, 1);
 628         if(sscanf(name, "%d", &j) == 1) appData.ruleMoves = j;
 629         XtGetValues(engRepeat, args, 1);
 630         if(sscanf(name, "%d", &j) == 1) appData.drawRepeats = j;
 631
 632         EnginePopDown();
 633         ShowThinkingEvent(); // [HGM] thinking: score adjudication might need thinking output
 634         return;
 635     }
 636 }
 637
 638 void EnginePopUp()
 639 {
 640     Arg args[16];
 641     Widget popup, layout, form, edit, b_ok, b_cancel, b_clas, b_inc, s1;
 642     Window root, child;
 643     int x, y, i, j, width;
 644     int win_x, win_y;
 645     unsigned int mask;
 646     char def[80];
 647
 648     tcInc = (appData.timeIncrement >= 0);
 649     tcMoves = appData.movesPerSession; tcIncrement = appData.timeIncrement;
 650     if(!tcInc) tcIncrement = 0;
 651     sprintf(def, "%d", tcInc ? tcIncrement : tcMoves);
 652
 653     i = 0;
 654     XtSetArg(args[i], XtNresizable, True); i++;
 655 //    XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 656     EngineShell = popup =
 657       XtCreatePopupShell(_("Adjudications"), transientShellWidgetClass,
 658                          shellWidget, args, i);
 659
 660     layout =
 661       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 662                             layoutArgs, XtNumber(layoutArgs));
 663
 664     form =
 665       XtCreateManagedWidget(layoutName, formWidgetClass, layout,
 666                             formArgs, XtNumber(formArgs));
 667
 668     j = 0;
 669 //    XtSetArg(args[j], XtNwidth,     (XtArgVal) 250); j++;
 670 //    XtSetArg(args[j], XtNheight,    (XtArgVal) 400); j++;
 671 //    XtSetValues(popup, args, j);
 672
 673     j = 0;
 674 //    XtSetArg(args[j], XtNwidth,       (XtArgVal) 250); j++;
 675 //    XtSetArg(args[j], XtNheight,      (XtArgVal) 20); j++;
 676     XtSetArg(args[j], XtNleft,        (XtArgVal) XtChainLeft); j++;
 677     XtSetArg(args[j], XtNright,       (XtArgVal) XtChainRight); j++;
 678     XtSetArg(args[j], XtNstate,       appData.periodicUpdates); j++;
 679 //    XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 680     w1 = XtCreateManagedWidget(_("Periodic Updates (Analysis Mode)"), toggleWidgetClass, form, args, j);
 681
 682     XtSetArg(args[j], XtNwidth,       (XtArgVal) &width);
 683     XtGetValues(w1, &args[j], 1);
 684
 685 //    XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w1);
 686 //    XtSetArg(args[j-3], XtNstate,       appData.hideThinkingFromHuman);
 687 //    w2 = XtCreateManagedWidget(_("Hide Thinking from Human"), toggleWidgetClass, form, args, j);
 688
 689     XtSetArg(args[j], XtNwidth,       (XtArgVal) width); j++;
 690     XtSetArg(args[j-2], XtNstate,     appData.firstScoreIsAbsolute);
 691     XtSetArg(args[j], XtNfromVert,    (XtArgVal) w1); j++;
 692     w3 = XtCreateManagedWidget(_("Engine #1 Score is Absolute"), toggleWidgetClass, form, args, j);
 693
 694     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w3);
 695     XtSetArg(args[j-3], XtNstate,       appData.secondScoreIsAbsolute);
 696     w4 = XtCreateManagedWidget(_("Engine #2 Score is Absolute"), toggleWidgetClass, form, args, j);
 697
 698     s1 = XtCreateManagedWidget(_("\nEngine-Engine Adjudications:"), labelWidgetClass, form, args, 3);
 699
 700     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) s1);
 701     XtSetArg(args[j-3], XtNstate,       appData.testClaims);
 702     w5 = XtCreateManagedWidget(_("Verify Engine Result Claims"), toggleWidgetClass, form, args, j);
 703
 704     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w5);
 705     XtSetArg(args[j-3], XtNstate,       appData.checkMates);
 706     w6 = XtCreateManagedWidget(_("Detect All Mates"), toggleWidgetClass, form, args, j);
 707
 708     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w6);
 709     XtSetArg(args[j-3], XtNstate,       appData.materialDraws);
 710     w7 = XtCreateManagedWidget(_("Draw when Insuff. Mating Material"), toggleWidgetClass, form, args, j);
 711
 712     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w7);
 713     XtSetArg(args[j-3], XtNstate,       appData.trivialDraws);
 714     w8 = XtCreateManagedWidget(_("Adjudicate Trivial Draws"), toggleWidgetClass, form, args, j);
 715
 716     XtSetArg(args[0], XtNfromVert,  (XtArgVal) w4);
 717     XtSetArg(args[1], XtNborderWidth, (XtArgVal) 0);
 718     XtSetValues(s1, args, 2);
 719
 720     sprintf(def, "%d", appData.adjudicateDrawMoves);
 721     j= 0;
 722     XtSetArg(args[j], XtNborderWidth, 1); j++;
 723     XtSetArg(args[j], XtNfromVert, w8); j++;
 724     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 725     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 726     XtSetArg(args[j], XtNstring, def);  j++;
 727     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 728     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 729     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 730     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 731     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 732     XtSetArg(args[j], XtNresizable, True);  j++;
 733     XtSetArg(args[j], XtNwidth,  60);  j++;
 734 //    XtSetArg(args[j], XtNheight, 20);  j++;
 735     engDrawMoves = XtCreateManagedWidget("Length", asciiTextWidgetClass, form, args, j);
 736     XtAddEventHandler(engDrawMoves, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 737
 738     j= 0;
 739     XtSetArg(args[j], XtNlabel, _(" moves maximum, then draw")); j++;
 740     XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 741     XtSetArg(args[j], XtNborderWidth, 0); j++;
 742     XtSetArg(args[j], XtNfromVert, w8); j++;
 743     XtSetArg(args[j], XtNfromHoriz, engDrawMoves); j++;
 744     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 745     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 746     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 747     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 748 //    XtSetArg(args[j], XtNwidth,  170);  j++;
 749 //    XtSetArg(args[j], XtNheight, 20);  j++;
 750     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 751
 752     sprintf(def, "%d", -appData.adjudicateLossThreshold); // inverted!
 753     j= 0;
 754     XtSetArg(args[j], XtNborderWidth, 1); j++;
 755     XtSetArg(args[j], XtNfromVert, engDrawMoves); j++;
 756     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 757     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 758     XtSetArg(args[j], XtNstring, def);  j++;
 759     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 760     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 761     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 762     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 763     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 764     XtSetArg(args[j], XtNresizable, True);  j++;
 765     XtSetArg(args[j], XtNwidth,  60);  j++;
 766 //    XtSetArg(args[j], XtNheight, 20);  j++;
 767     engThreshold = XtCreateManagedWidget("Threshold", asciiTextWidgetClass, form, args, j);
 768     XtAddEventHandler(engThreshold, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 769
 770     j= 0;
 771     XtSetArg(args[j], XtNlabel, _("-centiPawn lead is win")); j++;
 772     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 773     XtSetArg(args[j], XtNborderWidth, 0); j++;
 774     XtSetArg(args[j], XtNfromVert, engDrawMoves); j++;
 775     XtSetArg(args[j], XtNfromHoriz, engThreshold); j++;
 776     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 777     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 778     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 779     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 780 //    XtSetArg(args[j], XtNwidth,  150);  j++;
 781 //    XtSetArg(args[j], XtNheight, 20);  j++;
 782     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass, form, args, j);
 783
 784     sprintf(def, "%d", appData.ruleMoves);
 785     j= 0;
 786     XtSetArg(args[j], XtNborderWidth, 1); j++;
 787     XtSetArg(args[j], XtNfromVert, engThreshold); j++;
 788     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 789     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 790     XtSetArg(args[j], XtNstring, def);  j++;
 791     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 792     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 793     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 794     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 795     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 796     XtSetArg(args[j], XtNresizable, True);  j++;
 797     XtSetArg(args[j], XtNwidth,  30);  j++;
 798 //    XtSetArg(args[j], XtNheight, 20);  j++;
 799     engRule = XtCreateManagedWidget("Rule", asciiTextWidgetClass, form, args, j);
 800     XtAddEventHandler(engRule, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 801
 802     j= 0;
 803     XtSetArg(args[j], XtNlabel, _("-move rule applied")); j++;
 804     XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 805     XtSetArg(args[j], XtNborderWidth, 0); j++;
 806     XtSetArg(args[j], XtNfromVert, engThreshold); j++;
 807     XtSetArg(args[j], XtNfromHoriz, engRule); j++;
 808     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 809     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 810     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 811     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 812 //    XtSetArg(args[j], XtNwidth,  130);  j++;
 813 //    XtSetArg(args[j], XtNheight, 20);  j++;
 814     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 815
 816     sprintf(def, "%d", appData.drawRepeats);
 817     j= 0;
 818     XtSetArg(args[j], XtNborderWidth, 1); j++;
 819     XtSetArg(args[j], XtNfromVert, engRule); j++;
 820     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 821     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 822     XtSetArg(args[j], XtNstring, def);  j++;
 823     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 824     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 825     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 826     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 827     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 828     XtSetArg(args[j], XtNresizable, True);  j++;
 829     XtSetArg(args[j], XtNwidth,  30);  j++;
 830 //    XtSetArg(args[j], XtNheight, 20);  j++;
 831     engRepeat = XtCreateManagedWidget("Repeats", asciiTextWidgetClass, form, args, j);
 832     XtAddEventHandler(engRepeat, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 833
 834     j= 0;
 835     XtSetArg(args[j], XtNlabel, _("-fold repeat is draw")); j++;
 836     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 837     XtSetArg(args[j], XtNborderWidth, 0); j++;
 838     XtSetArg(args[j], XtNfromVert, engRule); j++;
 839     XtSetArg(args[j], XtNfromHoriz, engRepeat); j++;
 840     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 841     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 842     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 843     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 844 //    XtSetArg(args[j], XtNwidth,  130);  j++;
 845 //    XtSetArg(args[j], XtNheight, 20);  j++;
 846     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass, form, args, j);
 847
 848     j=0;
 849     XtSetArg(args[j], XtNfromVert, engRepeat);  j++;
 850     XtSetArg(args[j], XtNfromHoriz, tcMess2);  j++;
 851     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 852     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 853     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 854     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 855     b_ok= XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
 856     XtAddCallback(b_ok, XtNcallback, EngineCallback, (XtPointer) 0);
 857
 858     j=0;
 859     XtSetArg(args[j], XtNfromVert, engRepeat);  j++;
 860     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
 861     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 862     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 863     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 864     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 865     b_cancel= XtCreateManagedWidget(_("cancel"), commandWidgetClass,
 866                                    form, args, j);
 867     XtAddCallback(b_cancel, XtNcallback, EnginePopDown, (XtPointer) 0);
 868
 869     XtRealizeWidget(popup);
 870     CatchDeleteWindow(popup, "EnginePopDown");
 871
 872     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 873                   &x, &y, &win_x, &win_y, &mask);
 874
 875     XtSetArg(args[0], XtNx, x - 10);
 876     XtSetArg(args[1], XtNy, y - 30);
 877     XtSetValues(popup, args, 2);
 878
 879     XtPopup(popup, XtGrabExclusive);
 880     EngineUp = True;
 881
 882     previous = NULL;
 883     SetFocus(engThreshold, popup, (XEvent*) NULL, False);
 884 }
 885
 886 void EngineMenuProc(w, event, prms, nprms)
 887      Widget w;
 888      XEvent *event;
 889      String *prms;
 890      Cardinal *nprms;
 891 {
 892    EnginePopUp();
 893 }
 894
 895 //--------------------------- New-Variant Menu PopUp -----------------------------------
 896 struct NewVarButton {
 897   char   *name;
 898   char *color;
 899   Widget handle;
 900   VariantClass variant;
 901 };
 902
 903 struct NewVarButton buttonDesc[] = {
 904     {N_("normal"),            "#FFFFFF", 0, VariantNormal},
 905     {N_("FRC"),               "#FFFFFF", 0, VariantFischeRandom},
 906     {N_("wild castle"),       "#FFFFFF", 0, VariantWildCastle},
 907     {N_("no castle"),         "#FFFFFF", 0, VariantNoCastle},
 908     {N_("knightmate"),        "#FFFFFF", 0, VariantKnightmate},
 909     {N_("berolina"),          "#FFFFFF", 0, VariantBerolina},
 910     {N_("cylinder"),          "#FFFFFF", 0, VariantCylinder},
 911     {N_("shatranj"),          "#FFFFFF", 0, VariantShatranj},
 912     {N_("atomic"),            "#FFFFFF", 0, VariantAtomic},
 913     {N_("two kings"),         "#FFFFFF", 0, VariantTwoKings},
 914     {N_("3-checks"),          "#FFFFFF", 0, Variant3Check},
 915     {N_("suicide"),           "#FFFFBF", 0, VariantSuicide},
 916     {N_("give-away"),         "#FFFFBF", 0, VariantGiveaway},
 917     {N_("losers"),            "#FFFFBF", 0, VariantLosers},
 918     {N_("fairy"),             "#BFBFBF", 0, VariantFairy},
 919     {N_("Superchess"),        "#FFBFBF", 0, VariantSuper},
 920     {N_("crazyhouse"),        "#FFBFBF", 0, VariantCrazyhouse},
 921     {N_("bughouse"),          "#FFBFBF", 0, VariantBughouse},
 922     {N_("shogi (9x9)"),       "#BFFFFF", 0, VariantShogi},
 923     {N_("xiangqi (9x10)"),    "#BFFFFF", 0, VariantXiangqi},
 924     {N_("courier (12x8)"),    "#BFFFBF", 0, VariantCourier},
 925     {N_("janus (10x8)"),      "#BFBFFF", 0, VariantJanus},
 926     {N_("Capablanca (10x8)"), "#BFBFFF", 0, VariantCapablanca},
 927     {N_("CRC (10x8)"),        "#BFBFFF", 0, VariantCapaRandom},
 928 #ifdef GOTHIC
 929     {N_("Gothic (10x8)"),     "#BFBFFF", 0, VariantGothic},
 930 #endif
 931 #ifdef FALCON
 932     {N_("Falcon (10x8)"),     "#BFBFFF", 0, VariantFalcon},
 933 #endif
 934     {NULL,                0, 0, (VariantClass) 0}
 935 };
 936
 937 int NewVariantUp;
 938 Widget NewVariantShell;
 939
 940 void NewVariantPopDown()
 941 {
 942     if (!NewVariantUp) return;
 943     XtPopdown(NewVariantShell);
 944     XtDestroyWidget(NewVariantShell);
 945     NewVariantUp = False;
 946     ModeHighlight();
 947 }
 948
 949 void NewVariantCallback(w, client_data, call_data)
 950      Widget w;
 951      XtPointer client_data, call_data;
 952 {
 953     String name;
 954     Widget w2;
 955     Arg args[16];
 956     char buf[80];
 957     VariantClass v;
 958
 959     XtSetArg(args[0], XtNlabel, &name);
 960     XtGetValues(w, args, 1);
 961
 962     if (strcmp(name, _("  OK  ")) == 0) {
 963         int nr = (int) XawToggleGetCurrent(buttonDesc[0].handle) - 1;
 964         if(nr < 0) return;
 965         v = buttonDesc[nr].variant;
 966         if(!appData.noChessProgram) {
 967             char *name = VariantName(v), buf[MSG_SIZ];
 968             if (first.protocolVersion > 1 && StrStr(first.variants, name) == NULL) {
 969                 /* [HGM] in protocol 2 we check if variant is suported by engine */
 970                 sprintf(buf, _("Variant %s not supported by %s"), name, first.tidy);
 971                 DisplayError(buf, 0);
 972 //              NewVariantPopDown();
 973                 return; /* ignore OK if first engine does not support it */
 974             } else
 975             if (second.initDone && second.protocolVersion > 1 && StrStr(second.variants, name) == NULL) {
 976                 sprintf(buf, _("Warning: second engine (%s) does not support this!"), second.tidy);
 977                 DisplayError(buf, 0);   /* use of second engine is optional; only warn user */
 978             }
 979         }
 980
 981         gameInfo.variant = v;
 982         appData.variant = VariantName(v);
 983
 984         shuffleOpenings = FALSE; /* [HGM] shuffle: possible shuffle reset when we switch */
 985         startedFromPositionFile = FALSE; /* [HGM] loadPos: no longer valid in new variant */
 986         appData.pieceToCharTable = NULL;
 987         Reset(True, True);
 988         NewVariantPopDown();
 989         return;
 990     }
 991 }
 992
 993 void NewVariantPopUp()
 994 {
 995     Arg args[16];
 996     Widget popup, layout, dialog, edit, form, last = NULL, b_ok, b_cancel;
 997     Window root, child;
 998     int x, y, i, j;
 999     int win_x, win_y;
1000     unsigned int mask;
1001     char def[80];
1002     XrmValue vFrom, vTo;
1003
1004     i = 0;
1005     XtSetArg(args[i], XtNresizable, True); i++;
1006 //    XtSetArg(args[i], XtNwidth, 250); i++;
1007 //    XtSetArg(args[i], XtNheight, 300); i++;
1008     NewVariantShell = popup =
1009       XtCreatePopupShell(_("NewVariant Menu"), transientShellWidgetClass,
1010                          shellWidget, args, i);
1011
1012     layout =
1013       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1014                             layoutArgs, XtNumber(layoutArgs));
1015
1016     form =
1017       XtCreateManagedWidget("form", formWidgetClass, layout,
1018                             formArgs, XtNumber(formArgs));
1019
1020     for(i = 0; buttonDesc[i].name != NULL; i++) {
1021         Pixel buttonColor;
1022         if (!appData.monoMode) {
1023             vFrom.addr = (caddr_t) buttonDesc[i].color;
1024             vFrom.size = strlen(buttonDesc[i].color);
1025             XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1026             if (vTo.addr == NULL) {
1027                 buttonColor = (Pixel) -1;
1028             } else {
1029                 buttonColor = *(Pixel *) vTo.addr;
1030             }
1031         }
1032
1033         j = 0;
1034         XtSetArg(args[j], XtNradioGroup, last); j++;
1035         XtSetArg(args[j], XtNwidth, 125); j++;
1036 //      XtSetArg(args[j], XtNheight, 16); j++;
1037         XtSetArg(args[j], XtNfromVert, i == 15 ? NULL : last); j++;
1038         XtSetArg(args[j], XtNfromHoriz, i < 15 ? NULL : buttonDesc[i-15].handle); j++;
1039         XtSetArg(args[j], XtNradioData, i+1); j++;
1040         XtSetArg(args[j], XtNbackground, buttonColor); j++;
1041         XtSetArg(args[j], XtNstate, gameInfo.variant == buttonDesc[i].variant); j++;
1042         buttonDesc[i].handle = last =
1043             XtCreateManagedWidget(buttonDesc[i].name, toggleWidgetClass, form, args, j);
1044     }
1045
1046     j=0;
1047     XtSetArg(args[j], XtNfromVert, buttonDesc[12].handle);  j++;
1048     XtSetArg(args[j], XtNfromHoriz, buttonDesc[12].handle);  j++;
1049     XtSetArg(args[j], XtNheight, 35); j++;
1050 //    XtSetArg(args[j], XtNwidth, 60); j++;
1051     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1052     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1053     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1054     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1055     b_cancel= XtCreateManagedWidget(_("CANCEL"), commandWidgetClass, form, args, j);
1056     XtAddCallback(b_cancel, XtNcallback, NewVariantPopDown, (XtPointer) 0);
1057
1058     j=0;
1059     XtSetArg(args[j], XtNfromHoriz, b_cancel);  j++;
1060     XtSetArg(args[j], XtNfromVert, buttonDesc[12].handle);  j++;
1061     XtSetArg(args[j], XtNheight, 35); j++;
1062 //    XtSetArg(args[j], XtNwidth, 60); j++;
1063     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1064     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1065     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1066     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1067     b_ok= XtCreateManagedWidget(_("  OK  "), commandWidgetClass, form, args, j);
1068     XtAddCallback(b_ok, XtNcallback, NewVariantCallback, (XtPointer) 0);
1069
1070     j=0;
1071     XtSetArg(args[j], XtNfromVert, buttonDesc[14].handle);  j++;
1072 //    XtSetArg(args[j], XtNheight, 70); j++;
1073     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1074     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1075     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1076     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1077     XtSetArg(args[j], XtNlabel, _("WARNING: variants with un-orthodox\n"
1078                                   "pieces only have built-in bitmaps\n"
1079                                   "for -boardSize middling, bulky and\n"
1080                                   "petite, and substitute king or amazon\n"
1081                                   "for missing bitmaps. (See manual.)")); j++;
1082     XtCreateManagedWidget("warning", labelWidgetClass, form, args, j);
1083
1084             XtRealizeWidget(popup);
1085     CatchDeleteWindow(popup, "NewVariantPopDown");
1086
1087     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1088                   &x, &y, &win_x, &win_y, &mask);
1089
1090     XtSetArg(args[0], XtNx, x - 10);
1091     XtSetArg(args[1], XtNy, y - 30);
1092     XtSetValues(popup, args, 2);
1093
1094     XtPopup(popup, XtGrabExclusive);
1095     NewVariantUp = True;
1096 }
1097
1098 void NewVariantProc(w, event, prms, nprms)
1099      Widget w;
1100      XEvent *event;
1101      String *prms;
1102      Cardinal *nprms;
1103 {
1104    NewVariantPopUp();
1105 }
1106
1107 //--------------------------- UCI Menu Popup ------------------------------------------
1108 int UciUp;
1109 Widget UciShell;
1110
1111 struct UciControl {
1112   char *name;
1113   Widget handle;
1114   void *ptr;
1115 };
1116
1117 struct UciControl controlDesc[] = {
1118   {N_("maximum nr of CPUs:"), 0, &appData.smpCores},
1119   {N_("Polyglot Directory:"), 0, &appData.polyglotDir},
1120   {N_("Hash Size (MB):"),     0, &appData.defaultHashSize},
1121   {N_("EGTB Path:"),          0, &appData.defaultPathEGTB},
1122   {N_("EGTB Cache (MB):"),    0, &appData.defaultCacheSizeEGTB},
1123   {N_("Polyglot Book:"),      0, &appData.polyglotBook},
1124   {NULL, 0, NULL},
1125 };
1126
1127 void UciPopDown()
1128 {
1129     if (!UciUp) return;
1130     XtPopdown(UciShell);
1131     XtDestroyWidget(UciShell);
1132     UciUp = False;
1133     ModeHighlight();
1134 }
1135
1136 void UciCallback(w, client_data, call_data)
1137      Widget w;
1138      XtPointer client_data, call_data;
1139 {
1140     String name;
1141     Arg args[16];
1142     char buf[80];
1143     int oldCores = appData.smpCores, ponder = 0;
1144
1145     XtSetArg(args[0], XtNlabel, &name);
1146     XtGetValues(w, args, 1);
1147
1148     if (strcmp(name, _("OK")) == 0) {
1149         int nr, i, j; String name;
1150         for(i=0; i<6; i++) {
1151             XtSetArg(args[0], XtNstring, &name);
1152             XtGetValues(controlDesc[i].handle, args, 1);
1153             if(i&1) {
1154                 if(name)
1155                     *(char**) controlDesc[i].ptr = strdup(name);
1156             } else {
1157                 if(sscanf(name, "%d", &j) == 1)
1158                     *(int*) controlDesc[i].ptr = j;
1159             }
1160         }
1161         XtSetArg(args[0], XtNstate, &appData.usePolyglotBook);
1162         XtGetValues(w1, args, 1);
1163         XtSetArg(args[0], XtNstate, &appData.firstHasOwnBookUCI);
1164         XtGetValues(w2, args, 1);
1165         XtSetArg(args[0], XtNstate, &appData.secondHasOwnBookUCI);
1166         XtGetValues(w3, args, 1);
1167         XtSetArg(args[0], XtNstate, &ponder);
1168         XtGetValues(w4, args, 1);
1169
1170         // adjust setting in other menu for duplicates
1171         // (perhaps duplicates should be removed from general Option Menu?)
1172         XtSetArg(args[0], XtNleftBitmap, ponder ? xMarkPixmap : None);
1173         XtSetValues(XtNameToWidget(menuBarWidget,
1174                                    "menuOptions.Ponder Next Move"), args, 1);
1175
1176         // make sure changes are sent to first engine by re-initializing it
1177         // if it was already started pre-emptively at end of previous game
1178         if(gameMode == BeginningOfGame) Reset(True, True); else {
1179             // Some changed setting need immediate sending always.
1180             PonderNextMoveEvent(ponder);
1181             if(oldCores != appData.smpCores)
1182                 NewSettingEvent(False, "cores", appData.smpCores);
1183       }
1184       UciPopDown();
1185       return;
1186     }
1187 }
1188
1189 void UciPopUp()
1190 {
1191     Arg args[16];
1192     Widget popup, layout, dialog, edit, form, b_ok, b_cancel, last = NULL, new, upperLeft;
1193     Window root, child;
1194     int x, y, i, j;
1195     int win_x, win_y;
1196     unsigned int mask;
1197     char def[80];
1198
1199     i = 0;
1200     XtSetArg(args[i], XtNresizable, True); i++;
1201 //    XtSetArg(args[i], XtNwidth, 300); i++;
1202     UciShell = popup =
1203       XtCreatePopupShell(_("Engine Settings"), transientShellWidgetClass,
1204                          shellWidget, args, i);
1205
1206     layout =
1207       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1208                             layoutArgs, XtNumber(layoutArgs));
1209
1210
1211     form =
1212       XtCreateManagedWidget("form", formWidgetClass, layout,
1213                             formArgs, XtNumber(formArgs));
1214
1215     j = 0;
1216     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
1217     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
1218     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1219 //    XtSetArg(args[j], XtNheight, 20); j++;
1220     for(i = 0; controlDesc[i].name != NULL; i++) {
1221         j = 3;
1222         XtSetArg(args[j], XtNfromVert, last); j++;
1223 //      XtSetArg(args[j], XtNwidth, 130); j++;
1224         XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
1225         XtSetArg(args[j], XtNright, XtChainLeft);  j++;
1226         XtSetArg(args[j], XtNborderWidth, 0); j++;
1227         new = XtCreateManagedWidget(controlDesc[i].name, labelWidgetClass, form, args, j);
1228         if(i==0) upperLeft = new;
1229
1230         j = 4;
1231         XtSetArg(args[j], XtNborderWidth, 1); j++;
1232         XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
1233         XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
1234         XtSetArg(args[j], XtNdisplayCaret, False);  j++;
1235         XtSetArg(args[j], XtNright, XtChainRight);  j++;
1236         XtSetArg(args[j], XtNresizable, True);  j++;
1237         XtSetArg(args[j], XtNwidth, i&1 ? 245 : 50); j++;
1238         if(i&1) {
1239             XtSetArg(args[j], XtNstring, * (char**) controlDesc[i].ptr ?
1240                                          * (char**) controlDesc[i].ptr : ""); j++;
1241         } else {
1242             sprintf(def, "%d", * (int*) controlDesc[i].ptr);
1243             XtSetArg(args[j], XtNstring, def); j++;
1244         }
1245         XtSetArg(args[j], XtNfromHoriz, upperLeft); j++;
1246         controlDesc[i].handle = last =
1247             XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j);
1248         XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
1249     }
1250
1251     j=0;
1252     XtSetArg(args[j], XtNfromHoriz, controlDesc[0].handle);  j++;
1253     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
1254     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
1255     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1256     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1257     XtSetArg(args[j], XtNstate, appData.ponderNextMove);  j++;
1258     w4 = XtCreateManagedWidget(_("Ponder"), toggleWidgetClass, form, args, j);
1259
1260     j=0;
1261     XtSetArg(args[j], XtNfromVert, last);  j++;
1262     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1263     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1264     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1265     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
1266     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
1267     XtAddCallback(b_ok, XtNcallback, UciCallback, (XtPointer) 0);
1268
1269     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
1270     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
1271     XtAddCallback(b_cancel, XtNcallback, UciPopDown, (XtPointer) 0);
1272
1273     j = 5;
1274     XtSetArg(args[j], XtNfromHoriz, upperLeft);  j++;
1275     XtSetArg(args[j], XtNstate, appData.usePolyglotBook);  j++;
1276     w1 = XtCreateManagedWidget(_(" use book "), toggleWidgetClass, form, args, j);
1277 //    XtAddCallback(w1, XtNcallback, UciCallback, (XtPointer) 0);
1278
1279     j = 5;
1280     XtSetArg(args[j], XtNfromHoriz, w1);  j++;
1281     XtSetArg(args[j], XtNstate, appData.firstHasOwnBookUCI);  j++;
1282     w2 = XtCreateManagedWidget(_("own book 1"), toggleWidgetClass, form, args, j);
1283 //    XtAddCallback(w2, XtNcallback, UciCallback, (XtPointer) 0);
1284
1285     j = 5;
1286     XtSetArg(args[j], XtNfromHoriz, w2);  j++;
1287     XtSetArg(args[j], XtNstate, appData.secondHasOwnBookUCI);  j++;
1288     w3 = XtCreateManagedWidget(_("own book 2"), toggleWidgetClass, form, args, j);
1289 //    XtAddCallback(w3, XtNcallback, UciCallback, (XtPointer) 0);
1290
1291     XtRealizeWidget(popup);
1292     CatchDeleteWindow(popup, "UciPopDown");
1293
1294     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1295                   &x, &y, &win_x, &win_y, &mask);
1296
1297     XtSetArg(args[0], XtNx, x - 10);
1298     XtSetArg(args[1], XtNy, y - 30);
1299     XtSetValues(popup, args, 2);
1300
1301     XtPopup(popup, XtGrabExclusive);
1302     UciUp = True;
1303
1304     previous = NULL;
1305     SetFocus(controlDesc[2].handle, popup, (XEvent*) NULL, False);
1306 //    XtSetKeyboardFocus(popup, controlDesc[1].handle);
1307 }
1308
1309 void UciMenuProc(w, event, prms, nprms)
1310      Widget w;
1311      XEvent *event;
1312      String *prms;
1313      Cardinal *nprms;
1314 {
1315    UciPopUp();
1316 }
1317
1318 //--------------------------- Engine-specific options menu ----------------------------------
1319
1320 int SettingsUp;
1321 Widget SettingsShell;
1322 int values[MAX_OPTIONS];
1323 ChessProgramState *currentCps;
1324
1325 void SettingsPopDown()
1326 {
1327     if (!SettingsUp) return;
1328     XtPopdown(SettingsShell);
1329     XtDestroyWidget(SettingsShell);
1330     SettingsUp = False;
1331     ModeHighlight();
1332 }
1333
1334 void SpinCallback(w, client_data, call_data)
1335      Widget w;
1336      XtPointer client_data, call_data;
1337 {
1338     String name, val;
1339     Widget w2;
1340     Arg args[16];
1341     char buf[MSG_SIZ];
1342     int i, j;
1343
1344     XtSetArg(args[0], XtNlabel, &name);
1345     XtGetValues(w, args, 1);
1346
1347     j = 0;
1348     XtSetArg(args[0], XtNstring, &val);
1349     XtGetValues(currentCps->option[(int)client_data].handle, args, 1);
1350     sscanf(val, "%d", &j);
1351     if (strcmp(name, "+") == 0) {
1352         if(++j > currentCps->option[(int)client_data].max) return;
1353     } else
1354     if (strcmp(name, "-") == 0) {
1355         if(--j < currentCps->option[(int)client_data].min) return;
1356     } else return;
1357     sprintf(buf, "%d", j);
1358     XtSetArg(args[0], XtNstring, buf);
1359     XtSetValues(currentCps->option[(int)client_data].handle, args, 1);
1360 }
1361
1362 void SettingsCallback(w, client_data, call_data)
1363      Widget w;
1364      XtPointer client_data, call_data;
1365 {
1366     String name, val;
1367     Widget w2;
1368     Arg args[16];
1369     char buf[MSG_SIZ];
1370     int i, j;
1371
1372     XtSetArg(args[0], XtNlabel, &name);
1373     XtGetValues(w, args, 1);
1374
1375     if (strcmp(name, _("cancel")) == 0) {
1376         SettingsPopDown();
1377         return;
1378     }
1379     if (strcmp(name, _("OK")) == 0 || (int)client_data) { // save buttons imply OK
1380         int nr;
1381
1382         for(i=0; i<currentCps->nrOptions; i++) { // send all options that had to be OK-ed to engine
1383             switch(currentCps->option[i].type) {
1384                 case TextBox:
1385                     XtSetArg(args[0], XtNstring, &val);
1386                     XtGetValues(currentCps->option[i].handle, args, 1);
1387                     if(strcmp(currentCps->option[i].textValue, val)) {
1388                         strcpy(currentCps->option[i].textValue, val);
1389                         sprintf(buf, "option %s=%s\n", currentCps->option[i].name, val);
1390                         SendToProgram(buf, currentCps);
1391                     }
1392                     break;
1393                 case Spin:
1394                     XtSetArg(args[0], XtNstring, &val);
1395                     XtGetValues(currentCps->option[i].handle, args, 1);
1396                     sscanf(val, "%d", &j);
1397                     if(j > currentCps->option[i].max) j = currentCps->option[i].max;
1398                     if(j < currentCps->option[i].min) j = currentCps->option[i].min;
1399                     if(currentCps->option[i].value != j) {
1400                         currentCps->option[i].value = j;
1401                         sprintf(buf, "option %s=%d\n", currentCps->option[i].name, j);
1402                         SendToProgram(buf, currentCps);
1403                     }
1404                     break;
1405                 case CheckBox:
1406                     j = 0;
1407                     XtSetArg(args[0], XtNstate, &j);
1408                     XtGetValues(currentCps->option[i].handle, args, 1);
1409                     if(currentCps->option[i].value != j) {
1410                         currentCps->option[i].value = j;
1411                         sprintf(buf, "option %s=%d\n", currentCps->option[i].name, j);
1412                         SendToProgram(buf, currentCps);
1413                     }
1414                     break;
1415                 case ComboBox:
1416                     if(currentCps->option[i].value != values[i]) {
1417                         currentCps->option[i].value = values[i];
1418                         sprintf(buf, "option %s=%s\n", currentCps->option[i].name,
1419                                 ((char**)currentCps->option[i].textValue)[values[i]]);
1420                         SendToProgram(buf, currentCps);
1421                     }
1422                     break;
1423             }
1424         }
1425         if((int)client_data) { // send save-button command to engine
1426             sprintf(buf, "option %s\n", name);
1427             SendToProgram(buf, currentCps);
1428         }
1429         SettingsPopDown();
1430         return;
1431     }
1432     sprintf(buf, "option %s\n", name);
1433     SendToProgram(buf, currentCps);
1434 }
1435
1436 void ComboSelect(w, addr, index) // callback for all combo items
1437      Widget w;
1438      caddr_t addr;
1439      caddr_t index;
1440 {
1441     Arg args[16];
1442     int i = ((int)addr)>>8;
1443     int j = 255 & (int) addr;
1444
1445     values[i] = j; // store in temporary, for transfer at OK
1446     XtSetArg(args[0], XtNlabel, ((char**)currentCps->option[i].textValue)[j]);
1447     XtSetValues(currentCps->option[i].handle, args, 1);
1448 }
1449
1450 void CreateComboPopup(parent, name, n, mb)
1451      Widget parent;
1452      String name;
1453      int n;
1454      char *mb[];
1455 {
1456     int i=0, j;
1457     Widget menu, entry;
1458     Arg args[16];
1459
1460     menu = XtCreatePopupShell(name, simpleMenuWidgetClass,
1461                               parent, NULL, 0);
1462     j = 0;
1463     XtSetArg(args[j], XtNwidth, 100);  j++;
1464 //    XtSetArg(args[j], XtNright, XtChainRight);  j++;
1465     while (mb[i] != NULL) {
1466             entry = XtCreateManagedWidget(mb[i], smeBSBObjectClass,
1467                                           menu, args, j);
1468             XtAddCallback(entry, XtNcallback,
1469                           (XtCallbackProc) ComboSelect,
1470                           (caddr_t) (256*n+i));
1471         i++;
1472     }
1473 }
1474
1475 void SettingsPopUp(ChessProgramState *cps)
1476 {
1477     Arg args[16];
1478     Widget popup, layout, dialog, edit=NULL, form, oldform, last, b_ok, b_cancel, leftMargin = NULL;
1479     Window root, child;
1480     int x, y, i, j, height, width, h, c;
1481     int win_x, win_y;
1482     unsigned int mask;
1483     char def[80], *p, *q;
1484     static char pane[6] = "paneX";
1485
1486     // to do: start up second engine if needed
1487     if(!cps->initDone || !cps->nrOptions) return; // nothing to be done
1488     currentCps = cps;
1489
1490     if(cps->nrOptions > 50) width = 4; else if(cps->nrOptions>24) width = 2; else width = 1;
1491     height = cps->nrOptions / width + 1;
1492      i = 0;
1493     XtSetArg(args[i], XtNresizable, True); i++;
1494     SettingsShell = popup =
1495       XtCreatePopupShell(_("Settings Menu"), transientShellWidgetClass,
1496                          shellWidget, args, i);
1497
1498     layout =
1499       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1500                             layoutArgs, XtNumber(layoutArgs));
1501   for(c=0; c<width; c++) {
1502     pane[4] = 'A'+c;
1503     form =
1504       XtCreateManagedWidget(pane, formWidgetClass, layout,
1505                             formArgs, XtNumber(formArgs));
1506     j=0;
1507     XtSetArg(args[j], XtNfromHoriz, leftMargin);  j++;
1508     XtSetValues(form, args, j);
1509     leftMargin = form;
1510
1511     last = NULL;
1512     for(h=0; h<height; h++) {
1513         i = h + c*height;
1514         if(i >= cps->nrOptions) break;
1515         switch(cps->option[i].type) {
1516           case Spin:
1517             sprintf(def, "%d", cps->option[i].value);
1518           case TextBox:
1519             j=0;
1520             XtSetArg(args[j], XtNfromVert, last);  j++;
1521             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1522             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1523             dialog = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1524             j=0;
1525             XtSetArg(args[j], XtNfromVert, last);  j++;
1526             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1527             XtSetArg(args[j], XtNborderWidth, 1); j++;
1528             XtSetArg(args[j], XtNwidth, cps->option[i].type == Spin ? 40 : 100); j++;
1529             XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
1530             XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
1531             XtSetArg(args[j], XtNdisplayCaret, False);  j++;
1532             XtSetArg(args[j], XtNright, XtChainRight);  j++;
1533             XtSetArg(args[j], XtNresizable, True);  j++;
1534             XtSetArg(args[j], XtNstring, cps->option[i].type==Spin ? def : cps->option[i].textValue);  j++;
1535             edit = last;
1536             cps->option[i].handle = (void*)
1537                 (last = XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j));
1538             XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
1539             if(cps->option[i].type == TextBox) break;
1540
1541             // add increment and decrement controls for spin
1542             j=0;
1543             XtSetArg(args[j], XtNfromVert, edit);  j++;
1544             XtSetArg(args[j], XtNfromHoriz, last);  j++;
1545             XtSetArg(args[j], XtNheight, 10);  j++;
1546             XtSetArg(args[j], XtNwidth, 20);  j++;
1547             edit = XtCreateManagedWidget("+", commandWidgetClass, form, args, j);
1548             XtAddCallback(edit, XtNcallback, SpinCallback, (XtPointer) i);
1549
1550             j=0;
1551             XtSetArg(args[j], XtNfromVert, edit);  j++;
1552             XtSetArg(args[j], XtNfromHoriz, last);  j++;
1553             XtSetArg(args[j], XtNheight, 10);  j++;
1554             XtSetArg(args[j], XtNwidth, 20);  j++;
1555             last = XtCreateManagedWidget("-", commandWidgetClass, form, args, j);
1556             XtAddCallback(last, XtNcallback, SpinCallback, (XtPointer) i);
1557             break;
1558           case CheckBox:
1559             j=0;
1560             XtSetArg(args[j], XtNfromVert, last);  j++;
1561             XtSetArg(args[j], XtNwidth, 10);  j++;
1562             XtSetArg(args[j], XtNheight, 10);  j++;
1563             XtSetArg(args[j], XtNstate, cps->option[i].value);  j++;
1564             cps->option[i].handle = (void*)
1565                 (dialog = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
1566             j=0;
1567             XtSetArg(args[j], XtNfromVert, last);  j++;
1568             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1569             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1570             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1571             last = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1572             break;
1573           case SaveButton:
1574           case Button:
1575             j=0;
1576             XtSetArg(args[j], XtNfromVert, last);  j++;
1577             XtSetArg(args[j], XtNstate, cps->option[i].value);  j++;
1578             cps->option[i].handle = (void*)
1579                 (last = XtCreateManagedWidget(cps->option[i].name, commandWidgetClass, form, args, j));
1580             XtAddCallback(last, XtNcallback, SettingsCallback, (XtPointer) (cps->option[i].type == SaveButton));
1581             break;
1582           case ComboBox:
1583             j=0;
1584             XtSetArg(args[j], XtNfromVert, last);  j++;
1585             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1586             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1587             dialog = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1588
1589             j=0;
1590             XtSetArg(args[j], XtNfromVert, last);  j++;
1591             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1592             XtSetArg(args[j], XtNwidth, 100);  j++;
1593             XtSetArg(args[j], XtNmenuName, XtNewString(cps->option[i].name));  j++;
1594             XtSetArg(args[j], XtNlabel, ((char**)cps->option[i].textValue)[cps->option[i].value]);  j++;
1595             cps->option[i].handle = (void*)
1596                 (last = XtCreateManagedWidget(" ", menuButtonWidgetClass, form, args, j));
1597             CreateComboPopup(last, cps->option[i].name, i, (char **) cps->option[i].textValue);
1598             values[i] = cps->option[i].value;
1599             break;
1600         }
1601     }
1602   }
1603     j=0;
1604     XtSetArg(args[j], XtNfromVert, last);  j++;
1605     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1606     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1607     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1608     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
1609     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
1610     XtAddCallback(b_ok, XtNcallback, SettingsCallback, (XtPointer) 0);
1611
1612     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
1613     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
1614     XtAddCallback(b_cancel, XtNcallback, SettingsPopDown, (XtPointer) 0);
1615
1616     XtRealizeWidget(popup);
1617     CatchDeleteWindow(popup, "SettingsPopDown");
1618
1619     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1620                   &x, &y, &win_x, &win_y, &mask);
1621
1622     XtSetArg(args[0], XtNx, x - 10);
1623     XtSetArg(args[1], XtNy, y - 30);
1624     XtSetValues(popup, args, 2);
1625
1626     XtPopup(popup, XtGrabExclusive);
1627     SettingsUp = True;
1628
1629     previous = NULL;
1630     if(edit)SetFocus(edit, popup, (XEvent*) NULL, False);
1631 }
1632
1633 void FirstSettingsProc(w, event, prms, nprms)
1634      Widget w;
1635      XEvent *event;
1636      String *prms;
1637      Cardinal *nprms;
1638 {
1639    SettingsPopUp(&first);
1640 }
1641
1642 void SecondSettingsProc(w, event, prms, nprms)
1643      Widget w;
1644      XEvent *event;
1645      String *prms;
1646      Cardinal *nprms;
1647 {
1648    SettingsPopUp(&second);
1649 }
1650
1651 //---------------------------- Chat Windows ----------------------------------------------
1652
1653 void OutputChatMessage(int partner, char *mess)
1654 {
1655     return; // dummy
1656 }
1657
1658 //--------------------------- General Popup for Cloning ----------------------------------
1659 #if 0
1660 int XXXUp;
1661 Widget XXXShell;
1662
1663 void XXXPopDown()
1664 {
1665     if (!XXXUp) return;
1666     XtPopdown(XXXShell);
1667     XtDestroyWidget(XXXShell);
1668     XXXUp = False;
1669     ModeHighlight();
1670 }
1671
1672 void XXXCallback(w, client_data, call_data)
1673      Widget w;
1674      XtPointer client_data, call_data;
1675 {
1676     String name;
1677     Widget w2;
1678     Arg args[16];
1679     char buf[80];
1680
1681     XtSetArg(args[0], XtNlabel, &name);
1682     XtGetValues(w, args, 1);
1683
1684     if (strcmp(name, _("cancel")) == 0) {
1685         XXXPopDown();
1686         return;
1687     }
1688     if (strcmp(name, _("ok")) == 0) {
1689         int nr; String name;
1690         name = XawDialogGetValueString(w2 = XtParent(w));
1691         if(sscanf(name ,"%d",&nr) != 1) {
1692             sprintf(buf, "%d", appData.defaultFrcPosition);
1693             XtSetArg(args[0],XtNvalue, buf); // erase bad (non-numeric) value
1694             XtSetValues(w2, args, 1);
1695             return;
1696         }
1697         XXXPopDown();
1698         return;
1699     }
1700 }
1701
1702 void XXXPopUp()
1703 {
1704     Arg args[16];
1705     Widget popup, layout, dialog, edit;
1706     Window root, child;
1707     int x, y, i;
1708     int win_x, win_y;
1709     unsigned int mask;
1710     char def[80];
1711
1712     i = 0;
1713     XtSetArg(args[i], XtNresizable, True); i++;
1714     XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
1715     XXXShell = popup =
1716       XtCreatePopupShell(_("XXX Menu"), transientShellWidgetClass,
1717                          shellWidget, args, i);
1718
1719     layout =
1720       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1721                             layoutArgs, XtNumber(layoutArgs));
1722
1723     sprintf(def, "%d\n", appData.defaultFrcPosition);
1724     i = 0;
1725     XtSetArg(args[i], XtNlabel, ""); i++;
1726     XtSetArg(args[i], XtNvalue, def); i++;
1727     XtSetArg(args[i], XtNborderWidth, 0); i++;
1728     dialog = XtCreateManagedWidget("XXX", dialogWidgetClass,
1729                                    layout, args, i);
1730
1731     XawDialogAddButton(dialog, _("ok"), XXXCallback, (XtPointer) dialog);
1732     XawDialogAddButton(dialog, _("cancel"), XXXCallback, (XtPointer) dialog);
1733
1734     XtRealizeWidget(popup);
1735     CatchDeleteWindow(popup, "XXXPopDown");
1736
1737     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1738                   &x, &y, &win_x, &win_y, &mask);
1739
1740     XtSetArg(args[0], XtNx, x - 10);
1741     XtSetArg(args[1], XtNy, y - 30);
1742     XtSetValues(popup, args, 2);
1743
1744     XtPopup(popup, XtGrabExclusive);
1745     XXXUp = True;
1746
1747     edit = XtNameToWidget(dialog, "*value");
1748
1749     previous = NULL;
1750     SetFocus(engThreshold, popup, (XEvent*) NULL, False);
1751 }
1752
1753 void XXXMenuProc(w, event, prms, nprms)
1754      Widget w;
1755      XEvent *event;
1756      String *prms;
1757      Cardinal *nprms;
1758 {
1759    XXXPopUp();
1760 }
1761 #endif