xoptions.c

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