xoptions.c

   1 /*
   2  * xoptions.c -- Move list window, part of X front end for XBoard
   3  *
   4  * Copyright 2000, 2009, 2010, 2011 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 #include <stdint.h>
  49
  50 #include <X11/Intrinsic.h>
  51 #include <X11/StringDefs.h>
  52 #include <X11/Shell.h>
  53 #include <X11/Xaw/Dialog.h>
  54 #include <X11/Xaw/Form.h>
  55 #include <X11/Xaw/List.h>
  56 #include <X11/Xaw/Label.h>
  57 #include <X11/Xaw/SimpleMenu.h>
  58 #include <X11/Xaw/SmeBSB.h>
  59 #include <X11/Xaw/SmeLine.h>
  60 #include <X11/Xaw/Box.h>
  61 #include <X11/Xaw/Paned.h>
  62 #include <X11/Xaw/MenuButton.h>
  63 #include <X11/cursorfont.h>
  64 #include <X11/Xaw/Text.h>
  65 #include <X11/Xaw/AsciiText.h>
  66 #include <X11/Xaw/Viewport.h>
  67 #include <X11/Xaw/Toggle.h>
  68
  69 #include "common.h"
  70 #include "backend.h"
  71 #include "xboard.h"
  72 #include "gettext.h"
  73
  74 #ifdef ENABLE_NLS
  75 # define  _(s) gettext (s)
  76 # define N_(s) gettext_noop (s)
  77 #else
  78 # define  _(s) (s)
  79 # define N_(s)  s
  80 #endif
  81
  82 extern void SendToProgram P((char *message, ChessProgramState *cps));
  83 FILE * XsraSelFile P((Widget w, char *prompt, char *ok, char *cancel, char *failed,
  84                 char *init_path, char *mode, int (*show_entry)(), char **name_return));
  85
  86 extern Widget formWidget, shellWidget, boardWidget, menuBarWidget;
  87 extern Display *xDisplay;
  88 extern int squareSize;
  89 extern Pixmap xMarkPixmap;
  90 extern char *layoutName;
  91 extern Window xBoardWindow;
  92 extern Arg layoutArgs[2], formArgs[2];
  93 Pixel timerForegroundPixel, timerBackgroundPixel;
  94 extern int searchTime;
  95
  96 // [HGM] the following code for makng menu popups was cloned from the FileNamePopUp routines
  97
  98 static Widget previous = NULL;
  99
 100 void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b)
 101 {
 102     Arg args[2];
 103     char *s;
 104
 105     if(previous) {
 106         XtSetArg(args[0], XtNdisplayCaret, False);
 107         XtSetValues(previous, args, 1);
 108     }
 109     XtSetArg(args[0], XtNstring, &s);
 110     XtGetValues(w, args, 1);
 111     XtSetArg(args[0], XtNdisplayCaret, True);
 112     XtSetArg(args[1], XtNinsertPosition, strlen(s));
 113     XtSetValues(w, args, 2);
 114     XtSetKeyboardFocus((Widget) data, w);
 115     previous = w;
 116 }
 117
 118 //--------------------------- New Shuffle Game --------------------------------------------
 119 extern int shuffleOpenings;
 120 extern int startedFromPositionFile;
 121 int shuffleUp;
 122 Widget shuffleShell;
 123
 124 void ShufflePopDown()
 125 {
 126     if (!shuffleUp) return;
 127     XtPopdown(shuffleShell);
 128     XtDestroyWidget(shuffleShell);
 129     shuffleUp = False;
 130     ModeHighlight();
 131 }
 132
 133 void ShuffleCallback(w, client_data, call_data)
 134      Widget w;
 135      XtPointer client_data, call_data;
 136 {
 137     String name;
 138     Widget w2;
 139     Arg args[16];
 140     char buf[MSG_SIZ];
 141
 142     XtSetArg(args[0], XtNlabel, &name);
 143     XtGetValues(w, args, 1);
 144
 145     if (strcmp(name, _("cancel")) == 0) {
 146         ShufflePopDown();
 147         return;
 148     }
 149     if (strcmp(name, _("off")) == 0) {
 150         ShufflePopDown();
 151         shuffleOpenings = False; // [HGM] should be moved to New Variant menu, once we have it!
 152         ResetGameEvent();
 153         return;
 154     }
 155     if (strcmp(name, _("random")) == 0) {
 156       snprintf(buf, MSG_SIZ,  "%d", rand());
 157         XtSetArg(args[0],XtNvalue, buf); // erase bad (non-numeric) value
 158         XtSetValues(XtParent(w), args, 1);
 159         return;
 160     }
 161     if (strcmp(name, _("ok")) == 0) {
 162         int nr; String name;
 163         name = XawDialogGetValueString(w2 = XtParent(w));
 164         if(sscanf(name ,"%d",&nr) != 1) {
 165           snprintf(buf, MSG_SIZ,  "%d", appData.defaultFrcPosition);
 166             XtSetArg(args[0],XtNvalue, buf); // erase bad (non-numeric) value
 167             XtSetValues(w2, args, 1);
 168             return;
 169         }
 170         appData.defaultFrcPosition = nr;
 171         shuffleOpenings = True;
 172         ShufflePopDown();
 173         ResetGameEvent();
 174         return;
 175     }
 176 }
 177
 178 void ShufflePopUp()
 179 {
 180     Arg args[16];
 181     Widget popup, layout, dialog, edit;
 182     Window root, child;
 183     int x, y, i;
 184     int win_x, win_y;
 185     unsigned int mask;
 186     char def[MSG_SIZ];
 187
 188     i = 0;
 189     XtSetArg(args[i], XtNresizable, True); i++;
 190     XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 191     shuffleShell = popup =
 192       XtCreatePopupShell(_("New Shuffle Game"), transientShellWidgetClass,
 193                          shellWidget, args, i);
 194
 195     layout =
 196       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 197                             layoutArgs, XtNumber(layoutArgs));
 198
 199     snprintf(def, MSG_SIZ,  "%d\n", appData.defaultFrcPosition);
 200     i = 0;
 201     XtSetArg(args[i], XtNlabel, _("Start-position number:")); i++;
 202     XtSetArg(args[i], XtNvalue, def); i++;
 203     XtSetArg(args[i], XtNborderWidth, 0); i++;
 204     dialog = XtCreateManagedWidget(_("Shuffle"), dialogWidgetClass,
 205                                    layout, args, i);
 206
 207 //    XtSetArg(args[0], XtNeditType, XawtextEdit);  // [HGM] can't get edit to work decently
 208 //    XtSetArg(args[1], XtNuseStringInPlace, False);
 209 //    XtSetValues(dialog, args, 2);
 210
 211     XawDialogAddButton(dialog, _("ok"), ShuffleCallback, (XtPointer) dialog);
 212     XawDialogAddButton(dialog, _("cancel"), ShuffleCallback, (XtPointer) dialog);
 213     XawDialogAddButton(dialog, _("random"), ShuffleCallback, (XtPointer) dialog);
 214     XawDialogAddButton(dialog, _("off"), ShuffleCallback, (XtPointer) dialog);
 215
 216     XtRealizeWidget(popup);
 217     CatchDeleteWindow(popup, "ShufflePopDown");
 218
 219     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 220                   &x, &y, &win_x, &win_y, &mask);
 221
 222     XtSetArg(args[0], XtNx, x - 10);
 223     XtSetArg(args[1], XtNy, y - 30);
 224     XtSetValues(popup, args, 2);
 225
 226     XtPopup(popup, XtGrabExclusive);
 227     shuffleUp = True;
 228
 229     edit = XtNameToWidget(dialog, "*value");
 230
 231     XtSetKeyboardFocus(popup, edit);
 232 }
 233
 234 void ShuffleMenuProc(w, event, prms, nprms)
 235      Widget w;
 236      XEvent *event;
 237      String *prms;
 238      Cardinal *nprms;
 239 {
 240 //    if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
 241 //      Reset(FALSE, TRUE);
 242 //    }
 243     ShufflePopUp();
 244 }
 245
 246 //--------------------------- Time-Control Menu Popup ----------------------------------
 247 int TimeControlUp;
 248 Widget TimeControlShell;
 249 int tcInc;
 250 Widget tcMess1, tcMess2, tcData, tcTime, tcOdds1, tcOdds2;
 251 int tcIncrement, tcMoves;
 252
 253 void TimeControlPopDown()
 254 {
 255     if (!TimeControlUp) return;
 256     previous = NULL;
 257     XtPopdown(TimeControlShell);
 258     XtDestroyWidget(TimeControlShell);
 259     TimeControlUp = False;
 260     ModeHighlight();
 261 }
 262
 263 void TimeControlCallback(w, client_data, call_data)
 264      Widget w;
 265      XtPointer client_data, call_data;
 266 {
 267     String name, txt;
 268     Arg args[16];
 269     char buf[MSG_SIZ];
 270     int j;
 271
 272     XtSetArg(args[0], XtNlabel, &name);
 273     XtGetValues(w, args, 1);
 274
 275     if (strcmp(name, _("classical")) == 0) {
 276         if(tcInc == 0) return;
 277         j=0;
 278         XtSetArg(args[j], XtNlabel, _("minutes for each")); j++;
 279         XtSetValues(tcMess1, args, j);
 280         j=0;
 281         XtSetArg(args[j], XtNlabel, _("moves")); j++;
 282         XtSetValues(tcMess2, args, j);
 283         if(tcInc == 1) {
 284             j=0;
 285             XtSetArg(args[j], XtNstring, &name); j++;
 286             XtGetValues(tcData, args, j);
 287             tcIncrement = 0; sscanf(name, "%d", &tcIncrement);
 288         }
 289         snprintf(buf, MSG_SIZ,  "%d", tcMoves);
 290         j=0;
 291         XtSetArg(args[j], XtNstring, buf); j++;
 292         XtSetValues(tcData, args, j);
 293         tcInc = 0;
 294         return;
 295     }
 296     if (strcmp(name, _("incremental")) == 0) {
 297         if(tcInc == 1) return;
 298         j=0;
 299         XtSetArg(args[j], XtNlabel, _("minutes, plus")); j++;
 300         XtSetValues(tcMess1, args, j);
 301         j=0;
 302         XtSetArg(args[j], XtNlabel, _("sec/move")); j++;
 303         XtSetValues(tcMess2, args, j);
 304         if(tcInc == 0) {
 305             j=0;
 306             XtSetArg(args[j], XtNstring, &name); j++;
 307             XtGetValues(tcData, args, j);
 308             tcMoves = appData.movesPerSession; sscanf(name, "%d", &tcMoves);
 309         }
 310         snprintf(buf, MSG_SIZ,  "%d", tcIncrement);
 311         j=0;
 312         XtSetArg(args[j], XtNstring, buf); j++;
 313         XtSetValues(tcData, args, j);
 314         tcInc = 1;
 315         return;
 316     }
 317     if (strcmp(name, _("fixed time")) == 0) {
 318         if(tcInc == 2) return;
 319         j=0;
 320         XtSetArg(args[j], XtNlabel, _("sec/move (max)")); j++;
 321         XtSetValues(tcMess1, args, j);
 322         j=0;
 323         XtSetArg(args[j], XtNlabel, _("")); j++;
 324         XtSetValues(tcMess2, args, j);
 325         j=0;
 326         XtSetArg(args[j], XtNstring, ""); j++;
 327         XtSetValues(tcData, args, j);
 328         tcInc = 2;
 329         return;
 330     }
 331     if (strcmp(name, _(" OK ")) == 0) {
 332         int inc, mps, ok;
 333         XtSetArg(args[0], XtNstring, &txt);
 334         XtGetValues(tcData, args, 1);
 335         switch(tcInc) {
 336           case 1:
 337             ok = sscanf(txt, "%d", &inc); mps = 0;
 338             if(!ok && txt[0] == 0) { inc = 0; ok = 1; } // accept empty string as zero
 339             ok &= (inc >= 0);
 340             break;
 341           case 0:
 342             ok = sscanf(txt, "%d", &mps); inc = -1;
 343             ok &= (mps > 0);
 344             break;
 345           case 2:
 346             ok = 1; inc = -1; mps = 40;
 347         }
 348         if(ok != 1) {
 349             XtSetArg(args[0], XtNstring, ""); // erase any offending input
 350             XtSetValues(tcData, args, 1);
 351             return;
 352         }
 353         XtSetArg(args[0], XtNstring, &txt);
 354         XtGetValues(tcTime, args, 1);
 355         if(tcInc == 2) {
 356             if(sscanf(txt, "%d", &inc) != 1) {
 357                 XtSetArg(args[0], XtNstring, ""); // erase any offending input
 358                 XtSetValues(tcTime, args, 1);
 359                 DisplayError(_("Bad Time-Control String"), 0);
 360                 return;
 361             }
 362             searchTime = inc;
 363         } else {
 364             if(!ParseTimeControl(txt, inc, mps)) {
 365                 XtSetArg(args[0], XtNstring, ""); // erase any offending input
 366                 XtSetValues(tcTime, args, 1);
 367                 DisplayError(_("Bad Time-Control String"), 0);
 368                 return;
 369             }
 370             searchTime = 0;
 371             appData.movesPerSession = mps;
 372             appData.timeIncrement = inc;
 373             appData.timeControl = strdup(txt);
 374         }
 375         XtSetArg(args[0], XtNstring, &txt);
 376         XtGetValues(tcOdds1, args, 1);
 377         appData.firstTimeOdds = first.timeOdds
 378                 = (sscanf(txt, "%d", &j) == 1 && j > 0) ? j : 1;
 379         XtGetValues(tcOdds2, args, 1);
 380         appData.secondTimeOdds = second.timeOdds
 381                 = (sscanf(txt, "%d", &j) == 1 && j > 0) ? j : 1;
 382
 383         Reset(True, True);
 384         TimeControlPopDown();
 385         return;
 386     }
 387 }
 388
 389 void TimeControlPopUp()
 390 {
 391     Arg args[16];
 392     Widget popup, layout, form,  b_ok, b_cancel, b_clas, b_inc, mess;
 393     Window root, child;
 394     int x, y, i, j;
 395     int win_x, win_y;
 396     unsigned int mask;
 397     char def[MSG_SIZ];
 398
 399     tcInc = searchTime > 0 ? 2 : (appData.timeIncrement >= 0);
 400     tcMoves = appData.movesPerSession; tcIncrement = appData.timeIncrement;
 401     if(!tcInc) tcIncrement = 0;
 402     snprintf(def, MSG_SIZ,  "%d", tcInc ? tcIncrement : tcMoves);
 403
 404     i = 0;
 405     XtSetArg(args[i], XtNresizable, True); i++;
 406 //    XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 407     TimeControlShell = popup =
 408       XtCreatePopupShell(_("TimeControl Menu"), transientShellWidgetClass,
 409                          shellWidget, args, i);
 410
 411     layout =
 412       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 413                             layoutArgs, XtNumber(layoutArgs));
 414
 415     form =
 416       XtCreateManagedWidget(layoutName, formWidgetClass, layout,
 417                             formArgs, XtNumber(formArgs));
 418
 419     j = 0;
 420 //    XtSetArg(args[j], XtNwidth,     (XtArgVal) 300); j++;
 421 //    XtSetArg(args[j], XtNheight,    (XtArgVal) 85); j++;
 422     XtSetValues(popup, args, j);
 423
 424     j= 0;
 425     XtSetArg(args[j], XtNborderWidth, 1); j++;
 426     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 427     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 428     XtSetArg(args[j], XtNstring, appData.timeControl);  j++;
 429     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 430     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 431     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 432     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 433     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 434     XtSetArg(args[j], XtNresizable, True);  j++;
 435     XtSetArg(args[j], XtNwidth,  85);  j++;
 436     XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
 437     tcTime = XtCreateManagedWidget("TC", asciiTextWidgetClass, form, args, j);
 438     XtAddEventHandler(tcTime, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 439
 440     j= 0;
 441     XtSetArg(args[j], XtNlabel, tcInc ? tcInc == 2 ? _("sec/move (max)   ") : _("   minutes, plus   ") : _("minutes for each")); j++;
 442     XtSetArg(args[j], XtNborderWidth, 0); j++;
 443     XtSetArg(args[j], XtNfromHoriz, tcTime); j++;
 444     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 445     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 446     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 447     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 448   //  XtSetArg(args[j], XtNwidth,  100);  j++;
 449   //  XtSetArg(args[j], XtNheight, 20);  j++;
 450     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 451
 452     j= 0;
 453     XtSetArg(args[j], XtNborderWidth, 1); j++;
 454     XtSetArg(args[j], XtNfromHoriz, tcMess1); j++;
 455     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 456     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 457     XtSetArg(args[j], XtNstring, def);  j++;
 458     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 459     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 460     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 461     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 462     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 463     XtSetArg(args[j], XtNresizable, True);  j++;
 464     XtSetArg(args[j], XtNwidth,  40);  j++;
 465 //    XtSetArg(args[j], XtNheight, 20);  j++;
 466     tcData = XtCreateManagedWidget("MPS", asciiTextWidgetClass, form, args, j);
 467     XtAddEventHandler(tcData, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 468
 469     j= 0;
 470     XtSetArg(args[j], XtNlabel, tcInc ? tcInc == 2 ? _("             ") : _("sec/move") : _("moves     ")); j++;
 471     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 472     XtSetArg(args[j], XtNborderWidth, 0); j++;
 473     XtSetArg(args[j], XtNfromHoriz, tcData); j++;
 474     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 475     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 476     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 477     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 478 //    XtSetArg(args[j], XtNwidth,  80);  j++;
 479 //    XtSetArg(args[j], XtNheight, 20);  j++;
 480     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass,
 481                                    form, args, j);
 482
 483     j= 0;
 484     XtSetArg(args[j], XtNborderWidth, 1); j++;
 485     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 486     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 487     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 488     XtSetArg(args[j], XtNstring, "1");  j++;
 489     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 490     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 491     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 492     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 493     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 494     XtSetArg(args[j], XtNresizable, True);  j++;
 495     XtSetArg(args[j], XtNwidth,  40);  j++;
 496 //    XtSetArg(args[j], XtNheight, 20);  j++;
 497     tcOdds1 = XtCreateManagedWidget("Odds1", asciiTextWidgetClass, form, args, j);
 498     XtAddEventHandler(tcOdds1, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 499
 500     j= 0;
 501     XtSetArg(args[j], XtNborderWidth, 1); j++;
 502     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 503     XtSetArg(args[j], XtNfromHoriz, tcOdds1); j++;
 504     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 505     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 506     XtSetArg(args[j], XtNstring, "1");  j++;
 507     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 508     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 509     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 510     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 511     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 512     XtSetArg(args[j], XtNresizable, True);  j++;
 513     XtSetArg(args[j], XtNwidth,  40);  j++;
 514 //    XtSetArg(args[j], XtNheight, 20);  j++;
 515     tcOdds2 = XtCreateManagedWidget("Odds2", asciiTextWidgetClass, form, args, j);
 516     XtAddEventHandler(tcOdds2, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 517
 518     j= 0;
 519     XtSetArg(args[j], XtNlabel, _("Engine #1 and #2 Time-Odds Factors")); j++;
 520     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 521     XtSetArg(args[j], XtNborderWidth, 0); j++;
 522     XtSetArg(args[j], XtNfromVert, tcTime); j++;
 523     XtSetArg(args[j], XtNfromHoriz, tcOdds2); j++;
 524     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
 525     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
 526     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 527     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 528 //    XtSetArg(args[j], XtNwidth,  200);  j++;
 529 //    XtSetArg(args[j], XtNheight, 20);  j++;
 530     mess = XtCreateManagedWidget("Oddstext", labelWidgetClass,
 531                                    form, args, j);
 532     j=0;
 533     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 534     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 535     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 536     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 537     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 538     XtSetArg(args[j], XtNstate, tcInc==0); j++;
 539     b_clas= XtCreateManagedWidget(_("classical"), toggleWidgetClass,
 540                                    form, args, j);
 541     XtAddCallback(b_clas, XtNcallback, TimeControlCallback, (XtPointer) 0);
 542
 543     j=0;
 544     XtSetArg(args[j], XtNradioGroup, b_clas); j++;
 545     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 546     XtSetArg(args[j], XtNfromHoriz, b_clas);  j++;
 547     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 548     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 549     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 550     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 551     XtSetArg(args[j], XtNstate, tcInc==1); j++;
 552     b_inc = XtCreateManagedWidget(_("incremental"), toggleWidgetClass,
 553                                    form, args, j);
 554     XtAddCallback(b_inc, XtNcallback, TimeControlCallback, (XtPointer) 0);
 555
 556     j=0;
 557     XtSetArg(args[j], XtNradioGroup, b_inc); j++;
 558     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 559     XtSetArg(args[j], XtNfromHoriz, b_inc);  j++;
 560     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 561     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 562     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 563     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 564     XtSetArg(args[j], XtNstate, tcInc==2); j++;
 565     b_inc = XtCreateManagedWidget(_("fixed time"), toggleWidgetClass,
 566                                    form, args, j);
 567     XtAddCallback(b_inc, XtNcallback, TimeControlCallback, (XtPointer) 0);
 568
 569     j=0;
 570     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 571     XtSetArg(args[j], XtNfromHoriz, tcData);  j++;
 572     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 573     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 574     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 575     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 576     b_ok= XtCreateManagedWidget(_(" OK "), commandWidgetClass,
 577                                    form, args, j);
 578     XtAddCallback(b_ok, XtNcallback, TimeControlCallback, (XtPointer) 0);
 579
 580     j=0;
 581     XtSetArg(args[j], XtNfromVert, tcOdds1);  j++;
 582     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
 583     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 584     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 585     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 586     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 587     b_cancel= XtCreateManagedWidget(_("cancel"), commandWidgetClass,
 588                                    form, args, j);
 589     XtAddCallback(b_cancel, XtNcallback, TimeControlPopDown, (XtPointer) 0);
 590
 591     XtRealizeWidget(popup);
 592     CatchDeleteWindow(popup, "TimeControlPopDown");
 593
 594     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 595                   &x, &y, &win_x, &win_y, &mask);
 596
 597     XtSetArg(args[0], XtNx, x - 10);
 598     XtSetArg(args[1], XtNy, y - 30);
 599     XtSetValues(popup, args, 2);
 600
 601     XtPopup(popup, XtGrabExclusive);
 602     TimeControlUp = True;
 603
 604     previous = NULL;
 605     SetFocus(tcTime, popup, (XEvent*) NULL, False);
 606 //    XtSetKeyboardFocus(popup, tcTime);
 607 }
 608
 609 void TimeControlProc(w, event, prms, nprms)
 610      Widget w;
 611      XEvent *event;
 612      String *prms;
 613      Cardinal *nprms;
 614 {
 615    TimeControlPopUp();
 616 }
 617
 618 //--------------------------- Engine-Options Menu Popup ----------------------------------
 619 int EngineUp;
 620 Widget EngineShell;
 621 extern int adjudicateLossThreshold;
 622
 623 Widget engDrawMoves, engThreshold, engRule, engRepeat;
 624
 625 void EnginePopDown()
 626 {
 627     if (!EngineUp) return;
 628     previous = NULL;
 629     XtPopdown(EngineShell);
 630     XtDestroyWidget(EngineShell);
 631     EngineUp = False;
 632     ModeHighlight();
 633 }
 634
 635 int ReadToggle(Widget w)
 636 {
 637     Arg args; Boolean res;
 638
 639     XtSetArg(args, XtNstate, &res);
 640     XtGetValues(w, &args, 1);
 641
 642     return res;
 643 }
 644
 645 Widget w1, w2, w3, w4, w5, w6, w7, w8;
 646
 647 void EngineCallback(w, client_data, call_data)
 648      Widget w;
 649      XtPointer client_data, call_data;
 650 {
 651     String name;
 652     Arg args[16];
 653     int j;
 654
 655     XtSetArg(args[0], XtNlabel, &name);
 656     XtGetValues(w, args, 1);
 657
 658     if (strcmp(name, _("OK")) == 0) {
 659         // read all switches
 660         appData.periodicUpdates = ReadToggle(w1);
 661 //      appData.hideThinkingFromHuman = ReadToggle(w2);
 662         first.scoreIsAbsolute  = appData.firstScoreIsAbsolute  = ReadToggle(w3);
 663         second.scoreIsAbsolute = appData.secondScoreIsAbsolute = ReadToggle(w4);
 664         appData.testClaims    = ReadToggle(w5);
 665         appData.checkMates    = ReadToggle(w6);
 666         appData.materialDraws = ReadToggle(w7);
 667         appData.trivialDraws  = ReadToggle(w8);
 668
 669         // adjust setting in other menu for duplicates
 670         // (perhaps duplicates should be removed from general Option Menu?)
 671 //      XtSetArg(args[0], XtNleftBitmap, appData.showThinking ? xMarkPixmap : None);
 672 //      XtSetValues(XtNameToWidget(menuBarWidget,
 673 //                                 "menuOptions.Show Thinking"), args, 1);
 674
 675         // read out numeric controls, simply ignore bad formats for now
 676         XtSetArg(args[0], XtNstring, &name);
 677         XtGetValues(engDrawMoves, args, 1);
 678         if(sscanf(name, "%d", &j) == 1) appData.adjudicateDrawMoves = j;
 679         XtGetValues(engThreshold, args, 1);
 680         if(sscanf(name, "%d", &j) == 1)
 681                 adjudicateLossThreshold = appData.adjudicateLossThreshold = -j; // inverted!
 682         XtGetValues(engRule, args, 1);
 683         if(sscanf(name, "%d", &j) == 1) appData.ruleMoves = j;
 684         XtGetValues(engRepeat, args, 1);
 685         if(sscanf(name, "%d", &j) == 1) appData.drawRepeats = j;
 686
 687         EnginePopDown();
 688         ShowThinkingEvent(); // [HGM] thinking: score adjudication might need thinking output
 689         return;
 690     }
 691 }
 692
 693 void EnginePopUp()
 694 {
 695     Arg args[16];
 696     Widget popup, layout, form,  b_ok, b_cancel,  s1;
 697     Window root, child;
 698     int x, y, i, j, width;
 699     int win_x, win_y;
 700     unsigned int mask;
 701     char def[MSG_SIZ];
 702
 703     tcInc = (appData.timeIncrement >= 0);
 704     tcMoves = appData.movesPerSession; tcIncrement = appData.timeIncrement;
 705     if(!tcInc) tcIncrement = 0;
 706     snprintf(def, MSG_SIZ,  "%d", tcInc ? tcIncrement : tcMoves);
 707
 708     i = 0;
 709     XtSetArg(args[i], XtNresizable, True); i++;
 710 //    XtSetArg(args[i], XtNwidth, DIALOG_SIZE); i++;
 711     EngineShell = popup =
 712       XtCreatePopupShell(_("Adjudications"), transientShellWidgetClass,
 713                          shellWidget, args, i);
 714
 715     layout =
 716       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
 717                             layoutArgs, XtNumber(layoutArgs));
 718
 719     form =
 720       XtCreateManagedWidget(layoutName, formWidgetClass, layout,
 721                             formArgs, XtNumber(formArgs));
 722
 723     j = 0;
 724 //    XtSetArg(args[j], XtNwidth,     (XtArgVal) 250); j++;
 725 //    XtSetArg(args[j], XtNheight,    (XtArgVal) 400); j++;
 726 //    XtSetValues(popup, args, j);
 727
 728     j = 0;
 729 //    XtSetArg(args[j], XtNwidth,       (XtArgVal) 250); j++;
 730 //    XtSetArg(args[j], XtNheight,      (XtArgVal) 20); j++;
 731     XtSetArg(args[j], XtNleft,        (XtArgVal) XtChainLeft); j++;
 732     XtSetArg(args[j], XtNright,       (XtArgVal) XtChainRight); j++;
 733     XtSetArg(args[j], XtNstate,       appData.periodicUpdates); j++;
 734 //    XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 735     w1 = XtCreateManagedWidget(_("Periodic Updates (Analysis Mode)"), toggleWidgetClass, form, args, j);
 736
 737     XtSetArg(args[j], XtNwidth,       (XtArgVal) &width);
 738     XtGetValues(w1, &args[j], 1);
 739
 740 //    XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w1);
 741 //    XtSetArg(args[j-3], XtNstate,       appData.hideThinkingFromHuman);
 742 //    w2 = XtCreateManagedWidget(_("Hide Thinking from Human"), toggleWidgetClass, form, args, j);
 743
 744     XtSetArg(args[j], XtNwidth,       (XtArgVal) width); j++;
 745     XtSetArg(args[j-2], XtNstate,     appData.firstScoreIsAbsolute);
 746     XtSetArg(args[j], XtNfromVert,    (XtArgVal) w1); j++;
 747     w3 = XtCreateManagedWidget(_("Engine #1 Score is Absolute"), toggleWidgetClass, form, args, j);
 748
 749     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w3);
 750     XtSetArg(args[j-3], XtNstate,       appData.secondScoreIsAbsolute);
 751     w4 = XtCreateManagedWidget(_("Engine #2 Score is Absolute"), toggleWidgetClass, form, args, j);
 752
 753     s1 = XtCreateManagedWidget(_("\nAdjudications in non-ICS games:"), labelWidgetClass, form, args, 3);
 754
 755     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) s1);
 756     XtSetArg(args[j-3], XtNstate,       appData.testClaims);
 757     w5 = XtCreateManagedWidget(_("Verify Engine Result Claims"), toggleWidgetClass, form, args, j);
 758
 759     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w5);
 760     XtSetArg(args[j-3], XtNstate,       appData.checkMates);
 761     w6 = XtCreateManagedWidget(_("Detect All Mates"), toggleWidgetClass, form, args, j);
 762
 763     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w6);
 764     XtSetArg(args[j-3], XtNstate,       appData.materialDraws);
 765     w7 = XtCreateManagedWidget(_("Draw when Insuff. Mating Material"), toggleWidgetClass, form, args, j);
 766
 767     XtSetArg(args[j-1], XtNfromVert,  (XtArgVal) w7);
 768     XtSetArg(args[j-3], XtNstate,       appData.trivialDraws);
 769     w8 = XtCreateManagedWidget(_("Adjudicate Trivial Draws"), toggleWidgetClass, form, args, j);
 770
 771     XtSetArg(args[0], XtNfromVert,  (XtArgVal) w4);
 772     XtSetArg(args[1], XtNborderWidth, (XtArgVal) 0);
 773     XtSetValues(s1, args, 2);
 774
 775     snprintf(def, MSG_SIZ,  "%d", appData.adjudicateDrawMoves);
 776     j= 0;
 777     XtSetArg(args[j], XtNborderWidth, 1); j++;
 778     XtSetArg(args[j], XtNfromVert, w8); j++;
 779     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 780     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 781     XtSetArg(args[j], XtNstring, def);  j++;
 782     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 783     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 784     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 785     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 786     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 787     XtSetArg(args[j], XtNresizable, True);  j++;
 788     XtSetArg(args[j], XtNwidth,  60);  j++;
 789 //    XtSetArg(args[j], XtNheight, 20);  j++;
 790     engDrawMoves = XtCreateManagedWidget("Length", asciiTextWidgetClass, form, args, j);
 791     XtAddEventHandler(engDrawMoves, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 792
 793     j= 0;
 794     XtSetArg(args[j], XtNlabel, _(" moves maximum, then draw")); j++;
 795     XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 796     XtSetArg(args[j], XtNborderWidth, 0); j++;
 797     XtSetArg(args[j], XtNfromVert, w8); j++;
 798     XtSetArg(args[j], XtNfromHoriz, engDrawMoves); j++;
 799     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 800     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 801     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 802     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 803 //    XtSetArg(args[j], XtNwidth,  170);  j++;
 804 //    XtSetArg(args[j], XtNheight, 20);  j++;
 805     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 806
 807     snprintf(def, MSG_SIZ,  "%d", -appData.adjudicateLossThreshold); // inverted!
 808     j= 0;
 809     XtSetArg(args[j], XtNborderWidth, 1); j++;
 810     XtSetArg(args[j], XtNfromVert, engDrawMoves); j++;
 811     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 812     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 813     XtSetArg(args[j], XtNstring, def);  j++;
 814     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 815     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 816     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 817     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 818     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 819     XtSetArg(args[j], XtNresizable, True);  j++;
 820     XtSetArg(args[j], XtNwidth,  60);  j++;
 821     XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
 822     engThreshold = XtCreateManagedWidget("Threshold", asciiTextWidgetClass, form, args, j);
 823     XtAddEventHandler(engThreshold, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 824
 825     j= 0;
 826     XtSetArg(args[j], XtNlabel, _("-centiPawn lead is win")); j++;
 827     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 828     XtSetArg(args[j], XtNborderWidth, 0); j++;
 829     XtSetArg(args[j], XtNfromVert, engDrawMoves); j++;
 830     XtSetArg(args[j], XtNfromHoriz, engThreshold); j++;
 831     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 832     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 833     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 834     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 835 //    XtSetArg(args[j], XtNwidth,  150);  j++;
 836 //    XtSetArg(args[j], XtNheight, 20);  j++;
 837     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass, form, args, j);
 838
 839     snprintf(def, MSG_SIZ,  "%d", appData.ruleMoves);
 840     j= 0;
 841     XtSetArg(args[j], XtNborderWidth, 1); j++;
 842     XtSetArg(args[j], XtNfromVert, engThreshold); j++;
 843     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 844     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 845     XtSetArg(args[j], XtNstring, def);  j++;
 846     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 847     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 848     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 849     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 850     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 851     XtSetArg(args[j], XtNresizable, True);  j++;
 852     XtSetArg(args[j], XtNwidth,  30);  j++;
 853 //    XtSetArg(args[j], XtNheight, 20);  j++;
 854     engRule = XtCreateManagedWidget("Rule", asciiTextWidgetClass, form, args, j);
 855     XtAddEventHandler(engRule, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 856
 857     j= 0;
 858     XtSetArg(args[j], XtNlabel, _("-move rule applied")); j++;
 859     XtSetArg(args[j], XtNjustify,     (XtArgVal) XtJustifyLeft); j++;
 860     XtSetArg(args[j], XtNborderWidth, 0); j++;
 861     XtSetArg(args[j], XtNfromVert, engThreshold); j++;
 862     XtSetArg(args[j], XtNfromHoriz, engRule); j++;
 863     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 864     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 865     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 866     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 867 //    XtSetArg(args[j], XtNwidth,  130);  j++;
 868 //    XtSetArg(args[j], XtNheight, 20);  j++;
 869     tcMess1 = XtCreateManagedWidget("TCtext", labelWidgetClass, form, args, j);
 870
 871     snprintf(def, MSG_SIZ,  "%d", appData.drawRepeats);
 872     j= 0;
 873     XtSetArg(args[j], XtNborderWidth, 1); j++;
 874     XtSetArg(args[j], XtNfromVert, engRule); j++;
 875     XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
 876     XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
 877     XtSetArg(args[j], XtNstring, def);  j++;
 878     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
 879     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 880     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 881     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 882     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 883     XtSetArg(args[j], XtNresizable, True);  j++;
 884     XtSetArg(args[j], XtNwidth,  30);  j++;
 885 //    XtSetArg(args[j], XtNheight, 20);  j++;
 886     engRepeat = XtCreateManagedWidget("Repeats", asciiTextWidgetClass, form, args, j);
 887     XtAddEventHandler(engRepeat, ButtonPressMask, False, SetFocus, (XtPointer) popup);
 888
 889     j= 0;
 890     XtSetArg(args[j], XtNlabel, _("-fold repeat is draw")); j++;
 891     XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
 892     XtSetArg(args[j], XtNborderWidth, 0); j++;
 893     XtSetArg(args[j], XtNfromVert, engRule); j++;
 894     XtSetArg(args[j], XtNfromHoriz, engRepeat); j++;
 895     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 896     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 897     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
 898     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
 899 //    XtSetArg(args[j], XtNwidth,  130);  j++;
 900 //    XtSetArg(args[j], XtNheight, 20);  j++;
 901     tcMess2 = XtCreateManagedWidget("MPStext", labelWidgetClass, form, args, j);
 902
 903     j=0;
 904     XtSetArg(args[j], XtNfromVert, engRepeat);  j++;
 905     XtSetArg(args[j], XtNfromHoriz, tcMess2);  j++;
 906     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 907     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 908     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 909     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 910     b_ok= XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
 911     XtAddCallback(b_ok, XtNcallback, EngineCallback, (XtPointer) 0);
 912
 913     j=0;
 914     XtSetArg(args[j], XtNfromVert, engRepeat);  j++;
 915     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
 916     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
 917     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
 918     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
 919     XtSetArg(args[j], XtNright, XtChainRight);  j++;
 920     b_cancel= XtCreateManagedWidget(_("cancel"), commandWidgetClass,
 921                                    form, args, j);
 922     XtAddCallback(b_cancel, XtNcallback, EnginePopDown, (XtPointer) 0);
 923
 924     XtRealizeWidget(popup);
 925     CatchDeleteWindow(popup, "EnginePopDown");
 926
 927     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
 928                   &x, &y, &win_x, &win_y, &mask);
 929
 930     XtSetArg(args[0], XtNx, x - 10);
 931     XtSetArg(args[1], XtNy, y - 30);
 932     XtSetValues(popup, args, 2);
 933
 934     XtPopup(popup, XtGrabExclusive);
 935     EngineUp = True;
 936
 937     previous = NULL;
 938     SetFocus(engThreshold, popup, (XEvent*) NULL, False);
 939 }
 940
 941 void EngineMenuProc(w, event, prms, nprms)
 942      Widget w;
 943      XEvent *event;
 944      String *prms;
 945      Cardinal *nprms;
 946 {
 947    EnginePopUp();
 948 }
 949
 950 //--------------------------- New-Variant Menu PopUp -----------------------------------
 951 struct NewVarButton {
 952   char   *name;
 953   char *color;
 954   Widget handle;
 955   VariantClass variant;
 956 };
 957
 958 struct NewVarButton buttonDesc[] = {
 959     {N_("normal"),            "#FFFFFF", 0, VariantNormal},
 960     {N_("FRC"),               "#FFFFFF", 0, VariantFischeRandom},
 961     {N_("wild castle"),       "#FFFFFF", 0, VariantWildCastle},
 962     {N_("no castle"),         "#FFFFFF", 0, VariantNoCastle},
 963     {N_("knightmate"),        "#FFFFFF", 0, VariantKnightmate},
 964     {N_("berolina"),          "#FFFFFF", 0, VariantBerolina},
 965     {N_("cylinder"),          "#FFFFFF", 0, VariantCylinder},
 966     {N_("shatranj"),          "#FFFFFF", 0, VariantShatranj},
 967     {N_("makruk"),            "#FFFFFF", 0, VariantMakruk},
 968     {N_("atomic"),            "#FFFFFF", 0, VariantAtomic},
 969     {N_("two kings"),         "#FFFFFF", 0, VariantTwoKings},
 970     {N_("3-checks"),          "#FFFFFF", 0, Variant3Check},
 971     {N_("suicide"),           "#FFFFBF", 0, VariantSuicide},
 972     {N_("give-away"),         "#FFFFBF", 0, VariantGiveaway},
 973     {N_("losers"),            "#FFFFBF", 0, VariantLosers},
 974     {N_("fairy"),             "#BFBFBF", 0, VariantFairy},
 975     {N_("Seirawan"),          "#FFBFBF", 0, VariantSChess},
 976     {N_("Superchess"),        "#FFBFBF", 0, VariantSuper},
 977     {N_("crazyhouse"),        "#FFBFBF", 0, VariantCrazyhouse},
 978     {N_("bughouse"),          "#FFBFBF", 0, VariantBughouse},
 979     {N_("shogi (9x9)"),       "#BFFFFF", 0, VariantShogi},
 980     {N_("xiangqi (9x10)"),    "#BFFFFF", 0, VariantXiangqi},
 981     {N_("courier (12x8)"),    "#BFFFBF", 0, VariantCourier},
 982     {N_("Capablanca (10x8)"), "#BFBFFF", 0, VariantCapablanca},
 983 #ifdef GOTHIC
 984     {N_("Gothic (10x8)"),     "#BFBFFF", 0, VariantGothic},
 985 #endif
 986     {N_("janus (10x8)"),      "#BFBFFF", 0, VariantJanus},
 987     {N_("CRC (10x8)"),        "#BFBFFF", 0, VariantCapaRandom},
 988 #ifdef FALCON
 989     {N_("Falcon (10x8)"),     "#BFBFFF", 0, VariantFalcon},
 990 #endif
 991     {N_("Spartan"),           "#FF0000", 0, VariantSpartan},
 992     {NULL,                0, 0, (VariantClass) 0}
 993 };
 994
 995 int NewVariantUp;
 996 Widget NewVariantShell;
 997
 998 void NewVariantPopDown()
 999 {
1000     if (!NewVariantUp) return;
1001     XtPopdown(NewVariantShell);
1002     XtDestroyWidget(NewVariantShell);
1003     NewVariantUp = False;
1004     ModeHighlight();
1005 }
1006
1007 void NewVariantCallback(w, client_data, call_data)
1008      Widget w;
1009      XtPointer client_data, call_data;
1010 {
1011     String name;
1012     Arg args[16];
1013     VariantClass v;
1014
1015     XtSetArg(args[0], XtNlabel, &name);
1016     XtGetValues(w, args, 1);
1017
1018     if (strcmp(name, _("  OK  ")) == 0) {
1019         int nr = (intptr_t) XawToggleGetCurrent(buttonDesc[0].handle) - 1;
1020         if(nr < 0) return;
1021         v = buttonDesc[nr].variant;
1022         if(!appData.noChessProgram) {
1023             char *name = VariantName(v), buf[MSG_SIZ];
1024             if (first.protocolVersion > 1 && StrStr(first.variants, name) == NULL) {
1025                 /* [HGM] in protocol 2 we check if variant is suported by engine */
1026               snprintf(buf, MSG_SIZ,  _("Variant %s not supported by %s"), name, first.tidy);
1027                 DisplayError(buf, 0);
1028 //              NewVariantPopDown();
1029                 return; /* ignore OK if first engine does not support it */
1030             } else
1031             if (second.initDone && second.protocolVersion > 1 && StrStr(second.variants, name) == NULL) {
1032               snprintf(buf, MSG_SIZ,  _("Warning: second engine (%s) does not support this!"), second.tidy);
1033                 DisplayError(buf, 0);   /* use of second engine is optional; only warn user */
1034             }
1035         }
1036
1037         gameInfo.variant = v;
1038         appData.variant = VariantName(v);
1039
1040         shuffleOpenings = FALSE; /* [HGM] shuffle: possible shuffle reset when we switch */
1041         startedFromPositionFile = FALSE; /* [HGM] loadPos: no longer valid in new variant */
1042         appData.pieceToCharTable = NULL;
1043         Reset(True, True);
1044         NewVariantPopDown();
1045         return;
1046     }
1047 }
1048
1049 void NewVariantPopUp()
1050 {
1051     Arg args[16];
1052     Widget popup, layout, form, last = NULL, b_ok, b_cancel;
1053     Window root, child;
1054     int x, y, i, j;
1055     int win_x, win_y;
1056     unsigned int mask;
1057     XrmValue vFrom, vTo;
1058
1059     i = 0;
1060     XtSetArg(args[i], XtNresizable, True); i++;
1061 //    XtSetArg(args[i], XtNwidth, 250); i++;
1062 //    XtSetArg(args[i], XtNheight, 300); i++;
1063     NewVariantShell = popup =
1064       XtCreatePopupShell(_("NewVariant Menu"), transientShellWidgetClass,
1065                          shellWidget, args, i);
1066
1067     layout =
1068       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1069                             layoutArgs, XtNumber(layoutArgs));
1070
1071     form =
1072       XtCreateManagedWidget("form", formWidgetClass, layout,
1073                             formArgs, XtNumber(formArgs));
1074
1075     for(i = 0; buttonDesc[i].name != NULL; i++) {
1076         Pixel buttonColor;
1077         if (!appData.monoMode) {
1078             vFrom.addr = (caddr_t) buttonDesc[i].color;
1079             vFrom.size = strlen(buttonDesc[i].color);
1080             XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1081             if (vTo.addr == NULL) {
1082                 buttonColor = (Pixel) -1;
1083             } else {
1084                 buttonColor = *(Pixel *) vTo.addr;
1085             }
1086         }
1087
1088         j = 0;
1089         XtSetArg(args[j], XtNradioGroup, last); j++;
1090         XtSetArg(args[j], XtNwidth, 125); j++;
1091 //      XtSetArg(args[j], XtNheight, 16); j++;
1092         XtSetArg(args[j], XtNfromVert, i == 15 ? NULL : last); j++;
1093         XtSetArg(args[j], XtNfromHoriz, i < 15 ? NULL : buttonDesc[i-15].handle); j++;
1094         XtSetArg(args[j], XtNradioData, i+1); j++;
1095         XtSetArg(args[j], XtNbackground, buttonColor); j++;
1096         XtSetArg(args[j], XtNstate, gameInfo.variant == buttonDesc[i].variant); j++;
1097         XtSetArg(args[j], XtNsensitive, appData.noChessProgram || strstr(first.variants, VariantName(buttonDesc[i].variant))); j++;
1098         buttonDesc[i].handle = last =
1099             XtCreateManagedWidget(buttonDesc[i].name, toggleWidgetClass, form, args, j);
1100     }
1101
1102     j=0;
1103     XtSetArg(args[j], XtNfromVert, buttonDesc[12].handle);  j++;
1104     XtSetArg(args[j], XtNfromHoriz, buttonDesc[12].handle);  j++;
1105     XtSetArg(args[j], XtNheight, 35); j++;
1106 //    XtSetArg(args[j], XtNwidth, 60); j++;
1107     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1108     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1109     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1110     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1111     b_cancel= XtCreateManagedWidget(_("CANCEL"), commandWidgetClass, form, args, j);
1112     XtAddCallback(b_cancel, XtNcallback, NewVariantPopDown, (XtPointer) 0);
1113
1114     j=0;
1115     XtSetArg(args[j], XtNfromHoriz, b_cancel);  j++;
1116     XtSetArg(args[j], XtNfromVert, buttonDesc[12].handle);  j++;
1117     XtSetArg(args[j], XtNheight, 35); j++;
1118 //    XtSetArg(args[j], XtNwidth, 60); j++;
1119     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1120     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1121     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1122     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1123     b_ok= XtCreateManagedWidget(_("  OK  "), commandWidgetClass, form, args, j);
1124     XtAddCallback(b_ok, XtNcallback, NewVariantCallback, (XtPointer) 0);
1125
1126     j=0;
1127     XtSetArg(args[j], XtNfromVert, buttonDesc[14].handle);  j++;
1128 //    XtSetArg(args[j], XtNheight, 70); j++;
1129     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1130     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1131     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1132     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1133     XtSetArg(args[j], XtNlabel, _("WARNING: variants with un-orthodox\n"
1134                                   "pieces only have built-in bitmaps\n"
1135                                   "for -boardSize middling, bulky and\n"
1136                                   "petite, and substitute king or amazon\n"
1137                                   "for missing bitmaps. (See manual.)")); j++;
1138     XtCreateManagedWidget("warning", labelWidgetClass, form, args, j);
1139
1140             XtRealizeWidget(popup);
1141     CatchDeleteWindow(popup, "NewVariantPopDown");
1142
1143     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1144                   &x, &y, &win_x, &win_y, &mask);
1145
1146     XtSetArg(args[0], XtNx, x - 10);
1147     XtSetArg(args[1], XtNy, y - 30);
1148     XtSetValues(popup, args, 2);
1149
1150     XtPopup(popup, XtGrabExclusive);
1151     NewVariantUp = True;
1152 }
1153
1154 void NewVariantProc(w, event, prms, nprms)
1155      Widget w;
1156      XEvent *event;
1157      String *prms;
1158      Cardinal *nprms;
1159 {
1160    NewVariantPopUp();
1161 }
1162
1163 //--------------------------- UCI Menu Popup ------------------------------------------
1164 int UciUp;
1165 Widget UciShell;
1166
1167 struct UciControl {
1168   char *name;
1169   Widget handle;
1170   void *ptr;
1171 };
1172
1173 struct UciControl controlDesc[] = {
1174   {N_("maximum nr of CPUs:"), 0, &appData.smpCores},
1175   {N_("Polyglot Directory:"), 0, &appData.polyglotDir},
1176   {N_("Hash Size (MB):"),     0, &appData.defaultHashSize},
1177   {N_("EGTB Path:"),          0, &appData.defaultPathEGTB},
1178   {N_("EGTB Cache (MB):"),    0, &appData.defaultCacheSizeEGTB},
1179   {N_("Polyglot Book:"),      0, &appData.polyglotBook},
1180   {NULL, 0, NULL},
1181 };
1182
1183 void UciPopDown()
1184 {
1185     if (!UciUp) return;
1186     previous = NULL;
1187     XtPopdown(UciShell);
1188     XtDestroyWidget(UciShell);
1189     UciUp = False;
1190     ModeHighlight();
1191 }
1192
1193 void UciCallback(w, client_data, call_data)
1194      Widget w;
1195      XtPointer client_data, call_data;
1196 {
1197     String name;
1198     Arg args[16];
1199     int oldCores = appData.smpCores, ponder = 0;
1200
1201     XtSetArg(args[0], XtNlabel, &name);
1202     XtGetValues(w, args, 1);
1203
1204     if (strcmp(name, _("OK")) == 0) {
1205         int i, j; String name;
1206         for(i=0; i<6; i++) {
1207             XtSetArg(args[0], XtNstring, &name);
1208             XtGetValues(controlDesc[i].handle, args, 1);
1209             if(i&1) {
1210                 if(name)
1211                     *(char**) controlDesc[i].ptr = strdup(name);
1212             } else {
1213                 if(sscanf(name, "%d", &j) == 1)
1214                     *(int*) controlDesc[i].ptr = j;
1215             }
1216         }
1217         XtSetArg(args[0], XtNstate, &appData.usePolyglotBook);
1218         XtGetValues(w1, args, 1);
1219         XtSetArg(args[0], XtNstate, &appData.firstHasOwnBookUCI);
1220         XtGetValues(w2, args, 1);
1221         XtSetArg(args[0], XtNstate, &appData.secondHasOwnBookUCI);
1222         XtGetValues(w3, args, 1);
1223         XtSetArg(args[0], XtNstate, &ponder);
1224         XtGetValues(w4, args, 1);
1225
1226         // adjust setting in other menu for duplicates
1227         // (perhaps duplicates should be removed from general Option Menu?)
1228         XtSetArg(args[0], XtNleftBitmap, ponder ? xMarkPixmap : None);
1229         XtSetValues(XtNameToWidget(menuBarWidget,
1230                                    "menuOptions.Ponder Next Move"), args, 1);
1231
1232         // make sure changes are sent to first engine by re-initializing it
1233         // if it was already started pre-emptively at end of previous game
1234         if(gameMode == BeginningOfGame) Reset(True, True); else {
1235             // Some changed setting need immediate sending always.
1236             PonderNextMoveEvent(ponder);
1237             if(oldCores != appData.smpCores)
1238                 NewSettingEvent(False, &(first.maxCores), "cores", appData.smpCores);
1239       }
1240       UciPopDown();
1241       return;
1242     }
1243 }
1244
1245 void UciPopUp()
1246 {
1247     Arg args[16];
1248     Widget popup, layout, form, b_ok, b_cancel, last = NULL, new, upperLeft;
1249     Window root, child;
1250     int x, y, i, j;
1251     int win_x, win_y;
1252     unsigned int mask;
1253     char def[MSG_SIZ];
1254
1255     i = 0;
1256     XtSetArg(args[i], XtNresizable, True); i++;
1257 //    XtSetArg(args[i], XtNwidth, 300); i++;
1258     UciShell = popup =
1259       XtCreatePopupShell(_("Engine Settings"), transientShellWidgetClass,
1260                          shellWidget, args, i);
1261
1262     layout =
1263       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1264                             layoutArgs, XtNumber(layoutArgs));
1265
1266
1267     form =
1268       XtCreateManagedWidget("form", formWidgetClass, layout,
1269                             formArgs, XtNumber(formArgs));
1270
1271     j = 0;
1272     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
1273     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
1274     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1275 //    XtSetArg(args[j], XtNheight, 20); j++;
1276     for(i = 0; controlDesc[i].name != NULL; i++) {
1277         j = 3;
1278         XtSetArg(args[j], XtNfromVert, last); j++;
1279 //      XtSetArg(args[j], XtNwidth, 130); j++;
1280         XtSetArg(args[j], XtNjustify, XtJustifyLeft); j++;
1281         XtSetArg(args[j], XtNright, XtChainLeft);  j++;
1282         XtSetArg(args[j], XtNborderWidth, 0); j++;
1283         new = XtCreateManagedWidget(controlDesc[i].name, labelWidgetClass, form, args, j);
1284         if(i==0) upperLeft = new;
1285
1286         j = 4;
1287         XtSetArg(args[j], XtNborderWidth, 1); j++;
1288         XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
1289         XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
1290         XtSetArg(args[j], XtNdisplayCaret, False);  j++;
1291         XtSetArg(args[j], XtNright, XtChainRight);  j++;
1292         XtSetArg(args[j], XtNresizable, True);  j++;
1293         XtSetArg(args[j], XtNwidth, i&1 ? 245 : 50); j++;
1294         XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
1295         if(i&1) {
1296             XtSetArg(args[j], XtNstring, * (char**) controlDesc[i].ptr ?
1297                                          * (char**) controlDesc[i].ptr : ""); j++;
1298         } else {
1299           snprintf(def, MSG_SIZ,  "%d", * (int*) controlDesc[i].ptr);
1300             XtSetArg(args[j], XtNstring, def); j++;
1301         }
1302         XtSetArg(args[j], XtNfromHoriz, upperLeft); j++;
1303         controlDesc[i].handle = last =
1304             XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j);
1305         XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
1306     }
1307
1308     j=0;
1309     XtSetArg(args[j], XtNfromHoriz, controlDesc[0].handle);  j++;
1310     XtSetArg(args[j], XtNbottom, XtChainTop);  j++;
1311     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
1312     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1313     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1314     XtSetArg(args[j], XtNstate, appData.ponderNextMove);  j++;
1315     w4 = XtCreateManagedWidget(_("Ponder"), toggleWidgetClass, form, args, j);
1316
1317     j=0;
1318     XtSetArg(args[j], XtNfromVert, last);  j++;
1319     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1320     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1321     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
1322     XtSetArg(args[j], XtNright, XtChainLeft);  j++;
1323     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
1324     XtAddCallback(b_ok, XtNcallback, UciCallback, (XtPointer) 0);
1325
1326     XtSetArg(args[j], XtNfromHoriz, b_ok);  j++;
1327     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
1328     XtAddCallback(b_cancel, XtNcallback, UciPopDown, (XtPointer) 0);
1329
1330     j = 5;
1331     XtSetArg(args[j], XtNfromHoriz, upperLeft);  j++;
1332     XtSetArg(args[j], XtNstate, appData.usePolyglotBook);  j++;
1333     w1 = XtCreateManagedWidget(_(" use book "), toggleWidgetClass, form, args, j);
1334 //    XtAddCallback(w1, XtNcallback, UciCallback, (XtPointer) 0);
1335
1336     j = 5;
1337     XtSetArg(args[j], XtNfromHoriz, w1);  j++;
1338     XtSetArg(args[j], XtNstate, appData.firstHasOwnBookUCI);  j++;
1339     w2 = XtCreateManagedWidget(_("own book 1"), toggleWidgetClass, form, args, j);
1340 //    XtAddCallback(w2, XtNcallback, UciCallback, (XtPointer) 0);
1341
1342     j = 5;
1343     XtSetArg(args[j], XtNfromHoriz, w2);  j++;
1344     XtSetArg(args[j], XtNstate, appData.secondHasOwnBookUCI);  j++;
1345     w3 = XtCreateManagedWidget(_("own book 2"), toggleWidgetClass, form, args, j);
1346 //    XtAddCallback(w3, XtNcallback, UciCallback, (XtPointer) 0);
1347
1348     XtRealizeWidget(popup);
1349     CatchDeleteWindow(popup, "UciPopDown");
1350
1351     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1352                   &x, &y, &win_x, &win_y, &mask);
1353
1354     XtSetArg(args[0], XtNx, x - 10);
1355     XtSetArg(args[1], XtNy, y - 30);
1356     XtSetValues(popup, args, 2);
1357
1358     XtPopup(popup, XtGrabExclusive);
1359     UciUp = True;
1360
1361     previous = NULL;
1362     SetFocus(controlDesc[2].handle, popup, (XEvent*) NULL, False);
1363 //    XtSetKeyboardFocus(popup, controlDesc[1].handle);
1364 }
1365
1366 void UciMenuProc(w, event, prms, nprms)
1367      Widget w;
1368      XEvent *event;
1369      String *prms;
1370      Cardinal *nprms;
1371 {
1372    UciPopUp();
1373 }
1374
1375 //--------------------------- Engine-specific options menu ----------------------------------
1376
1377 int SettingsUp;
1378 Widget SettingsShell;
1379 int values[MAX_OPTIONS];
1380 ChessProgramState *currentCps;
1381
1382 void SettingsPopDown()
1383 {
1384     if (!SettingsUp) return;
1385     previous = NULL;
1386     XtPopdown(SettingsShell);
1387     XtDestroyWidget(SettingsShell);
1388     SettingsUp = False;
1389     ModeHighlight();
1390 }
1391
1392 void SpinCallback(w, client_data, call_data)
1393      Widget w;
1394      XtPointer client_data, call_data;
1395 {
1396     String name, val;
1397     Arg args[16];
1398     char buf[MSG_SIZ], *p;
1399     int j;
1400     int data = (intptr_t) client_data;
1401
1402     XtSetArg(args[0], XtNlabel, &name);
1403     XtGetValues(w, args, 1);
1404
1405     j = 0;
1406     XtSetArg(args[0], XtNstring, &val);
1407     XtGetValues(currentCps->option[data].handle, args, 1);
1408     sscanf(val, "%d", &j);
1409     if (strcmp(name, "browse") == 0) {
1410         if(XsraSelFile(SettingsShell, currentCps->option[data].name, NULL, NULL, "", "",
1411                                   currentCps->option[data].type == PathName ? "p" : "f", NULL, &p)) {
1412                 int len = strlen(p);
1413                 if(len && p[len-1] == '/') p[len-1] = NULLCHAR;
1414                 XtSetArg(args[0], XtNstring, p);
1415                 XtSetValues(currentCps->option[data].handle, args, 1);
1416         }
1417         SetFocus(currentCps->option[data].handle, SettingsShell, (XEvent*) NULL, False);
1418         return;
1419     } else
1420     if (strcmp(name, "+") == 0) {
1421         if(++j > currentCps->option[data].max) return;
1422     } else
1423     if (strcmp(name, "-") == 0) {
1424         if(--j < currentCps->option[data].min) return;
1425     } else return;
1426     snprintf(buf, MSG_SIZ,  "%d", j);
1427     XtSetArg(args[0], XtNstring, buf);
1428     XtSetValues(currentCps->option[data].handle, args, 1);
1429 }
1430
1431 void SettingsCallback(w, client_data, call_data)
1432      Widget w;
1433      XtPointer client_data, call_data;
1434 {
1435     String name, val;
1436     Arg args[16];
1437     char buf[MSG_SIZ];
1438     int i, j;
1439     int data = (intptr_t) client_data;
1440
1441     XtSetArg(args[0], XtNlabel, &name);
1442     XtGetValues(w, args, 1);
1443
1444     if (strcmp(name, _("cancel")) == 0) {
1445         SettingsPopDown();
1446         return;
1447     }
1448     if (strcmp(name, _("OK")) == 0 || data) { // save buttons imply OK
1449         for(i=0; i<currentCps->nrOptions; i++) { // send all options that had to be OK-ed to engine
1450             switch(currentCps->option[i].type) {
1451                 case TextBox:
1452                     XtSetArg(args[0], XtNstring, &val);
1453                     XtGetValues(currentCps->option[i].handle, args, 1);
1454                     if(strcmp(currentCps->option[i].textValue, val)) {
1455                       safeStrCpy(currentCps->option[i].textValue, val, MSG_SIZ - (currentCps->option[i].textValue - currentCps->option[i].name) );
1456                       snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentCps->option[i].name, val);
1457                       SendToProgram(buf, currentCps);
1458                     }
1459                     break;
1460                 case Spin:
1461                     XtSetArg(args[0], XtNstring, &val);
1462                     XtGetValues(currentCps->option[i].handle, args, 1);
1463                     sscanf(val, "%d", &j);
1464                     if(j > currentCps->option[i].max) j = currentCps->option[i].max;
1465                     if(j < currentCps->option[i].min) j = currentCps->option[i].min;
1466                     if(currentCps->option[i].value != j) {
1467                         currentCps->option[i].value = j;
1468                         snprintf(buf, MSG_SIZ,  "option %s=%d\n", currentCps->option[i].name, j);
1469                         SendToProgram(buf, currentCps);
1470                     }
1471                     break;
1472                 case CheckBox:
1473                     j = 0;
1474                     XtSetArg(args[0], XtNstate, &j);
1475                     XtGetValues(currentCps->option[i].handle, args, 1);
1476                     if(currentCps->option[i].value != j) {
1477                         currentCps->option[i].value = j;
1478                         snprintf(buf, MSG_SIZ,  "option %s=%d\n", currentCps->option[i].name, j);
1479                         SendToProgram(buf, currentCps);
1480                     }
1481                     break;
1482                 case ComboBox:
1483                     if(currentCps->option[i].value != values[i]) {
1484                         currentCps->option[i].value = values[i];
1485                         snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentCps->option[i].name,
1486                                 ((char**)currentCps->option[i].textValue)[values[i]]);
1487                         SendToProgram(buf, currentCps);
1488                     }
1489                     break;
1490             default:
1491               if( appData.debugMode )
1492                 fprintf(debugFP, "SettingsPopUp: unexpected case in switch.\n");
1493               break;
1494             }
1495         }
1496         if(data) { // send save-button command to engine
1497           snprintf(buf, MSG_SIZ,  "option %s\n", name);
1498           SendToProgram(buf, currentCps);
1499         }
1500         SettingsPopDown();
1501         return;
1502     }
1503     snprintf(buf, MSG_SIZ,  "option %s\n", name);
1504     SendToProgram(buf, currentCps);
1505 }
1506
1507 void ComboSelect(w, addr, index) // callback for all combo items
1508      Widget w;
1509      caddr_t addr;
1510      caddr_t index;
1511 {
1512     Arg args[16];
1513     int i = ((intptr_t)addr)>>8;
1514     int j = 255 & (intptr_t) addr;
1515
1516     values[i] = j; // store in temporary, for transfer at OK
1517     XtSetArg(args[0], XtNlabel, ((char**)currentCps->option[i].textValue)[j]);
1518     XtSetValues(currentCps->option[i].handle, args, 1);
1519 }
1520
1521 void CreateComboPopup(parent, name, n, mb)
1522      Widget parent;
1523      String name;
1524      int n;
1525      char *mb[];
1526 {
1527     int i=0, j;
1528     Widget menu, entry;
1529     Arg args[16];
1530
1531     menu = XtCreatePopupShell(name, simpleMenuWidgetClass,
1532                               parent, NULL, 0);
1533     j = 0;
1534     XtSetArg(args[j], XtNwidth, 100);  j++;
1535 //    XtSetArg(args[j], XtNright, XtChainRight);  j++;
1536     while (mb[i] != NULL) {
1537             entry = XtCreateManagedWidget(mb[i], smeBSBObjectClass,
1538                                           menu, args, j);
1539             XtAddCallback(entry, XtNcallback,
1540                           (XtCallbackProc) ComboSelect,
1541                           (caddr_t)(intptr_t) (256*n+i));
1542         i++;
1543     }
1544 }
1545
1546 void
1547 SettingsPopUp(ChessProgramState *cps)
1548 {
1549     Arg args[16];
1550     Widget popup, layout, dialog, edit=NULL, form,  last, b_ok, b_cancel, leftMargin = NULL, textField = NULL;
1551     Window root, child;
1552     int x, y, i, j, height, width, h, c;
1553     int win_x, win_y, maxWidth, maxTextWidth;
1554     unsigned int mask;
1555     char def[MSG_SIZ];
1556     static char pane[6] = "paneX";
1557     Widget texts[100], forelast = NULL, anchor, widest;
1558
1559     // to do: start up second engine if needed
1560     if(!cps->initDone || !cps->nrOptions) return; // nothing to be done
1561     currentCps = cps;
1562
1563     if(cps->nrOptions > 50) width = 4; else if(cps->nrOptions>24) width = 2; else width = 1;
1564     height = cps->nrOptions / width + 1;
1565      i = 0;
1566     XtSetArg(args[i], XtNresizable, True); i++;
1567     SettingsShell = popup =
1568       XtCreatePopupShell(_("Settings Menu"), transientShellWidgetClass,
1569                          shellWidget, args, i);
1570
1571     layout =
1572       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1573                             layoutArgs, XtNumber(layoutArgs));
1574   for(c=0; c<width; c++) {
1575     pane[4] = 'A'+c;
1576     form =
1577       XtCreateManagedWidget(pane, formWidgetClass, layout,
1578                             formArgs, XtNumber(formArgs));
1579     j=0;
1580     XtSetArg(args[j], XtNfromHoriz, leftMargin);  j++;
1581     XtSetValues(form, args, j);
1582     leftMargin = form;
1583
1584     last = widest = NULL; anchor = forelast;
1585     for(h=0; h<height; h++) {
1586         forelast = last;
1587         i = h + c*height;
1588         if(i >= cps->nrOptions) break;
1589         switch(cps->option[i].type) {
1590           case Spin:
1591             snprintf(def, MSG_SIZ,  "%d", cps->option[i].value);
1592           case TextBox:
1593             j=0;
1594             XtSetArg(args[j], XtNfromVert, last);  j++;
1595             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1596             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1597             texts[h] =
1598             dialog = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1599             j=0;
1600             XtSetArg(args[j], XtNfromVert, last);  j++;
1601             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1602             XtSetArg(args[j], XtNborderWidth, 1); j++;
1603             XtSetArg(args[j], XtNwidth, cps->option[i].type == Spin ? 40 : 175); j++;
1604             XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
1605             XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
1606             XtSetArg(args[j], XtNdisplayCaret, False);  j++;
1607             XtSetArg(args[j], XtNright, XtChainRight);  j++;
1608             XtSetArg(args[j], XtNresizable, True);  j++;
1609             XtSetArg(args[j], XtNstring, cps->option[i].type==Spin ? def : cps->option[i].textValue);  j++;
1610             XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
1611             edit = last;
1612             cps->option[i].handle = (void*)
1613                 (textField = last = XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j));
1614             XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
1615             if(cps->option[i].type == TextBox) break;
1616
1617             // add increment and decrement controls for spin
1618             j=0;
1619             XtSetArg(args[j], XtNfromVert, edit);  j++;
1620             XtSetArg(args[j], XtNfromHoriz, last);  j++;
1621             XtSetArg(args[j], XtNheight, 10);  j++;
1622             XtSetArg(args[j], XtNwidth, 20);  j++;
1623             edit = XtCreateManagedWidget("+", commandWidgetClass, form, args, j);
1624             XtAddCallback(edit, XtNcallback, SpinCallback,
1625                           (XtPointer)(intptr_t) i);
1626
1627             j=0;
1628             XtSetArg(args[j], XtNfromVert, edit);  j++;
1629             XtSetArg(args[j], XtNfromHoriz, last);  j++;
1630             XtSetArg(args[j], XtNheight, 10);  j++;
1631             XtSetArg(args[j], XtNwidth, 20);  j++;
1632             last = XtCreateManagedWidget("-", commandWidgetClass, form, args, j);
1633             XtAddCallback(last, XtNcallback, SpinCallback,
1634                           (XtPointer)(intptr_t) i);
1635             break;
1636           case CheckBox:
1637             j=0;
1638             XtSetArg(args[j], XtNfromVert, last);  j++;
1639             XtSetArg(args[j], XtNwidth, 10);  j++;
1640             XtSetArg(args[j], XtNheight, 10);  j++;
1641             XtSetArg(args[j], XtNstate, cps->option[i].value);  j++;
1642             cps->option[i].handle = (void*)
1643                 (dialog = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
1644             j=0;
1645             XtSetArg(args[j], XtNfromVert, last);  j++;
1646             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1647             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1648             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1649             last = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1650             break;
1651           case SaveButton:
1652           case Button:
1653             j=0;
1654             XtSetArg(args[j], XtNfromVert, last);  j++;
1655             XtSetArg(args[j], XtNstate, cps->option[i].value);  j++;
1656             cps->option[i].handle = (void*)
1657                 (dialog = last = XtCreateManagedWidget(cps->option[i].name, commandWidgetClass, form, args, j));
1658             XtAddCallback(last, XtNcallback, SettingsCallback,
1659                           (XtPointer)(intptr_t) (cps->option[i].type == SaveButton));
1660             break;
1661           case ComboBox:
1662             j=0;
1663             XtSetArg(args[j], XtNfromVert, last);  j++;
1664             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1665             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1666             dialog = XtCreateManagedWidget(cps->option[i].name, labelWidgetClass, form, args, j);
1667
1668             j=0;
1669             XtSetArg(args[j], XtNfromVert, last);  j++;
1670             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1671             XtSetArg(args[j], XtNwidth, 100);  j++;
1672             XtSetArg(args[j], XtNmenuName, XtNewString(cps->option[i].name));  j++;
1673             XtSetArg(args[j], XtNlabel, ((char**)cps->option[i].textValue)[cps->option[i].value]);  j++;
1674             cps->option[i].handle = (void*)
1675                 (last = XtCreateManagedWidget(" ", menuButtonWidgetClass, form, args, j));
1676             CreateComboPopup(last, cps->option[i].name, i, (char **) cps->option[i].textValue);
1677             values[i] = cps->option[i].value;
1678             break;
1679         default:
1680           if( appData.debugMode )
1681             fprintf(debugFP, "SettingsPopUp: unexpected case in switch.\n");
1682           break;
1683         }
1684     }
1685
1686     // make an attempt to align all spins and textbox controls
1687     maxWidth = maxTextWidth = 0;
1688     for(h=0; h<height; h++) {
1689         i = h + c*height;
1690         if(i >= cps->nrOptions) break;
1691         if(cps->option[i].type == Spin || cps->option[i].type == TextBox) {
1692             Dimension w;
1693             j=0;
1694             XtSetArg(args[j], XtNwidth, &w);  j++;
1695             XtGetValues(texts[h], args, j);
1696             if(cps->option[i].type == Spin) {
1697                 if(w > maxWidth) maxWidth = w;
1698                 widest = texts[h];
1699             } else {
1700                 if(w > maxTextWidth) maxTextWidth = w;
1701                 if(!widest) widest = texts[h];
1702             }
1703         }
1704     }
1705     if(maxTextWidth + 110 < maxWidth)
1706          maxTextWidth = maxWidth - 110;
1707     else maxWidth = maxTextWidth + 110;
1708     for(h=0; h<height; h++) {
1709         i = h + c*height;
1710         if(i >= cps->nrOptions) break;
1711         j=0;
1712         if(cps->option[i].type == Spin) {
1713             XtSetArg(args[j], XtNwidth, maxWidth);  j++;
1714             XtSetValues(texts[h], args, j);
1715         } else
1716         if(cps->option[i].type == TextBox) {
1717             XtSetArg(args[j], XtNwidth, maxTextWidth);  j++;
1718             XtSetValues(texts[h], args, j);
1719         }
1720     }
1721   }
1722     j=0;
1723     XtSetArg(args[j], XtNfromVert, anchor ? anchor : last);  j++;
1724     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1725     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1726     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1727     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1728     XtSetArg(args[j], XtNfromHoriz, widest ? widest : dialog);  j++;
1729     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
1730     XtAddCallback(b_ok, XtNcallback, SettingsCallback, (XtPointer) 0);
1731
1732     XtSetArg(args[j-1], XtNfromHoriz, b_ok);
1733     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
1734     XtAddCallback(b_cancel, XtNcallback, SettingsPopDown, (XtPointer) 0);
1735
1736     XtRealizeWidget(popup);
1737     CatchDeleteWindow(popup, "SettingsPopDown");
1738
1739     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1740                   &x, &y, &win_x, &win_y, &mask);
1741
1742     XtSetArg(args[0], XtNx, x - 10);
1743     XtSetArg(args[1], XtNy, y - 30);
1744     XtSetValues(popup, args, 2);
1745
1746     XtPopup(popup, XtGrabExclusive);
1747     SettingsUp = True;
1748
1749     previous = NULL;
1750     if(textField)SetFocus(textField, popup, (XEvent*) NULL, False);
1751 }
1752
1753 void FirstSettingsProc(w, event, prms, nprms)
1754      Widget w;
1755      XEvent *event;
1756      String *prms;
1757      Cardinal *nprms;
1758 {
1759    SettingsPopUp(&first);
1760 }
1761
1762 void SecondSettingsProc(w, event, prms, nprms)
1763      Widget w;
1764      XEvent *event;
1765      String *prms;
1766      Cardinal *nprms;
1767 {
1768    if(WaitForSecond(SettingsMenuIfReady)) return;
1769    SettingsPopUp(&second);
1770 }
1771
1772 //----------------------------Generic dialog --------------------------------------------
1773
1774 // cloned from Engine Settings dialog
1775
1776 typedef void ButtonCallback(int n);
1777
1778 static Option *currentOption;
1779 void GenericReadout();
1780
1781 Option loadOptions[] = {
1782 { 0, 0, 0, NULL, (void*) &appData.autoDisplayTags, "", NULL, CheckBox, _("Auto-Display Tags") },
1783 { 0, 0, 0, NULL, (void*) &appData.autoDisplayComment, "", NULL, CheckBox, _("Auto-Display Comment") },
1784 { 0, 0, 0, NULL, NULL, NULL, NULL, Label, _("Auto-Play speed of loaded games\n(0 = instant, -1 = off):") },
1785 { 0, -1, 10000000, NULL, (void*) &appData.timeDelay, "", NULL, Fractional, _("Seconds per Move:") },
1786 { 0,  0, 0, NULL, NULL, "", NULL, EndMark , "" }
1787 };
1788
1789 Option saveOptions[] = {
1790 { 0, 0, 0, NULL, (void*) &appData.autoSaveGames, "", NULL, CheckBox, _("Auto-Save Games") },
1791 { 0, 0, 0, NULL, (void*) &appData.saveGameFile, "", NULL, FileName,  _("Save Games on File:") },
1792 { 0, 0, 0, NULL, (void*) &appData.savePositionFile, "", NULL, FileName,  _("Save Final Positions on File:") },
1793 { 0, 0, 0, NULL, (void*) &appData.pgnEventHeader, "", NULL, TextBox,  _("PGN Event Header:") },
1794 { 0, 0, 0, NULL, (void*) &appData.oldSaveStyle, "", NULL, CheckBox, _("Old Save Style (as opposed to PGN)") },
1795 { 0, 0, 0, NULL, (void*) &appData.saveExtendedInfoInPGN, "", NULL, CheckBox, _("Save Score/Depth Info in PGN") },
1796 { 0, 0, 0, NULL, (void*) &appData.saveOutOfBookInfo, "", NULL, CheckBox, _("Save Out-of-Book Info in PGN           ") },
1797 { 0, 1, 0, NULL, NULL, "", NULL, EndMark , "" }
1798 };
1799
1800 SetColor(char *colorName, Widget box)
1801 {
1802         Arg args[5];
1803         Pixel buttonColor;
1804         XrmValue vFrom, vTo;
1805         if (!appData.monoMode) {
1806             vFrom.addr = (caddr_t) colorName;
1807             vFrom.size = strlen(colorName);
1808             XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1809             if (vTo.addr == NULL) {
1810                 buttonColor = (Pixel) -1;
1811             } else {
1812                 buttonColor = *(Pixel *) vTo.addr;
1813             }
1814         }
1815         XtSetArg(args[0], XtNbackground, buttonColor);;
1816         XtSetValues(box, args, 1);
1817 }
1818
1819 void AdjustColor(int i)
1820 {
1821     int n = currentOption[i].max, col, j, r, g, b, step = 10;
1822     char *s, buf[MSG_SIZ]; // color string
1823     Arg args[5];
1824     XtSetArg(args[0], XtNstring, &s);
1825     XtGetValues(currentOption[i-n-1].handle, args, 1);
1826     if(sscanf(s, "#%x", &col) != 1) return;   // malformed
1827     b = col & 0xFF; g = col & 0xFF00; r = col & 0xFF0000;
1828     switch(n) {
1829         case 1: g -= 0x100*step; b -= step; break;
1830         case 2: r -= 0x10000*step; b -= step; break;
1831         case 3: g -= 0x100*step; r -= 0x10000*step; break;
1832         case 4: r += 0x10000*step; g += 0x100*step; b += step; break;
1833     }
1834     if(r < 0) r = 0; if(g < 0) g = 0; if(b < 0) b = 0;
1835     if(r > 0xFF0000) r = 0xFF0000; if(g > 0xFF00) g = 0xFF00; if(b > 0xFF) b = 0xFF;
1836     col = r | g | b;
1837     snprintf(buf, MSG_SIZ, "#%06x", col);
1838     for(j=1; j<7; j++) if(buf[j] >= 'a') buf[j] -= 32; // capitalize
1839     SetColor(buf, currentOption[i-n].handle);
1840     XtSetArg(args[0], XtNstring, buf);
1841     XtSetValues(currentOption[i-n-1].handle, args, 1);
1842 }
1843
1844 void GenericReadout()
1845 {
1846     int i, j;
1847     String name, val;
1848     Arg args[16];
1849     char buf[MSG_SIZ];
1850     float x;
1851         for(i=0; ; i++) { // send all options that had to be OK-ed to engine
1852             switch(currentOption[i].type) {
1853                 case TextBox:
1854                 case FileName:
1855                 case PathName:
1856                     XtSetArg(args[0], XtNstring, &val);
1857                     XtGetValues(currentOption[i].handle, args, 1);
1858                     if(*(char**) currentOption[i].target == NULL || strcmp(*(char**) currentOption[i].target, val)) {
1859                         safeStrCpy(currentOption[i].name + 100, val, MSG_SIZ-100); // text value kept in pivate storage for each option
1860                         *(char**) currentOption[i].target = currentOption[i].name + 100; // option gets to point to that
1861                     }
1862                     break;
1863                 case Spin:
1864                 case Fractional:
1865                     XtSetArg(args[0], XtNstring, &val);
1866                     XtGetValues(currentOption[i].handle, args, 1);
1867                     sscanf(val, "%f", &x);
1868                     if(x > currentOption[i].max) x = currentOption[i].max;
1869                     if(x < currentOption[i].min) x = currentOption[i].min;
1870                     if(currentOption[i].value != x) {
1871                         currentOption[i].value = x;
1872                         if(currentOption[i].type == Spin) *(int*) currentOption[i].target = x;
1873                         else *(float*) currentOption[i].target = x;
1874                     }
1875                     break;
1876                 case CheckBox:
1877                     j = 0;
1878                     XtSetArg(args[0], XtNstate, &j);
1879                     XtGetValues(currentOption[i].handle, args, 1);
1880                     if(currentOption[i].value != j) {
1881                         currentOption[i].value = j;
1882                         *(Boolean*) currentOption[i].target = j;
1883                     }
1884                     break;
1885                 case ComboBox:
1886                     val = ((char**)currentOption[i].choice)[values[i]];
1887                     if(val && (*(char**) currentOption[i].target == NULL || strcmp(*(char**) currentOption[i].target, val))) {
1888                       if(*(char**) currentOption[i].target) free(*(char**) currentOption[i].target);
1889                       *(char**) currentOption[i].target = strdup(val);
1890                     }
1891                     break;
1892                 case EndMark:
1893                     if(currentOption[i].target) // callback for implementing necessary actions on OK (like redraw)
1894                         ((ButtonCallback*) currentOption[i].target)(i);
1895                     break;
1896             default:
1897                 printf("GenericReadout: unexpected case in switch.\n");
1898                 case Button:
1899                 case Label:
1900               break;
1901             }
1902             if(currentOption[i].type == EndMark) break;
1903         }
1904 }
1905
1906 void GenericCallback(w, client_data, call_data)
1907      Widget w;
1908      XtPointer client_data, call_data;
1909 {
1910     String name, val;
1911     Arg args[16];
1912     char buf[MSG_SIZ];
1913     int i, j;
1914     int data = (intptr_t) client_data;
1915
1916     XtSetArg(args[0], XtNlabel, &name);
1917     XtGetValues(w, args, 1);
1918
1919     if (strcmp(name, _("cancel")) == 0) {
1920         SettingsPopDown();
1921         return;
1922     }
1923     if (strcmp(name, _("OK")) == 0) { // save buttons imply OK
1924         GenericReadout();
1925         SettingsPopDown();
1926         return;
1927     }
1928     ((ButtonCallback*) currentOption[data].target)(data);
1929 }
1930
1931 void
1932 GenericPopUp(Option *option, char *title)
1933 {
1934     Arg args[16];
1935     Widget popup, layout, dialog, edit=NULL, form,  last, b_ok, b_cancel, leftMargin = NULL, textField = NULL;
1936     Window root, child;
1937     int x, y, i, j, height=999, width=1, h, c, w;
1938     int win_x, win_y, maxWidth, maxTextWidth;
1939     unsigned int mask;
1940     char def[MSG_SIZ], *msg;
1941     static char pane[6] = "paneX";
1942     Widget texts[100], forelast = NULL, anchor, widest, lastrow = NULL;
1943
1944     currentOption = option; // make available to callback
1945     // kludge: fake address of a ChessProgramState struct that contains the options, so Spin and Combo callbacks work on it
1946     currentCps = (ChessProgramState *) ((char *) option - ((char *)&first.option - (char *)&first));
1947
1948 //    if(cps->nrOptions > 50) width = 4; else if(cps->nrOptions>24) width = 2; else width = 1;
1949 //    height = cps->nrOptions / width + 1;
1950      i = 0;
1951     XtSetArg(args[i], XtNresizable, True); i++;
1952     SettingsShell = popup =
1953       XtCreatePopupShell(title, transientShellWidgetClass,
1954                          shellWidget, args, i);
1955
1956     layout =
1957       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
1958                             layoutArgs, XtNumber(layoutArgs));
1959   for(c=0; c<width; c++) {
1960     pane[4] = 'A'+c;
1961     form =
1962       XtCreateManagedWidget(pane, formWidgetClass, layout,
1963                             formArgs, XtNumber(formArgs));
1964     j=0;
1965     XtSetArg(args[j], XtNfromHoriz, leftMargin);  j++;
1966     XtSetValues(form, args, j);
1967     leftMargin = form;
1968
1969     last = widest = NULL; anchor = lastrow;
1970     for(h=0; h<height; h++) {
1971         i = h + c*height;
1972         if(option[i].type == EndMark) break;
1973         lastrow = forelast;
1974         forelast = last;
1975         switch(option[i].type) {
1976           case Fractional:
1977             snprintf(def, MSG_SIZ,  "%.2f", *(float*)option[i].target);
1978             option[i].value = *(float*)option[i].target;
1979             goto tBox;
1980           case Spin:
1981             snprintf(def, MSG_SIZ,  "%d", option[i].value = *(int*)option[i].target);
1982           case TextBox:
1983           case FileName:
1984           case PathName:
1985           tBox:
1986             if(option[i].name[0]) {
1987             j=0;
1988             XtSetArg(args[j], XtNfromVert, last);  j++;
1989             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
1990             XtSetArg(args[j], XtNright, XtChainLeft); j++;
1991             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1992             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1993             texts[h] =
1994             dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
1995             } else texts[h] = dialog = NULL;
1996             w = option[i].type == Spin || option[i].type == Fractional ? 70 : option[i].max ? option[i].max : 205;
1997             if(option[i].type == FileName || option[i].type == PathName) w -= 55;
1998             j=0;
1999             XtSetArg(args[j], XtNfromVert, last);  j++;
2000             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
2001             XtSetArg(args[j], XtNborderWidth, 1); j++;
2002             XtSetArg(args[j], XtNwidth, w); j++;
2003             if(option[i].type == TextBox && option[i].min) XtSetArg(args[j], XtNheight, option[i].min); j++;
2004             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
2005             XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
2006             XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
2007             XtSetArg(args[j], XtNdisplayCaret, False);  j++;
2008             XtSetArg(args[j], XtNright, XtChainRight);  j++;
2009             XtSetArg(args[j], XtNresizable, True);  j++;
2010             XtSetArg(args[j], XtNstring, option[i].type==Spin || option[i].type==Fractional ? def : *(char**)option[i].target);  j++;
2011             XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
2012             edit = last;
2013             option[i].handle = (void*)
2014                 (textField = last = XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j));
2015             XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
2016
2017             if(option[i].type == TextBox || option[i].type == Fractional) break;
2018
2019             // add increment and decrement controls for spin
2020             j=0;
2021             XtSetArg(args[j], XtNfromVert, edit);  j++;
2022             XtSetArg(args[j], XtNfromHoriz, last);  j++;
2023             XtSetArg(args[j], XtNleft, XtChainRight); j++;
2024             XtSetArg(args[j], XtNright, XtChainRight); j++;
2025             if(option[i].type == FileName || option[i].type == PathName) {
2026                 w = 50; msg = "browse";
2027             } else {
2028                 XtSetArg(args[j], XtNheight, 10);  j++;
2029                 w = 20; msg = "+";
2030             }
2031             XtSetArg(args[j], XtNwidth, w);  j++;
2032             edit = XtCreateManagedWidget(msg, commandWidgetClass, form, args, j);
2033             XtAddCallback(edit, XtNcallback, SpinCallback,
2034                           (XtPointer)(intptr_t) i);
2035
2036             if(option[i].type != Spin) break;
2037
2038             j=0;
2039             XtSetArg(args[j], XtNfromVert, edit);  j++;
2040             XtSetArg(args[j], XtNfromHoriz, last);  j++;
2041             XtSetArg(args[j], XtNheight, 10);  j++;
2042             XtSetArg(args[j], XtNwidth, 20);  j++;
2043             XtSetArg(args[j], XtNleft, XtChainRight); j++;
2044             XtSetArg(args[j], XtNright, XtChainRight); j++;
2045             last = XtCreateManagedWidget("-", commandWidgetClass, form, args, j);
2046             XtAddCallback(last, XtNcallback, SpinCallback,
2047                           (XtPointer)(intptr_t) i);
2048             break;
2049           case CheckBox:
2050             j=0;
2051             XtSetArg(args[j], XtNfromVert, last);  j++;
2052             XtSetArg(args[j], XtNwidth, 10);  j++;
2053             XtSetArg(args[j], XtNheight, 10);  j++;
2054             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
2055             XtSetArg(args[j], XtNright, XtChainLeft); j++;
2056             XtSetArg(args[j], XtNstate, option[i].value = *(Boolean*)option[i].target);  j++;
2057             option[i].handle = (void*)
2058                 (dialog = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
2059           case Label:
2060             msg = option[i].name;
2061             if(*msg == NULLCHAR) msg = option[i].textValue;
2062             if(!msg) break;
2063             j=0;
2064             XtSetArg(args[j], XtNfromVert, last);  j++;
2065             XtSetArg(args[j], XtNfromHoriz, option[i].type != Label ? dialog : NULL);  j++;
2066             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
2067             XtSetArg(args[j], XtNborderWidth, 0);  j++;
2068             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
2069             last = XtCreateManagedWidget(msg, labelWidgetClass, form, args, j);
2070             break;
2071           case Button:
2072             j=0;
2073             XtSetArg(args[j], XtNfromVert, option[i].min & 1 ? lastrow : last);  j++;
2074             if(option[i].min & 1) { XtSetArg(args[j], XtNfromHoriz, last);  j++; }
2075             else  { XtSetArg(args[j], XtNfromHoriz, NULL);  j++; lastrow = forelast; }
2076             if(option[i].max) XtSetArg(args[j], XtNwidth, option[i].max);  j++;
2077             if(option[i].textValue) { // special for buttons of New Variant dialog
2078                 XtSetArg(args[j], XtNsensitive, appData.noChessProgram || option[i].value < 0
2079                                          || strstr(first.variants, VariantName(option[i].value))); j++;
2080                 XtSetArg(args[j], XtNborderWidth, (gameInfo.variant == option[i].value)+1); j++;
2081             }
2082             option[i].handle = (void*)
2083                 (dialog = last = XtCreateManagedWidget(option[i].name, commandWidgetClass, form, args, j));
2084             if(option[i].target == NULL) SetColor( *(char**) option[i-1].target, last); else
2085             XtAddCallback(last, XtNcallback, GenericCallback,
2086                           (XtPointer)(intptr_t) i);
2087             if(option[i].textValue) SetColor( option[i].textValue, last);
2088             forelast = lastrow; // next button can go on same row
2089             break;
2090           case ComboBox:
2091             j=0;
2092             XtSetArg(args[j], XtNfromVert, last);  j++;
2093             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
2094             XtSetArg(args[j], XtNright, XtChainLeft); j++;
2095             XtSetArg(args[j], XtNborderWidth, 0);  j++;
2096             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
2097             texts[h] = dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
2098
2099             for(j=0; option[i].choice[j]; j++)
2100                 if(*(char**)option[i].target && !strcmp(*(char**)option[i].target, option[i].choice[j])) break;
2101             option[i].value = j + (option[i].choice[j] == NULL);
2102
2103             j=0;
2104             XtSetArg(args[j], XtNfromVert, last);  j++;
2105             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
2106             XtSetArg(args[j], XtNwidth, option[i].max ? option[i].max : 100);  j++;
2107             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
2108             XtSetArg(args[j], XtNmenuName, XtNewString(option[i].name));  j++;
2109             XtSetArg(args[j], XtNlabel, ((char**)option[i].textValue)[option[i].value]);  j++;
2110             option[i].handle = (void*)
2111                 (last = XtCreateManagedWidget(" ", menuButtonWidgetClass, form, args, j));
2112             CreateComboPopup(last, option[i].name, i, (char **) option[i].textValue);
2113             values[i] = option[i].value;
2114             break;
2115           case Break:
2116             width++;
2117             height = i+1;
2118             break;
2119         default:
2120             printf("GenericPopUp: unexpected case in switch.\n");
2121             break;
2122         }
2123     }
2124
2125     // make an attempt to align all spins and textbox controls
2126     maxWidth = maxTextWidth = 0;
2127     for(h=0; h<height; h++) {
2128         i = h + c*height;
2129         if(option[i].type == EndMark) break;
2130         if(option[i].type == Spin || option[i].type == TextBox || option[i].type == ComboBox
2131                                   || option[i].type == PathName || option[i].type == FileName) {
2132             Dimension w;
2133             if(!texts[h]) continue;
2134             j=0;
2135             XtSetArg(args[j], XtNwidth, &w);  j++;
2136             XtGetValues(texts[h], args, j);
2137             if(option[i].type == Spin) {
2138                 if(w > maxWidth) maxWidth = w;
2139                 widest = texts[h];
2140             } else {
2141                 if(w > maxTextWidth) maxTextWidth = w;
2142                 if(!widest) widest = texts[h];
2143             }
2144         }
2145     }
2146     if(maxTextWidth + 110 < maxWidth)
2147          maxTextWidth = maxWidth - 110;
2148     else maxWidth = maxTextWidth + 110;
2149     for(h=0; h<height; h++) {
2150         i = h + c*height;
2151         if(option[i].type == EndMark) break;
2152         if(!texts[h]) continue;
2153         j=0;
2154         if(option[i].type == Spin) {
2155             XtSetArg(args[j], XtNwidth, maxWidth);  j++;
2156             XtSetValues(texts[h], args, j);
2157         } else
2158         if(option[i].type == TextBox || option[i].type == ComboBox || option[i].type == PathName || option[i].type == FileName) {
2159             XtSetArg(args[j], XtNwidth, maxTextWidth);  j++;
2160             XtSetValues(texts[h], args, j);
2161         }
2162     }
2163   }
2164
2165   if(!(option[i].min & 2)) {
2166     j=0;
2167     if(option[i].min & 1) { XtSetArg(args[j], XtNfromHoriz, last); last = forelast; } else
2168     XtSetArg(args[j], XtNfromHoriz, widest ? widest : dialog);  j++;
2169     XtSetArg(args[j], XtNfromVert, anchor ? anchor : last);  j++;
2170     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
2171     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
2172     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
2173     XtSetArg(args[j], XtNright, XtChainRight);  j++;
2174     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
2175     XtAddCallback(b_ok, XtNcallback, GenericCallback, (XtPointer) 0);
2176
2177     XtSetArg(args[0], XtNfromHoriz, b_ok);
2178     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
2179     XtAddCallback(b_cancel, XtNcallback, SettingsPopDown, (XtPointer) 0);
2180   }
2181
2182     XtRealizeWidget(popup);
2183     CatchDeleteWindow(popup, "SettingsPopDown");
2184
2185     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
2186                   &x, &y, &win_x, &win_y, &mask);
2187
2188     XtSetArg(args[0], XtNx, x - 10);
2189     XtSetArg(args[1], XtNy, y - 30);
2190     XtSetValues(popup, args, 2);
2191
2192     XtPopup(popup, XtGrabExclusive);
2193     SettingsUp = True;
2194
2195     previous = NULL;
2196     if(textField)SetFocus(textField, popup, (XEvent*) NULL, False);
2197 }
2198
2199
2200 void LoadOptionsProc(w, event, prms, nprms)
2201      Widget w;
2202      XEvent *event;
2203      String *prms;
2204      Cardinal *nprms;
2205 {
2206    GenericPopUp(loadOptions, _("Load Game Options"));
2207 }
2208
2209 void SaveOptionsProc(w, event, prms, nprms)
2210      Widget w;
2211      XEvent *event;
2212      String *prms;
2213      Cardinal *nprms;
2214 {
2215    GenericPopUp(saveOptions, _("Save Game Options"));
2216 }
2217
2218 //---------------------------- Chat Windows ----------------------------------------------
2219
2220 void OutputChatMessage(int partner, char *mess)
2221 {
2222     return; // dummy
2223 }
2224