Add -topLevel option
[xboard.git] / dialogs.c
1 /*
2  * dialogs.c -- platform-independent code for dialogs of XBoard
3  *
4  * Copyright 2000, 2009, 2010, 2011, 2012 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 "common.h"
51 #include "backend.h"
52 #include "xboard.h"
53 #include "menus.h"
54 #include "dialogs.h"
55 #include "gettext.h"
56
57 #ifdef ENABLE_NLS
58 # define  _(s) gettext (s)
59 # define N_(s) gettext_noop (s)
60 #else
61 # define  _(s) (s)
62 # define N_(s)  s
63 #endif
64
65
66 int values[MAX_OPTIONS];
67 ChessProgramState *currentCps;
68
69 //----------------------------Generic dialog --------------------------------------------
70
71 // cloned from Engine Settings dialog (and later merged with it)
72
73 char *marked[NrOfDialogs];
74 Boolean shellUp[NrOfDialogs];
75
76 void
77 MarkMenu (char *item, int dlgNr)
78 {
79     MarkMenuItem(marked[dlgNr] = item, True);
80 }
81
82 void
83 AddLine (Option *opt, char *s)
84 {
85     AppendText(opt, s);
86     AppendText(opt, "\n");
87 }
88
89 //---------------------------------------------- Update dialog controls ------------------------------------
90
91 int
92 SetCurrentComboSelection (Option *opt)
93 {
94     int j;
95     if(!opt->textValue) opt->value = *(int*)opt->target; /* numeric */else {
96         for(j=0; opt->choice[j]; j++) // look up actual value in list of possible values, to get selection nr
97             if(*(char**)opt->target && !strcmp(*(char**)opt->target, ((char**)opt->textValue)[j])) break;
98         opt->value = j + (opt->choice[j] == NULL);
99     }
100     return opt->value;
101 }
102
103 void
104 GenericUpdate (Option *opts, int selected)
105 {
106     int i, j;
107     char buf[MSG_SIZ];
108     float x;
109         for(i=0; ; i++) {
110             if(selected >= 0) { if(i < selected) continue; else if(i > selected) break; }
111             switch(opts[i].type) {
112                 case TextBox:
113                 case FileName:
114                 case PathName:
115                     SetWidgetText(&opts[i],  *(char**) opts[i].target, -1);
116                     break;
117                 case Spin:
118                     sprintf(buf, "%d", *(int*) opts[i].target);
119                     SetWidgetText(&opts[i], buf, -1);
120                     break;
121                 case Fractional:
122                     sprintf(buf, "%4.2f", *(float*) opts[i].target);
123                     SetWidgetText(&opts[i], buf, -1);
124                     break;
125                 case CheckBox:
126                     SetWidgetState(&opts[i],  *(Boolean*) opts[i].target);
127                     break;
128                 case ComboBox:
129                   if(opts[i].min & COMBO_CALLBACK) break;
130                   SetCurrentComboSelection(opts+i);
131                     // TODO: actually display this (but it is never used that way...)
132                     break;
133                 case EndMark:
134                     return;
135             default:
136                 printf("GenericUpdate: unexpected case in switch.\n");
137                 case ListBox:
138                 case Button:
139                 case SaveButton:
140                 case Label:
141                 case Break:
142               break;
143             }
144         }
145 }
146
147 //------------------------------------------- Read out dialog controls ------------------------------------
148
149 int
150 GenericReadout (Option *opts, int selected)
151 {
152     int i, j, res=1;
153     char *val;
154     char buf[MSG_SIZ], **dest;
155     float x;
156         for(i=0; ; i++) { // send all options that had to be OK-ed to engine
157             if(selected >= 0) { if(i < selected) continue; else if(i > selected) break; }
158             switch(opts[i].type) {
159                 case TextBox:
160                 case FileName:
161                 case PathName:
162                     GetWidgetText(&opts[i], &val);
163                     dest = currentCps ? &(opts[i].textValue) : (char**) opts[i].target;
164                     if(*dest == NULL || strcmp(*dest, val)) {
165                         if(currentCps) {
166                             snprintf(buf, MSG_SIZ,  "option %s=%s\n", opts[i].name, val);
167                             SendToProgram(buf, currentCps);
168                         } else {
169                             if(*dest) free(*dest);
170                             *dest = malloc(strlen(val)+1);
171                         }
172                         safeStrCpy(*dest, val, MSG_SIZ - (*dest - opts[i].name)); // copy text there
173                     }
174                     break;
175                 case Spin:
176                 case Fractional:
177                     GetWidgetText(&opts[i], &val);
178                     x = 0.0; // Initialise because sscanf() will fail if non-numeric text is entered
179                     sscanf(val, "%f", &x);
180                     if(x > opts[i].max) x = opts[i].max;
181                     if(x < opts[i].min) x = opts[i].min;
182                     if(opts[i].type == Fractional)
183                         *(float*) opts[i].target = x; // engines never have float options!
184                     else if(opts[i].value != x) {
185                         opts[i].value = x;
186                         if(currentCps) {
187                             snprintf(buf, MSG_SIZ,  "option %s=%.0f\n", opts[i].name, x);
188                             SendToProgram(buf, currentCps);
189                         } else *(int*) opts[i].target = x;
190                     }
191                     break;
192                 case CheckBox:
193                     j = 0;
194                     GetWidgetState(&opts[i], &j);
195                     if(opts[i].value != j) {
196                         opts[i].value = j;
197                         if(currentCps) {
198                             snprintf(buf, MSG_SIZ,  "option %s=%d\n", opts[i].name, j);
199                             SendToProgram(buf, currentCps);
200                         } else *(Boolean*) opts[i].target = j;
201                     }
202                     break;
203                 case ComboBox:
204                     if(opts[i].min & COMBO_CALLBACK) break;
205                     if(!opts[i].textValue) { *(int*)opts[i].target == opts[i].value; break; } // numeric
206                     val = ((char**)opts[i].textValue)[values[i]];
207                     if(currentCps) {
208                         if(opts[i].value == values[i]) break; // not changed
209                         opts[i].value = values[i];
210                         snprintf(buf, MSG_SIZ,  "option %s=%s\n", opts[i].name, opts[i].choice[values[i]]);
211                         SendToProgram(buf, currentCps);
212                     } else if(val && (*(char**) opts[i].target == NULL || strcmp(*(char**) opts[i].target, val))) {
213                       if(*(char**) opts[i].target) free(*(char**) opts[i].target);
214                       *(char**) opts[i].target = strdup(val);
215                     }
216                     break;
217                 case EndMark:
218                     if(opts[i].target) // callback for implementing necessary actions on OK (like redraw)
219                         res = ((OKCallback*) opts[i].target)(i);
220                     break;
221             default:
222                 printf("GenericReadout: unexpected case in switch.\n");
223                 case ListBox:
224                 case Button:
225                 case SaveButton:
226                 case Label:
227                 case Break:
228               break;
229             }
230             if(opts[i].type == EndMark) break;
231         }
232         return res;
233 }
234
235 //------------------------------------------- Match Options ------------------------------------------------------
236
237 char *engineName, *engineChoice, *tfName;
238 char *engineList[MAXENGINES] = {" "}, *engineMnemonic[MAXENGINES] = {""};
239
240 static void AddToTourney P((int n));
241 static void CloneTourney P((void));
242 static void ReplaceParticipant P((void));
243 static void UpgradeParticipant P((void));
244
245 static int
246 MatchOK (int n)
247 {
248     ASSIGN(appData.participants, engineName);
249     if(!CreateTourney(tfName) || matchMode) return matchMode || !appData.participants[0];
250     PopDown(TransientDlg); // early popdown to prevent FreezeUI called through MatchEvent from causing XtGrab warning
251     MatchEvent(2); // start tourney
252     return FALSE;  // no double PopDown!
253 }
254
255 static Option matchOptions[] = {
256 { 0,  0,          0, NULL, (void*) &tfName, ".trn", NULL, FileName, N_("Tournament file:") },
257 { 0,  0,          0, NULL, (void*) &appData.roundSync, "", NULL, CheckBox, N_("Sync after round    (for concurrent playing of a single") },
258 { 0,  0,          0, NULL, (void*) &appData.cycleSync, "", NULL, CheckBox, N_("Sync after cycle      tourney with multiple XBoards)") },
259 { 150, T_VSCRL | T_FILL | T_WRAP,
260                   0, NULL, (void*) &engineName, "", NULL, TextBox, N_("Tourney participants:") },
261 { 0,  COMBO_CALLBACK | NO_GETTEXT,
262                   0, NULL, (void*) &AddToTourney, (char*) (engineMnemonic+1), (engineMnemonic+1), ComboBox, N_("Select Engine:") },
263 { 0,  0,         10, NULL, (void*) &appData.tourneyType, "", NULL, Spin, N_("Tourney type (0 = round-robin, 1 = gauntlet):") },
264 { 0,  1, 1000000000, NULL, (void*) &appData.tourneyCycles, "", NULL, Spin, N_("Number of tourney cycles (or Swiss rounds):") },
265 { 0,  1, 1000000000, NULL, (void*) &appData.defaultMatchGames, "", NULL, Spin, N_("Default Number of Games in Match (or Pairing):") },
266 { 0,  0, 1000000000, NULL, (void*) &appData.matchPause, "", NULL, Spin, N_("Pause between Match Games (msec):") },
267 { 0,  0,          0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName, N_("Save Tourney Games on:") },
268 { 0,  0,          0, NULL, (void*) &appData.loadGameFile, ".pgn", NULL, FileName, N_("Game File with Opening Lines:") },
269 { 0, -2, 1000000000, NULL, (void*) &appData.loadGameIndex, "", NULL, Spin, N_("Game Number (-1 or -2 = Auto-Increment):") },
270 { 0,  0,          0, NULL, (void*) &appData.loadPositionFile, ".fen", NULL, FileName, N_("File with Start Positions:") },
271 { 0, -2, 1000000000, NULL, (void*) &appData.loadPositionIndex, "", NULL, Spin, N_("Position Number (-1 or -2 = Auto-Increment):") },
272 { 0,  0, 1000000000, NULL, (void*) &appData.rewindIndex, "", NULL, Spin, N_("Rewind Index after this many Games (0 = never):") },
273 { 0,  0,          0, NULL, (void*) &appData.defNoBook, "", NULL, CheckBox, N_("Disable own engine books by default") },
274 { 0,  0,          0, NULL, (void*) &ReplaceParticipant, NULL, NULL, Button, N_("Replace Engine") },
275 { 0, SAME_ROW,    0, NULL, (void*) &UpgradeParticipant, NULL, NULL, Button, N_("Upgrade Engine") },
276 { 0, SAME_ROW,    0, NULL, (void*) &CloneTourney, NULL, NULL, Button, N_("Clone Tourney") },
277 { 0, SAME_ROW,    0, NULL, (void*) &MatchOK, "", NULL, EndMark , "" }
278 };
279
280 static void
281 ReplaceParticipant ()
282 {
283     GenericReadout(matchOptions, 3);
284     Substitute(strdup(engineName), True);
285 }
286
287 static void
288 UpgradeParticipant ()
289 {
290     GenericReadout(matchOptions, 3);
291     Substitute(strdup(engineName), False);
292 }
293
294 static void
295 CloneTourney ()
296 {
297     FILE *f;
298     char *name;
299     GetWidgetText(matchOptions, &name);
300     if(name && name[0] && (f = fopen(name, "r")) ) {
301         char *saveSaveFile;
302         saveSaveFile = appData.saveGameFile; appData.saveGameFile = NULL; // this is a persistent option, protect from change
303         ParseArgsFromFile(f);
304         engineName = appData.participants; GenericUpdate(matchOptions, -1);
305         FREE(appData.saveGameFile); appData.saveGameFile = saveSaveFile;
306     } else DisplayError(_("First you must specify an existing tourney file to clone"), 0);
307 }
308
309 static void
310 AddToTourney (int n)
311 {
312     AddLine(&matchOptions[3], engineMnemonic[values[4]+1]);
313 }
314
315 void
316 MatchOptionsProc ()
317 {
318    NamesToList(firstChessProgramNames, engineList, engineMnemonic, "all");
319    matchOptions[5].min = -(appData.pairingEngine[0] != NULLCHAR); // with pairing engine, allow Swiss
320    ASSIGN(tfName, appData.tourneyFile[0] ? appData.tourneyFile : MakeName(appData.defName));
321    ASSIGN(engineName, appData.participants);
322    GenericPopUp(matchOptions, _("Match Options"), TransientDlg, BoardWindow, MODAL, 0);
323 }
324
325 // ------------------------------------------- General Options --------------------------------------------------
326
327 static int oldShow, oldBlind, oldPonder;
328
329 static int
330 GeneralOptionsOK (int n)
331 {
332         int newPonder = appData.ponderNextMove;
333         appData.ponderNextMove = oldPonder;
334         PonderNextMoveEvent(newPonder);
335         if(!appData.highlightLastMove) ClearHighlights(), ClearPremoveHighlights();
336         if(oldShow != appData.showCoords || oldBlind != appData.blindfold) DrawPosition(TRUE, NULL);
337         return 1;
338 }
339
340 static Option generalOptions[] = {
341 { 0,  0, 0, NULL, (void*) &appData.whitePOV, "", NULL, CheckBox, N_("Absolute Analysis Scores") },
342 { 0,  0, 0, NULL, (void*) &appData.sweepSelect, "", NULL, CheckBox, N_("Almost Always Queen (Detour Under-Promote)") },
343 { 0,  0, 0, NULL, (void*) &appData.animateDragging, "", NULL, CheckBox, N_("Animate Dragging") },
344 { 0,  0, 0, NULL, (void*) &appData.animate, "", NULL, CheckBox, N_("Animate Moving") },
345 { 0,  0, 0, NULL, (void*) &appData.autoCallFlag, "", NULL, CheckBox, N_("Auto Flag") },
346 { 0,  0, 0, NULL, (void*) &appData.autoFlipView, "", NULL, CheckBox, N_("Auto Flip View") },
347 { 0,  0, 0, NULL, (void*) &appData.blindfold, "", NULL, CheckBox, N_("Blindfold") },
348 { 0,  0, 0, NULL, (void*) &appData.dropMenu, "", NULL, CheckBox, N_("Drop Menu") },
349 { 0,  0, 0, NULL, (void*) &appData.hideThinkingFromHuman, "", NULL, CheckBox, N_("Hide Thinking from Human") },
350 { 0,  0, 0, NULL, (void*) &appData.highlightLastMove, "", NULL, CheckBox, N_("Highlight Last Move") },
351 { 0,  0, 0, NULL, (void*) &appData.highlightMoveWithArrow, "", NULL, CheckBox, N_("Highlight with Arrow") },
352 { 0,  0, 0, NULL, (void*) &appData.ringBellAfterMoves, "", NULL, CheckBox, N_("Move Sound") },
353 { 0,  0, 0, NULL, (void*) &appData.oneClick, "", NULL, CheckBox, N_("One-Click Moving") },
354 { 0,  0, 0, NULL, (void*) &appData.periodicUpdates, "", NULL, CheckBox, N_("Periodic Updates (in Analysis Mode)") },
355 { 0,  0, 0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
356 { 0,  0, 0, NULL, (void*) &appData.popupExitMessage, "", NULL, CheckBox, N_("Popup Exit Messages") },
357 { 0,  0, 0, NULL, (void*) &appData.popupMoveErrors, "", NULL, CheckBox, N_("Popup Move Errors") },
358 { 0,  0, 0, NULL, (void*) &appData.showEvalInMoveHistory, "", NULL, CheckBox, N_("Scores in Move List") },
359 { 0,  0, 0, NULL, (void*) &appData.showCoords, "", NULL, CheckBox, N_("Show Coordinates") },
360 { 0,  0, 0, NULL, (void*) &appData.markers, "", NULL, CheckBox, N_("Show Target Squares") },
361 { 0,  0, 0, NULL, (void*) &appData.useStickyWindows, "", NULL, CheckBox, N_("Sticky Windows") },
362 { 0,  0, 0, NULL, (void*) &appData.testLegality, "", NULL, CheckBox, N_("Test Legality") },
363 { 0,  0, 0, NULL, (void*) &appData.topLevel, "", NULL, CheckBox, N_("Top-Level Dialogs") },
364 { 0, 0,10,  NULL, (void*) &appData.flashCount, "", NULL, Spin, N_("Flash Moves (0 = no flashing):") },
365 { 0, 1,10,  NULL, (void*) &appData.flashRate, "", NULL, Spin, N_("Flash Rate (high = fast):") },
366 { 0, 5,100, NULL, (void*) &appData.animSpeed, "", NULL, Spin, N_("Animation Speed (high = slow):") },
367 { 0, 1,5,   NULL, (void*) &appData.zoom, "", NULL, Spin, N_("Zoom factor in Evaluation Graph:") },
368 { 0,  0, 0, NULL, (void*) &GeneralOptionsOK, "", NULL, EndMark , "" }
369 };
370
371 void
372 OptionsProc ()
373 {
374    oldPonder = appData.ponderNextMove;
375    oldShow = appData.showCoords; oldBlind = appData.blindfold;
376    GenericPopUp(generalOptions, _("General Options"), TransientDlg, BoardWindow, MODAL, 0);
377 }
378
379 //---------------------------------------------- New Variant ------------------------------------------------
380
381 static void Pick P((int n));
382
383 static Option variantDescriptors[] = {
384 { VariantNormal,        0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("normal")},
385 { VariantFairy,  SAME_ROW, 135, NULL, (void*) &Pick, "#BFBFBF", NULL, Button, N_("fairy")},
386 { VariantFischeRandom,  0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("FRC")},
387 { VariantSChess, SAME_ROW, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Seirawan")},
388 { VariantWildCastle,    0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("wild castle")},
389 { VariantSuper,  SAME_ROW, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Superchess")},
390 { VariantNoCastle,      0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("no castle")},
391 { VariantCrazyhouse,SAME_ROW,135,NULL,(void*) &Pick, "#FFBFBF", NULL, Button, N_("crazyhouse")},
392 { VariantKnightmate,    0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("knightmate")},
393 { VariantBughouse,SAME_ROW,135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("bughouse")},
394 { VariantBerolina,      0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("berolina")},
395 { VariantShogi,  SAME_ROW, 135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("shogi (9x9)")},
396 { VariantCylinder,      0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("cylinder")},
397 { VariantXiangqi, SAME_ROW,135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("xiangqi (9x10)")},
398 { VariantShatranj,      0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("shatranj")},
399 { VariantCourier, SAME_ROW,135, NULL, (void*) &Pick, "#BFFFBF", NULL, Button, N_("courier (12x8)")},
400 { VariantMakruk,        0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("makruk")},
401 { VariantGreat,  SAME_ROW, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Great Shatranj (10x8)")},
402 { VariantAtomic,        0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("atomic")},
403 { VariantFalcon, SAME_ROW, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("falcon (10x8)")},
404 { VariantTwoKings,      0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("two kings")},
405 { VariantCapablanca,SAME_ROW,135,NULL,(void*) &Pick, "#BFBFFF", NULL, Button, N_("Capablanca (10x8)")},
406 { Variant3Check,        0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("3-checks")},
407 { VariantGothic, SAME_ROW, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Gothic (10x8)")},
408 { VariantSuicide,       0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("suicide")},
409 { VariantJanus,  SAME_ROW, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("janus (10x8)")},
410 { VariantGiveaway,      0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("give-away")},
411 { VariantCapaRandom,SAME_ROW,135,NULL,(void*) &Pick, "#BFBFFF", NULL, Button, N_("CRC (10x8)")},
412 { VariantLosers,        0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("losers")},
413 { VariantGrand,  SAME_ROW, 135, NULL, (void*) &Pick, "#5070FF", NULL, Button, N_("grand (10x10)")},
414 { VariantSpartan,       0, 135, NULL, (void*) &Pick, "#FF0000", NULL, Button, N_("Spartan")},
415 { 0, 0, 0, NULL, NULL, NULL, NULL, Label, N_("Board size ( -1 = default for selected variant):")},
416 { 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.NrRanks, "", NULL, Spin, N_("Number of Board Ranks:") },
417 { 0, -1, BOARD_FILES, NULL, (void*) &appData.NrFiles, "", NULL, Spin, N_("Number of Board Files:") },
418 { 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.holdingsSize, "", NULL, Spin, N_("Holdings Size:") },
419 { 0, 0, 0, NULL, NULL, NULL, NULL, Label,
420                                 N_("WARNING: variants with un-orthodox\n"
421                                   "pieces only have built-in bitmaps\n"
422                                   "for -boardSize middling, bulky and\n"
423                                   "petite, and substitute king or amazon\n"
424                                   "for missing bitmaps. (See manual.)")},
425 { 0, NO_OK, 0, NULL, NULL, "", NULL, EndMark , "" }
426 };
427
428 static void
429 Pick (int n)
430 {
431         VariantClass v = variantDescriptors[n].value;
432         if(!appData.noChessProgram) {
433             char *name = VariantName(v), buf[MSG_SIZ];
434             if (first.protocolVersion > 1 && StrStr(first.variants, name) == NULL) {
435                 /* [HGM] in protocol 2 we check if variant is suported by engine */
436               snprintf(buf, MSG_SIZ,  _("Variant %s not supported by %s"), name, first.tidy);
437                 DisplayError(buf, 0);
438                 return; /* ignore OK if first engine does not support it */
439             } else
440             if (second.initDone && second.protocolVersion > 1 && StrStr(second.variants, name) == NULL) {
441               snprintf(buf, MSG_SIZ,  _("Warning: second engine (%s) does not support this!"), second.tidy);
442                 DisplayError(buf, 0);   /* use of second engine is optional; only warn user */
443             }
444         }
445
446         GenericReadout(variantDescriptors, -1); // make sure ranks and file settings are read
447
448         gameInfo.variant = v;
449         appData.variant = VariantName(v);
450
451         shuffleOpenings = FALSE; /* [HGM] shuffle: possible shuffle reset when we switch */
452         startedFromPositionFile = FALSE; /* [HGM] loadPos: no longer valid in new variant */
453         appData.pieceToCharTable = NULL;
454         appData.pieceNickNames = "";
455         appData.colorNickNames = "";
456         Reset(True, True);
457         PopDown(TransientDlg);
458         return;
459 }
460
461 void
462 NewVariantProc ()
463 {
464    GenericPopUp(variantDescriptors, _("New Variant"), TransientDlg, BoardWindow, MODAL, 0);
465 }
466
467 //------------------------------------------- Common Engine Options -------------------------------------
468
469 static int oldCores;
470
471 static int
472 CommonOptionsOK (int n)
473 {
474         int newPonder = appData.ponderNextMove;
475         // make sure changes are sent to first engine by re-initializing it
476         // if it was already started pre-emptively at end of previous game
477         if(gameMode == BeginningOfGame) Reset(True, True); else {
478             // Some changed setting need immediate sending always.
479             if(oldCores != appData.smpCores)
480                 NewSettingEvent(False, &(first.maxCores), "cores", appData.smpCores);
481             appData.ponderNextMove = oldPonder;
482             PonderNextMoveEvent(newPonder);
483         }
484         return 1;
485 }
486
487 static Option commonEngineOptions[] = {
488 { 0,  0,    0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
489 { 0,  0, 1000, NULL, (void*) &appData.smpCores, "", NULL, Spin, N_("Maximum Number of CPUs per Engine:") },
490 { 0,  0,    0, NULL, (void*) &appData.polyglotDir, "", NULL, PathName, N_("Polygot Directory:") },
491 { 0,  0,16000, NULL, (void*) &appData.defaultHashSize, "", NULL, Spin, N_("Hash-Table Size (MB):") },
492 { 0,  0,    0, NULL, (void*) &appData.defaultPathEGTB, "", NULL, PathName, N_("Nalimov EGTB Path:") },
493 { 0,  0, 1000, NULL, (void*) &appData.defaultCacheSizeEGTB, "", NULL, Spin, N_("EGTB Cache Size (MB):") },
494 { 0,  0,    0, NULL, (void*) &appData.usePolyglotBook, "", NULL, CheckBox, N_("Use GUI Book") },
495 { 0,  0,    0, NULL, (void*) &appData.polyglotBook, ".bin", NULL, FileName, N_("Opening-Book Filename:") },
496 { 0,  0,  100, NULL, (void*) &appData.bookDepth, "", NULL, Spin, N_("Book Depth (moves):") },
497 { 0,  0,  100, NULL, (void*) &appData.bookStrength, "", NULL, Spin, N_("Book Variety (0) vs. Strength (100):") },
498 { 0,  0,    0, NULL, (void*) &appData.firstHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #1 Has Own Book") },
499 { 0,  0,    0, NULL, (void*) &appData.secondHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #2 Has Own Book          ") },
500 { 0,SAME_ROW,0,NULL, (void*) &CommonOptionsOK, "", NULL, EndMark , "" }
501 };
502
503 void
504 UciMenuProc ()
505 {
506    oldCores = appData.smpCores;
507    oldPonder = appData.ponderNextMove;
508    GenericPopUp(commonEngineOptions, _("Common Engine Settings"), TransientDlg, BoardWindow, MODAL, 0);
509 }
510
511 //------------------------------------------ Adjudication Options --------------------------------------
512
513 static Option adjudicationOptions[] = {
514 { 0, 0,    0, NULL, (void*) &appData.checkMates, "", NULL, CheckBox, N_("Detect all Mates") },
515 { 0, 0,    0, NULL, (void*) &appData.testClaims, "", NULL, CheckBox, N_("Verify Engine Result Claims") },
516 { 0, 0,    0, NULL, (void*) &appData.materialDraws, "", NULL, CheckBox, N_("Draw if Insufficient Mating Material") },
517 { 0, 0,    0, NULL, (void*) &appData.trivialDraws, "", NULL, CheckBox, N_("Adjudicate Trivial Draws (3-Move Delay)") },
518 { 0, 0,100,   NULL, (void*) &appData.ruleMoves, "", NULL, Spin, N_("N-Move Rule:") },
519 { 0, 0,    6, NULL, (void*) &appData.drawRepeats, "", NULL, Spin, N_("N-fold Repeats:") },
520 { 0, 0,1000,  NULL, (void*) &appData.adjudicateDrawMoves, "", NULL, Spin, N_("Draw after N Moves Total:") },
521 { 0, -5000,0, NULL, (void*) &appData.adjudicateLossThreshold, "", NULL, Spin, N_("Win / Loss Threshold:") },
522 { 0, 0,    0, NULL, (void*) &first.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #1") },
523 { 0, 0,    0, NULL, (void*) &second.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #2") },
524 { 0,SAME_ROW, 0, NULL, NULL, "", NULL, EndMark , "" }
525 };
526
527 void
528 EngineMenuProc ()
529 {
530    GenericPopUp(adjudicationOptions, _("Adjudicate non-ICS Games"), TransientDlg, BoardWindow, MODAL, 0);
531 }
532
533 //--------------------------------------------- ICS Options ---------------------------------------------
534
535 static int
536 IcsOptionsOK (int n)
537 {
538     ParseIcsTextColors();
539     return 1;
540 }
541
542 Option icsOptions[] = {
543 { 0, 0, 0, NULL, (void*) &appData.autoKibitz, "",  NULL, CheckBox, N_("Auto-Kibitz") },
544 { 0, 0, 0, NULL, (void*) &appData.autoComment, "", NULL, CheckBox, N_("Auto-Comment") },
545 { 0, 0, 0, NULL, (void*) &appData.autoObserve, "", NULL, CheckBox, N_("Auto-Observe") },
546 { 0, 0, 0, NULL, (void*) &appData.autoRaiseBoard, "", NULL, CheckBox, N_("Auto-Raise Board") },
547 { 0, 0, 0, NULL, (void*) &appData.bgObserve, "",   NULL, CheckBox, N_("Background Observe while Playing") },
548 { 0, 0, 0, NULL, (void*) &appData.dualBoard, "",   NULL, CheckBox, N_("Dual Board for Background-Observed Game") },
549 { 0, 0, 0, NULL, (void*) &appData.getMoveList, "", NULL, CheckBox, N_("Get Move List") },
550 { 0, 0, 0, NULL, (void*) &appData.quietPlay, "",   NULL, CheckBox, N_("Quiet Play") },
551 { 0, 0, 0, NULL, (void*) &appData.seekGraph, "",   NULL, CheckBox, N_("Seek Graph") },
552 { 0, 0, 0, NULL, (void*) &appData.autoRefresh, "", NULL, CheckBox, N_("Auto-Refresh Seek Graph") },
553 { 0, 0, 0, NULL, (void*) &appData.premove, "",     NULL, CheckBox, N_("Premove") },
554 { 0, 0, 0, NULL, (void*) &appData.premoveWhite, "", NULL, CheckBox, N_("Premove for White") },
555 { 0, 0, 0, NULL, (void*) &appData.premoveWhiteText, "", NULL, TextBox, N_("First White Move:") },
556 { 0, 0, 0, NULL, (void*) &appData.premoveBlack, "", NULL, CheckBox, N_("Premove for Black") },
557 { 0, 0, 0, NULL, (void*) &appData.premoveBlackText, "", NULL, TextBox, N_("First Black Move:") },
558 { 0, SAME_ROW, 0, NULL, NULL, NULL, NULL, Break, "" },
559 { 0, 0, 0, NULL, (void*) &appData.icsAlarm, "", NULL, CheckBox, N_("Alarm") },
560 { 0, 0, 100000000, NULL, (void*) &appData.icsAlarmTime, "", NULL, Spin, N_("Alarm Time (msec):") },
561 //{ 0, 0, 0, NULL, (void*) &appData.chatBoxes, "", NULL, TextBox, N_("Startup Chat Boxes:") },
562 { 0, 0, 0, NULL, (void*) &appData.colorize, "", NULL, CheckBox, N_("Colorize Messages") },
563 { 0, 0, 0, NULL, (void*) &appData.colorShout, "", NULL, TextBox, N_("Shout Text Colors:") },
564 { 0, 0, 0, NULL, (void*) &appData.colorSShout, "", NULL, TextBox, N_("S-Shout Text Colors:") },
565 { 0, 0, 0, NULL, (void*) &appData.colorChannel1, "", NULL, TextBox, N_("Channel #1 Text Colors:") },
566 { 0, 0, 0, NULL, (void*) &appData.colorChannel, "", NULL, TextBox, N_("Other Channel Text Colors:") },
567 { 0, 0, 0, NULL, (void*) &appData.colorKibitz, "", NULL, TextBox, N_("Kibitz Text Colors:") },
568 { 0, 0, 0, NULL, (void*) &appData.colorTell, "", NULL, TextBox, N_("Tell Text Colors:") },
569 { 0, 0, 0, NULL, (void*) &appData.colorChallenge, "", NULL, TextBox, N_("Challenge Text Colors:") },
570 { 0, 0, 0, NULL, (void*) &appData.colorRequest, "", NULL, TextBox, N_("Request Text Colors:") },
571 { 0, 0, 0, NULL, (void*) &appData.colorSeek, "", NULL, TextBox, N_("Seek Text Colors:") },
572 { 0, 0, 0, NULL, (void*) &IcsOptionsOK, "", NULL, EndMark , "" }
573 };
574
575 void
576 IcsOptionsProc ()
577 {
578    GenericPopUp(icsOptions, _("ICS Options"), TransientDlg, BoardWindow, MODAL, 0);
579 }
580
581 //-------------------------------------------- Load Game Options ---------------------------------
582
583 static char *modeNames[] = { N_("Exact position match"), N_("Shown position is subset"), N_("Same material with exactly same Pawn chain"), 
584                       N_("Same material"), N_("Material range (top board half optional)"), N_("Material difference (optional stuff balanced)"), NULL };
585 static char *modeValues[] = { "1", "2", "3", "4", "5", "6" };
586 static char *searchMode;
587
588 static int
589 LoadOptionsOK ()
590 {
591     appData.searchMode = atoi(searchMode);
592     return 1;
593 }
594
595 static Option loadOptions[] = {
596 { 0,  0, 0,     NULL, (void*) &appData.autoDisplayTags, "", NULL, CheckBox, N_("Auto-Display Tags") },
597 { 0,  0, 0,     NULL, (void*) &appData.autoDisplayComment, "", NULL, CheckBox, N_("Auto-Display Comment") },
598 { 0, LR, 0,     NULL, NULL, NULL, NULL, Label, N_("Auto-Play speed of loaded games\n(0 = instant, -1 = off):") },
599 { 0, -1,10000000, NULL, (void*) &appData.timeDelay, "", NULL, Fractional, N_("Seconds per Move:") },
600 { 0, LR, 0,     NULL, NULL, NULL, NULL, Label,  N_("\noptions to use in game-viewer mode:") },
601 { 0, 0,300,     NULL, (void*) &appData.viewerOptions, "", NULL, TextBox,  "" },
602 { 0, LR,  0,    NULL, NULL, NULL, NULL, Label,  N_("\nThresholds for position filtering in game list:") },
603 { 0, 0,5000,    NULL, (void*) &appData.eloThreshold1, "", NULL, Spin, N_("Elo of strongest player at least:") },
604 { 0, 0,5000,    NULL, (void*) &appData.eloThreshold2, "", NULL, Spin, N_("Elo of weakest player at least:") },
605 { 0, 0,5000,    NULL, (void*) &appData.dateThreshold, "", NULL, Spin, N_("No games before year:") },
606 { 0, 1,50,      NULL, (void*) &appData.stretch, "", NULL, Spin, N_("Minimum nr consecutive positions:") },
607 { 0, 0,205,     NULL, (void*) &searchMode, (char*) modeValues, modeNames, ComboBox, N_("Search mode:") },
608 { 0, 0, 0,      NULL, (void*) &appData.ignoreColors, "", NULL, CheckBox, N_("Also match reversed colors") },
609 { 0, 0, 0,      NULL, (void*) &appData.findMirror, "", NULL, CheckBox, N_("Also match left-right flipped position") },
610 { 0,  0, 0,     NULL, (void*) &LoadOptionsOK, "", NULL, EndMark , "" }
611 };
612
613 void
614 LoadOptionsProc ()
615 {
616    ASSIGN(searchMode, modeValues[appData.searchMode-1]);
617    GenericPopUp(loadOptions, _("Load Game Options"), TransientDlg, BoardWindow, MODAL, 0);
618 }
619
620 //------------------------------------------- Save Game Options --------------------------------------------
621
622 static Option saveOptions[] = {
623 { 0, 0, 0, NULL, (void*) &appData.autoSaveGames, "", NULL, CheckBox, N_("Auto-Save Games") },
624 { 0, 0, 0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName,  N_("Save Games on File:") },
625 { 0, 0, 0, NULL, (void*) &appData.savePositionFile, ".fen", NULL, FileName,  N_("Save Final Positions on File:") },
626 { 0, 0, 0, NULL, (void*) &appData.pgnEventHeader, "", NULL, TextBox,  N_("PGN Event Header:") },
627 { 0, 0, 0, NULL, (void*) &appData.oldSaveStyle, "", NULL, CheckBox, N_("Old Save Style (as opposed to PGN)") },
628 { 0, 0, 0, NULL, (void*) &appData.numberTag, "", NULL, CheckBox, N_("Include Number Tag in tourney PGN") },
629 { 0, 0, 0, NULL, (void*) &appData.saveExtendedInfoInPGN, "", NULL, CheckBox, N_("Save Score/Depth Info in PGN") },
630 { 0, 0, 0, NULL, (void*) &appData.saveOutOfBookInfo, "", NULL, CheckBox, N_("Save Out-of-Book Info in PGN           ") },
631 { 0, SAME_ROW, 0, NULL, NULL, "", NULL, EndMark , "" }
632 };
633
634 void
635 SaveOptionsProc ()
636 {
637    GenericPopUp(saveOptions, _("Save Game Options"), TransientDlg, BoardWindow, MODAL, 0);
638 }
639
640 //----------------------------------------------- Sound Options ---------------------------------------------
641
642 static void Test P((int n));
643 static char *trialSound;
644
645 static char *soundNames[] = {
646         N_("No Sound"),
647         N_("Default Beep"),
648         N_("Above WAV File"),
649         N_("Car Horn"),
650         N_("Cymbal"),
651         N_("Ding"),
652         N_("Gong"),
653         N_("Laser"),
654         N_("Penalty"),
655         N_("Phone"),
656         N_("Pop"),
657         N_("Slap"),
658         N_("Wood Thunk"),
659         NULL,
660         N_("User File")
661 };
662
663 static char *soundFiles[] = { // sound files corresponding to above names
664         "",
665         "$",
666         NULL, // kludge alert: as first thing in the dialog readout this is replaced with the user-given .WAV filename
667         "honkhonk.wav",
668         "cymbal.wav",
669         "ding1.wav",
670         "gong.wav",
671         "laser.wav",
672         "penalty.wav",
673         "phone.wav",
674         "pop2.wav",
675         "slap.wav",
676         "woodthunk.wav",
677         NULL,
678         NULL
679 };
680
681 static Option soundOptions[] = {
682 { 0, 0, 0, NULL, (void*) &appData.soundProgram, "", NULL, TextBox, N_("Sound Program:") },
683 { 0, 0, 0, NULL, (void*) &appData.soundDirectory, "", NULL, PathName, N_("Sounds Directory:") },
684 { 0, 0, 0, NULL, (void*) (soundFiles+2) /* kludge! */, ".wav", NULL, FileName, N_("User WAV File:") },
685 { 0, 0, 0, NULL, (void*) &trialSound, (char*) soundFiles, soundNames, ComboBox, N_("Try-Out Sound:") },
686 { 0, SAME_ROW, 0, NULL, (void*) &Test, NULL, NULL, Button, N_("Play") },
687 { 0, 0, 0, NULL, (void*) &appData.soundMove, (char*) soundFiles, soundNames, ComboBox, N_("Move:") },
688 { 0, 0, 0, NULL, (void*) &appData.soundIcsWin, (char*) soundFiles, soundNames, ComboBox, N_("Win:") },
689 { 0, 0, 0, NULL, (void*) &appData.soundIcsLoss, (char*) soundFiles, soundNames, ComboBox, N_("Lose:") },
690 { 0, 0, 0, NULL, (void*) &appData.soundIcsDraw, (char*) soundFiles, soundNames, ComboBox, N_("Draw:") },
691 { 0, 0, 0, NULL, (void*) &appData.soundIcsUnfinished, (char*) soundFiles, soundNames, ComboBox, N_("Unfinished:") },
692 { 0, 0, 0, NULL, (void*) &appData.soundIcsAlarm, (char*) soundFiles, soundNames, ComboBox, N_("Alarm:") },
693 { 0, 0, 0, NULL, (void*) &appData.soundShout, (char*) soundFiles, soundNames, ComboBox, N_("Shout:") },
694 { 0, 0, 0, NULL, (void*) &appData.soundSShout, (char*) soundFiles, soundNames, ComboBox, N_("S-Shout:") },
695 { 0, 0, 0, NULL, (void*) &appData.soundChannel, (char*) soundFiles, soundNames, ComboBox, N_("Channel:") },
696 { 0, 0, 0, NULL, (void*) &appData.soundChannel1, (char*) soundFiles, soundNames, ComboBox, N_("Channel 1:") },
697 { 0, 0, 0, NULL, (void*) &appData.soundTell, (char*) soundFiles, soundNames, ComboBox, N_("Tell:") },
698 { 0, 0, 0, NULL, (void*) &appData.soundKibitz, (char*) soundFiles, soundNames, ComboBox, N_("Kibitz:") },
699 { 0, 0, 0, NULL, (void*) &appData.soundChallenge, (char*) soundFiles, soundNames, ComboBox, N_("Challenge:") },
700 { 0, 0, 0, NULL, (void*) &appData.soundRequest, (char*) soundFiles, soundNames, ComboBox, N_("Request:") },
701 { 0, 0, 0, NULL, (void*) &appData.soundSeek, (char*) soundFiles, soundNames, ComboBox, N_("Seek:") },
702 { 0, SAME_ROW, 0, NULL, NULL, "", NULL, EndMark , "" }
703 };
704
705 static void
706 Test (int n)
707 {
708     GenericReadout(soundOptions, 2);
709     if(soundFiles[values[3]]) PlaySound(soundFiles[values[3]]);
710 }
711
712 void
713 SoundOptionsProc ()
714 {
715    free(soundFiles[2]);
716    soundFiles[2] = strdup("*");
717    GenericPopUp(soundOptions, _("Sound Options"), TransientDlg, BoardWindow, MODAL, 0);
718 }
719
720 //--------------------------------------------- Board Options --------------------------------------
721
722 static void DefColor P((int n));
723 static void AdjustColor P((int i));
724
725 static int
726 BoardOptionsOK (int n)
727 {
728     if(appData.overrideLineGap >= 0) lineGap = appData.overrideLineGap; else lineGap = defaultLineGap;
729     useImages = useImageSqs = 0;
730     InitDrawingParams();
731     InitDrawingSizes(-1, 0);
732     DrawPosition(True, NULL);
733     return 1;
734 }
735
736 static Option boardOptions[] = {
737 { 0,          0, 70, NULL, (void*) &appData.whitePieceColor, "", NULL, TextBox, N_("White Piece Color:") },
738 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFFCC", Button, "      " },
739 /* TRANSLATORS: R = single letter for the color red */
740 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
741 /* TRANSLATORS: G = single letter for the color green */
742 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
743 /* TRANSLATORS: B = single letter for the color blue */
744 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
745 /* TRANSLATORS: D = single letter to make a color darker */
746 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
747 { 0,          0, 70, NULL, (void*) &appData.blackPieceColor, "", NULL, TextBox, N_("Black Piece Color:") },
748 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#202020", Button, "      " },
749 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
750 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
751 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
752 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
753 { 0,          0, 70, NULL, (void*) &appData.lightSquareColor, "", NULL, TextBox, N_("Light Square Color:") },
754 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#C8C365", Button, "      " },
755 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
756 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
757 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
758 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
759 { 0,          0, 70, NULL, (void*) &appData.darkSquareColor, "", NULL, TextBox, N_("Dark Square Color:") },
760 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#77A26D", Button, "      " },
761 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
762 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
763 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
764 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
765 { 0,          0, 70, NULL, (void*) &appData.highlightSquareColor, "", NULL, TextBox, N_("Highlight Color:") },
766 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFF00", Button, "      " },
767 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
768 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
769 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
770 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
771 { 0,          0, 70, NULL, (void*) &appData.premoveHighlightColor, "", NULL, TextBox, N_("Premove Highlight Color:") },
772 { 1000, SAME_ROW, 0, NULL, (void*) &DefColor, NULL, (char**) "#FF0000", Button, "      " },
773 {    1, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
774 {    2, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
775 {    3, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
776 {    4, SAME_ROW, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
777 { 0, 0, 0, NULL, (void*) &appData.upsideDown, "", NULL, CheckBox, N_("Flip Pieces Shogi Style        (Colored buttons restore default)") },
778 //{ 0, 0, 0, NULL, (void*) &appData.allWhite, "", NULL, CheckBox, N_("Use Outline Pieces for Black") },
779 { 0, 0, 0, NULL, (void*) &appData.monoMode, "", NULL, CheckBox, N_("Mono Mode") },
780 { 0,-1, 5, NULL, (void*) &appData.overrideLineGap, "", NULL, Spin, N_("Line Gap ( -1 = default for board size):") },
781 { 0, 0, 0, NULL, (void*) &appData.useBitmaps, "", NULL, CheckBox, N_("Use Board Textures") },
782 { 0, 0, 0, NULL, (void*) &appData.liteBackTextureFile, ".xpm", NULL, FileName, N_("Light-Squares Texture File:") },
783 { 0, 0, 0, NULL, (void*) &appData.darkBackTextureFile, ".xpm", NULL, FileName, N_("Dark-Squares Texture File:") },
784 { 0, 0, 0, NULL, (void*) &appData.bitmapDirectory, "", NULL, PathName, N_("Directory with Bitmap Pieces:") },
785 { 0, 0, 0, NULL, (void*) &appData.pixmapDirectory, "", NULL, PathName, N_("Directory with Pixmap Pieces:") },
786 { 0, 0, 0, NULL, (void*) &BoardOptionsOK, "", NULL, EndMark , "" }
787 };
788
789 static void
790 SetColorText (int n, char *buf)
791 {
792     SetWidgetText(&boardOptions[n-1], buf, TransientDlg);
793     SetColor(buf, &boardOptions[n]);
794 }
795
796 static void
797 DefColor (int n)
798 {
799     SetColorText(n, (char*) boardOptions[n].choice);
800 }
801
802 void
803 RefreshColor (int source, int n)
804 {
805     int col, j, r, g, b, step = 10;
806     char *s, buf[MSG_SIZ]; // color string
807     GetWidgetText(&boardOptions[source], &s);
808     if(sscanf(s, "#%x", &col) != 1) return;   // malformed
809     b = col & 0xFF; g = col & 0xFF00; r = col & 0xFF0000;
810     switch(n) {
811         case 1: r += 0x10000*step;break;
812         case 2: g += 0x100*step;  break;
813         case 3: b += step;        break;
814         case 4: r -= 0x10000*step; g -= 0x100*step; b -= step; break;
815     }
816     if(r < 0) r = 0; if(g < 0) g = 0; if(b < 0) b = 0;
817     if(r > 0xFF0000) r = 0xFF0000; if(g > 0xFF00) g = 0xFF00; if(b > 0xFF) b = 0xFF;
818     col = r | g | b;
819     snprintf(buf, MSG_SIZ, "#%06x", col);
820     for(j=1; j<7; j++) if(buf[j] >= 'a') buf[j] -= 32; // capitalize
821     SetColorText(source+1, buf);
822 }
823
824 static void
825 AdjustColor (int i)
826 {
827     int n = boardOptions[i].value;
828     RefreshColor(i-n-1, n);
829 }
830
831 void
832 BoardOptionsProc ()
833 {
834    GenericPopUp(boardOptions, _("Board Options"), TransientDlg, BoardWindow, MODAL, 0);
835 }
836
837 //-------------------------------------------- ICS Text Menu Options ------------------------------
838
839 Option textOptions[100];
840 static void PutText P((char *text, int pos));
841
842 void
843 SendString (char *p)
844 {
845     char buf[MSG_SIZ], *q;
846     if(q = strstr(p, "$input")) {
847         if(!shellUp[TextMenuDlg]) return;
848         strncpy(buf, p, MSG_SIZ);
849         strncpy(buf + (q-p), q+6, MSG_SIZ-(q-p));
850         PutText(buf, q-p);
851         return;
852     }
853     snprintf(buf, MSG_SIZ, "%s\n", p);
854     SendToICS(buf);
855 }
856
857 void
858 IcsTextProc ()
859 {
860    int i=0, j;
861    char *p, *q, *r;
862    if((p = icsTextMenuString) == NULL) return;
863    do {
864         q = r = p; while(*p && *p != ';') p++;
865         for(j=0; j<p-q; j++) textOptions[i].name[j] = *r++;
866         textOptions[i].name[j++] = 0;
867         if(!*p) break;
868         if(*++p == '\n') p++; // optional linefeed after button-text terminating semicolon
869         q = p;
870         textOptions[i].choice = (char**) (r = textOptions[i].name + j);
871         while(*p && (*p != ';' || p[1] != '\n')) textOptions[i].name[j++] = *p++;
872         textOptions[i].name[j++] = 0;
873         if(*p) p += 2;
874         textOptions[i].max = 135;
875         textOptions[i].min = i&1;
876         textOptions[i].handle = NULL;
877         textOptions[i].target = &SendText;
878         textOptions[i].textValue = strstr(r, "$input") ? "#80FF80" : strstr(r, "$name") ? "#FF8080" : "#FFFFFF";
879         textOptions[i].type = Button;
880    } while(++i < 99 && *p);
881    if(i == 0) return;
882    textOptions[i].type = EndMark;
883    textOptions[i].target = NULL;
884    textOptions[i].min = 2;
885    MarkMenu("ICStex", TextMenuDlg);
886    GenericPopUp(textOptions, _("ICS text menu"), TextMenuDlg, BoardWindow, NONMODAL, 1);
887 }
888
889 //---------------------------------------------------- Edit Comment -----------------------------------
890
891 static char *commentText;
892 static int commentIndex;
893 static void ClearComment P((int n));
894 static void SaveChanges P((int n));
895
896 static int
897 NewComCallback (int n)
898 {
899     ReplaceComment(commentIndex, commentText);
900     return 1;
901 }
902
903 Option commentOptions[] = {
904 { 200, T_VSCRL | T_FILL | T_WRAP | T_TOP, 250, NULL, (void*) &commentText, "", NULL, TextBox, "" },
905 { 0,     0,     50, NULL, (void*) &ClearComment, NULL, NULL, Button, N_("clear") },
906 { 0, SAME_ROW, 100, NULL, (void*) &SaveChanges, NULL, NULL, Button, N_("save changes") },
907 { 0, SAME_ROW,  0,  NULL, (void*) &NewComCallback, "", NULL, EndMark , "" }
908 };
909
910 static void
911 SaveChanges (int n)
912 {
913     GenericReadout(commentOptions, 0);
914     ReplaceComment(commentIndex, commentText);
915 }
916
917 static void
918 ClearComment (int n)
919 {
920     SetWidgetText(&commentOptions[0], "", CommentDlg);
921 }
922
923 void
924 NewCommentPopup (char *title, char *text, int index)
925 {
926     if(DialogExists(CommentDlg)) { // if already exists, alter title and content
927         SetDialogTitle(CommentDlg, title);
928         SetWidgetText(&commentOptions[0], text, CommentDlg);
929     }
930     if(commentText) free(commentText); commentText = strdup(text);
931     commentIndex = index;
932     MarkMenu("Show Comments", CommentDlg);
933     if(GenericPopUp(commentOptions, title, CommentDlg, BoardWindow, NONMODAL, 1))
934         AddHandler(&commentOptions[0], 1);
935 }
936
937 void
938 EditCommentProc ()
939 {
940     int j;
941     if (PopDown(CommentDlg)) { // popdown succesful
942         MarkMenuItem("Edit Comment", False);
943         MarkMenuItem("Show Comments", False);
944     } else // was not up
945         EditCommentEvent();
946 }
947
948 //------------------------------------------------------ Edit Tags ----------------------------------
949
950 static void changeTags P((int n));
951 static char *tagsText;
952
953 static int
954 NewTagsCallback (int n)
955 {
956     ReplaceTags(tagsText, &gameInfo);
957     return 1;
958 }
959
960 static Option tagsOptions[] = {
961 {   0,   0,   0, NULL, NULL, NULL, NULL, Label,  NULL },
962 { 200, T_VSCRL | T_FILL | T_WRAP | T_TOP, 200, NULL, (void*) &tagsText, "", NULL, TextBox, "" },
963 {   0,   0, 100, NULL, (void*) &changeTags, NULL, NULL, Button, N_("save changes") },
964 { 0,SAME_ROW, 0, NULL, (void*) &NewTagsCallback, "", NULL, EndMark , "" }
965 };
966
967 static void
968 changeTags (int n)
969 {
970     GenericReadout(tagsOptions, 1);
971     if(bookUp) SaveToBook(tagsText); else
972     ReplaceTags(tagsText, &gameInfo);
973 }
974
975 void
976 NewTagsPopup (char *text, char *msg)
977 {
978     char *title = bookUp ? _("Edit book") : _("Tags");
979
980     if(DialogExists(TagsDlg)) { // if already exists, alter title and content
981         SetWidgetText(&tagsOptions[1], text, TagsDlg);
982         SetDialogTitle(TagsDlg, title);
983     }
984     if(tagsText) free(tagsText); tagsText = strdup(text);
985     tagsOptions[0].name = msg;
986     MarkMenu("Show Tags", TagsDlg);
987     GenericPopUp(tagsOptions, title, TagsDlg, BoardWindow, NONMODAL, 1);
988 }
989
990 //---------------------------------------------- ICS Input Box ----------------------------------
991
992 char *icsText;
993
994 // [HGM] code borrowed from winboard.c (which should thus go to backend.c!)
995 #define HISTORY_SIZE 64
996 static char *history[HISTORY_SIZE];
997 static int histIn = 0, histP = 0;
998
999 static void
1000 SaveInHistory (char *cmd)
1001 {
1002   if (history[histIn] != NULL) {
1003     free(history[histIn]);
1004     history[histIn] = NULL;
1005   }
1006   if (*cmd == NULLCHAR) return;
1007   history[histIn] = StrSave(cmd);
1008   histIn = (histIn + 1) % HISTORY_SIZE;
1009   if (history[histIn] != NULL) {
1010     free(history[histIn]);
1011     history[histIn] = NULL;
1012   }
1013   histP = histIn;
1014 }
1015
1016 static char *
1017 PrevInHistory (char *cmd)
1018 {
1019   int newhp;
1020   if (histP == histIn) {
1021     if (history[histIn] != NULL) free(history[histIn]);
1022     history[histIn] = StrSave(cmd);
1023   }
1024   newhp = (histP - 1 + HISTORY_SIZE) % HISTORY_SIZE;
1025   if (newhp == histIn || history[newhp] == NULL) return NULL;
1026   histP = newhp;
1027   return history[histP];
1028 }
1029
1030 static char *
1031 NextInHistory ()
1032 {
1033   if (histP == histIn) return NULL;
1034   histP = (histP + 1) % HISTORY_SIZE;
1035   return history[histP];   
1036 }
1037 // end of borrowed code
1038
1039 Option boxOptions[] = {
1040 {  30,  0,  400, NULL, (void*) &icsText, "", NULL, TextBox, "" },
1041 {  0,SAME_ROW | NO_OK, 0, NULL, NULL, "", NULL, EndMark , "" }
1042 };
1043
1044 void
1045 ICSInputSendText ()
1046 {
1047     char *val;
1048
1049     GetWidgetText(&boxOptions[0], &val);
1050     SaveInHistory(val);
1051     SendMultiLineToICS(val);
1052     SetWidgetText(&boxOptions[0], val, InputBoxDlg);
1053 }
1054
1055 void
1056 IcsKey (int n)
1057 {   // [HGM] input: let up-arrow recall previous line from history
1058     char *val;
1059
1060     if (!shellUp[InputBoxDlg]) return;
1061     switch(n) {
1062       case 0:
1063         ICSInputSendText();
1064         return;
1065       case 1:
1066         GetWidgetText(&boxOptions[0], &val);
1067         val = PrevInHistory(val);
1068         break;
1069       case -1:
1070         val = NextInHistory();
1071     }
1072     SetWidgetText(&boxOptions[0], val ? val : "", InputBoxDlg);
1073 }
1074
1075 static void
1076 PutText (char *text, int pos)
1077 {
1078     char buf[MSG_SIZ], *p;
1079
1080     if(strstr(text, "$add ") == text) {
1081         GetWidgetText(&boxOptions[0], &p);
1082         snprintf(buf, MSG_SIZ, "%s%s", p, text+5); text = buf;
1083         pos += strlen(p) - 5;
1084     }
1085     SetWidgetText(&boxOptions[0], text, TextMenuDlg);
1086     SetInsertPos(&boxOptions[0], pos);
1087 }
1088
1089 void
1090 ICSInputBoxPopUp ()
1091 {
1092     MarkMenu("ICS Input Box", InputBoxDlg);
1093     if(GenericPopUp(boxOptions, _("ICS input box"), InputBoxDlg, BoardWindow, NONMODAL, 0))
1094         AddHandler(&boxOptions[0], 3);
1095 }
1096
1097 void
1098 IcsInputBoxProc ()
1099 {
1100     if (!PopDown(InputBoxDlg)) ICSInputBoxPopUp();
1101 }
1102
1103 //--------------------------------------------- Move Type In ------------------------------------------
1104
1105 static int TypeInOK P((int n));
1106
1107 Option typeOptions[] = {
1108 { 30,  0,            400, NULL, (void*) &icsText, "", NULL, TextBox, "" },
1109 { 0, SAME_ROW | NO_OK, 0, NULL, (void*) &TypeInOK, "", NULL, EndMark , "" }
1110 };
1111
1112 static int
1113 TypeInOK (int n)
1114 {
1115     TypeInDoneEvent(icsText);
1116     return TRUE;
1117 }
1118
1119 void
1120 PopUpMoveDialog (char firstchar)
1121 {
1122     static char buf[2];
1123     buf[0] = firstchar; ASSIGN(icsText, buf);
1124     if(GenericPopUp(typeOptions, _("Type a move"), TransientDlg, BoardWindow, MODAL, 0))
1125         AddHandler(&typeOptions[0], 2);
1126 }
1127
1128 void
1129 BoxAutoPopUp (char *buf)
1130 {
1131         if(appData.icsActive) { // text typed to board in ICS mode: divert to ICS input box
1132             if(DialogExists(InputBoxDlg)) { // box already exists: append to current contents
1133                 char *p, newText[MSG_SIZ];
1134                 GetWidgetText(&boxOptions[0], &p);
1135                 snprintf(newText, MSG_SIZ, "%s%c", p, *buf);
1136                 SetWidgetText(&boxOptions[0], newText, InputBoxDlg);
1137                 if(shellUp[InputBoxDlg]) HardSetFocus (&boxOptions[0]); //why???
1138             } else icsText = buf; // box did not exist: make sure it pops up with char in it
1139             ICSInputBoxPopUp();
1140         } else PopUpMoveDialog(*buf);
1141 }
1142
1143 //------------------------------------------ Engine Settings ------------------------------------
1144
1145 void
1146 SettingsPopUp (ChessProgramState *cps)
1147 {
1148    currentCps = cps;
1149    GenericPopUp(cps->option, _("Engine Settings"), TransientDlg, BoardWindow, MODAL, 0);
1150 }
1151
1152 void
1153 FirstSettingsProc ()
1154 {
1155     SettingsPopUp(&first);
1156 }
1157
1158 void
1159 SecondSettingsProc ()
1160 {
1161    if(WaitForEngine(&second, SettingsMenuIfReady)) return;
1162    SettingsPopUp(&second);
1163 }
1164
1165 //----------------------------------------------- Load Engine --------------------------------------
1166
1167 char *engineDir, *engineLine, *nickName, *params;
1168 Boolean isUCI, hasBook, storeVariant, v1, addToList, useNick;
1169 static char *engineNr[] = { N_("First Engine"), N_("Second Engine"), NULL };
1170
1171 static int
1172 InstallOK (int n)
1173 {
1174     PopDown(TransientDlg); // early popdown, to allow FreezeUI to instate grab
1175     if(engineChoice[0] == engineNr[0][0])  Load(&first, 0); else Load(&second, 1);
1176     return FALSE; // no double PopDown!
1177 }
1178
1179 static Option installOptions[] = {
1180 {   0,  NO_GETTEXT, 0, NULL, (void*) &engineLine, (char*) engineList, engineMnemonic, ComboBox, N_("Select engine from list:") },
1181 {   0,  LR,   0, NULL, NULL, NULL, NULL, Label, N_("or specify one below:") },
1182 {   0,  0,    0, NULL, (void*) &nickName, NULL, NULL, TextBox, N_("Nickname (optional):") },
1183 {   0,  0,    0, NULL, (void*) &useNick, NULL, NULL, CheckBox, N_("Use nickname in PGN player tags of engine-engine games") },
1184 {   0,  0,    0, NULL, (void*) &engineDir, NULL, NULL, PathName, N_("Engine Directory:") },
1185 {   0,  0,    0, NULL, (void*) &engineName, NULL, NULL, FileName, N_("Engine Command:") },
1186 {   0,  LR,   0, NULL, NULL, NULL, NULL, Label, N_("(Directory will be derived from engine path when empty)") },
1187 {   0,  0,    0, NULL, (void*) &isUCI, NULL, NULL, CheckBox, N_("UCI") },
1188 {   0,  0,    0, NULL, (void*) &v1, NULL, NULL, CheckBox, N_("WB protocol v1 (do not wait for engine features)") },
1189 {   0,  0,    0, NULL, (void*) &hasBook, NULL, NULL, CheckBox, N_("Must not use GUI book") },
1190 {   0,  0,    0, NULL, (void*) &addToList, NULL, NULL, CheckBox, N_("Add this engine to the list") },
1191 {   0,  0,    0, NULL, (void*) &storeVariant, NULL, NULL, CheckBox, N_("Force current variant with this engine") },
1192 {   0,  0,    0, NULL, (void*) &engineChoice, (char*) engineNr, engineNr, ComboBox, N_("Load mentioned engine as") },
1193 { 0,SAME_ROW, 0, NULL, (void*) &InstallOK, "", NULL, EndMark , "" }
1194 };
1195
1196 void
1197 LoadEngineProc ()
1198 {
1199    isUCI = storeVariant = v1 = useNick = False; addToList = hasBook = True; // defaults
1200    if(engineChoice) free(engineChoice); engineChoice = strdup(engineNr[0]);
1201    if(engineLine)   free(engineLine);   engineLine = strdup("");
1202    if(engineDir)    free(engineDir);    engineDir = strdup("");
1203    if(nickName)     free(nickName);     nickName = strdup("");
1204    if(params)       free(params);       params = strdup("");
1205    NamesToList(firstChessProgramNames, engineList, engineMnemonic, "all");
1206    GenericPopUp(installOptions, _("Load engine"), TransientDlg, BoardWindow, MODAL, 0);
1207 }
1208
1209 //----------------------------------------------------- Edit Book -----------------------------------------
1210
1211 void
1212 EditBookProc ()
1213 {
1214     EditBookEvent();
1215 }
1216
1217 //--------------------------------------------------- New Shuffle Game ------------------------------
1218
1219 static void SetRandom P((int n));
1220
1221 static int
1222 ShuffleOK (int n)
1223 {
1224     ResetGameEvent();
1225     return 1;
1226 }
1227
1228 static Option shuffleOptions[] = {
1229   {   0,  0,   50, NULL, (void*) &shuffleOpenings, NULL, NULL, CheckBox, N_("shuffle") },
1230   { 0,-1,2000000000, NULL, (void*) &appData.defaultFrcPosition, "", NULL, Spin, N_("Start-position number:") },
1231   {   0,  0,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, N_("randomize") },
1232   {   0,  SAME_ROW,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, N_("pick fixed") },
1233   { 0,SAME_ROW, 0, NULL, (void*) &ShuffleOK, "", NULL, EndMark , "" }
1234 };
1235
1236 static void
1237 SetRandom (int n)
1238 {
1239     int r = n==2 ? -1 : random() & (1<<30)-1;
1240     char buf[MSG_SIZ];
1241     snprintf(buf, MSG_SIZ,  "%d", r);
1242     SetWidgetText(&shuffleOptions[1], buf, TransientDlg);
1243     SetWidgetState(&shuffleOptions[0], True);
1244 }
1245
1246 void
1247 ShuffleMenuProc ()
1248 {
1249     GenericPopUp(shuffleOptions, _("New Shuffle Game"), TransientDlg, BoardWindow, MODAL, 0);
1250 }
1251
1252 //------------------------------------------------------ Time Control -----------------------------------
1253
1254 static int TcOK P((int n));
1255 int tmpMoves, tmpTc, tmpInc, tmpOdds1, tmpOdds2, tcType;
1256
1257 static void
1258 ShowTC (int n)
1259 {
1260 }
1261
1262 static void SetTcType P((int n));
1263
1264 static char *
1265 Value (int n)
1266 {
1267         static char buf[MSG_SIZ];
1268         snprintf(buf, MSG_SIZ, "%d", n);
1269         return buf;
1270 }
1271
1272 static Option tcOptions[] = {
1273 {   0,  0,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("classical") },
1274 {   0,SAME_ROW,0,NULL, (void*) &SetTcType, NULL, NULL, Button, N_("incremental") },
1275 {   0,SAME_ROW,0,NULL, (void*) &SetTcType, NULL, NULL, Button, N_("fixed max") },
1276 {   0,  0,  200, NULL, (void*) &tmpMoves, NULL, NULL, Spin, N_("Moves per session:") },
1277 {   0,  0,10000, NULL, (void*) &tmpTc,    NULL, NULL, Spin, N_("Initial time (min):") },
1278 {   0, 0, 10000, NULL, (void*) &tmpInc,   NULL, NULL, Spin, N_("Increment or max (sec/move):") },
1279 {   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("Time-Odds factors:") },
1280 {   0,  1, 1000, NULL, (void*) &tmpOdds1, NULL, NULL, Spin, N_("Engine #1") },
1281 {   0,  1, 1000, NULL, (void*) &tmpOdds2, NULL, NULL, Spin, N_("Engine #2 / Human") },
1282 {   0,  0,    0, NULL, (void*) &TcOK, "", NULL, EndMark , "" }
1283 };
1284
1285 static int
1286 TcOK (int n)
1287 {
1288     char *tc;
1289     if(tcType == 0 && tmpMoves <= 0) return 0;
1290     if(tcType == 2 && tmpInc <= 0) return 0;
1291     GetWidgetText(&tcOptions[4], &tc); // get original text, in case it is min:sec
1292     searchTime = 0;
1293     switch(tcType) {
1294       case 0:
1295         if(!ParseTimeControl(tc, -1, tmpMoves)) return 0;
1296         appData.movesPerSession = tmpMoves;
1297         ASSIGN(appData.timeControl, tc);
1298         appData.timeIncrement = -1;
1299         break;
1300       case 1:
1301         if(!ParseTimeControl(tc, tmpInc, 0)) return 0;
1302         ASSIGN(appData.timeControl, tc);
1303         appData.timeIncrement = tmpInc;
1304         break;
1305       case 2:
1306         searchTime = tmpInc;
1307     }
1308     appData.firstTimeOdds = first.timeOdds = tmpOdds1;
1309     appData.secondTimeOdds = second.timeOdds = tmpOdds2;
1310     Reset(True, True);
1311     return 1;
1312 }
1313
1314 static void
1315 SetTcType (int n)
1316 {
1317     switch(tcType = n) {
1318       case 0:
1319         SetWidgetText(&tcOptions[3], Value(tmpMoves), TransientDlg);
1320         SetWidgetText(&tcOptions[4], Value(tmpTc), TransientDlg);
1321         SetWidgetText(&tcOptions[5], _("Unused"), TransientDlg);
1322         break;
1323       case 1:
1324         SetWidgetText(&tcOptions[3], _("Unused"), TransientDlg);
1325         SetWidgetText(&tcOptions[4], Value(tmpTc), TransientDlg);
1326         SetWidgetText(&tcOptions[5], Value(tmpInc), TransientDlg);
1327         break;
1328       case 2:
1329         SetWidgetText(&tcOptions[3], _("Unused"), TransientDlg);
1330         SetWidgetText(&tcOptions[4], _("Unused"), TransientDlg);
1331         SetWidgetText(&tcOptions[5], Value(tmpInc), TransientDlg);
1332     }
1333 }
1334
1335 void
1336 TimeControlProc ()
1337 {
1338    tmpMoves = appData.movesPerSession;
1339    tmpInc = appData.timeIncrement; if(tmpInc < 0) tmpInc = 0;
1340    tmpOdds1 = tmpOdds2 = 1; tcType = 0;
1341    tmpTc = atoi(appData.timeControl);
1342    GenericPopUp(tcOptions, _("Time Control"), TransientDlg, BoardWindow, MODAL, 0);
1343 }
1344
1345 //------------------------------- Ask Question -----------------------------------------
1346
1347 int SendReply P((int n));
1348 char pendingReplyPrefix[MSG_SIZ];
1349 ProcRef pendingReplyPR;
1350 char *answer;
1351
1352 Option askOptions[] = {
1353 { 0, 0, 0, NULL, NULL, NULL, NULL, Label,  NULL },
1354 { 0, 0, 0, NULL, (void*) &answer, "", NULL, TextBox, "" },
1355 { 0, 0, 0, NULL, (void*) &SendReply, "", NULL, EndMark , "" }
1356 };
1357
1358 int
1359 SendReply (int n)
1360 {
1361     char buf[MSG_SIZ];
1362     int err;
1363     char *reply=answer;
1364 //    GetWidgetText(&askOptions[1], &reply);
1365     safeStrCpy(buf, pendingReplyPrefix, sizeof(buf)/sizeof(buf[0]) );
1366     if (*buf) strncat(buf, " ", MSG_SIZ - strlen(buf) - 1);
1367     strncat(buf, reply, MSG_SIZ - strlen(buf) - 1);
1368     strncat(buf, "\n",  MSG_SIZ - strlen(buf) - 1);
1369     OutputToProcess(pendingReplyPR, buf, strlen(buf), &err); // does not go into debug file??? => bug
1370     if (err) DisplayFatalError(_("Error writing to chess program"), err, 0);
1371     return TRUE;
1372 }
1373
1374 void
1375 AskQuestion (char *title, char *question, char *replyPrefix, ProcRef pr)
1376 {
1377     safeStrCpy(pendingReplyPrefix, replyPrefix, sizeof(pendingReplyPrefix)/sizeof(pendingReplyPrefix[0]) );
1378     pendingReplyPR = pr;
1379     ASSIGN(answer, "");
1380     askOptions[0].name = question;
1381     if(GenericPopUp(askOptions, title, AskDlg, BoardWindow, MODAL, 0))
1382         AddHandler(&askOptions[1], 2);
1383 }
1384
1385 //---------------------------- Promotion Popup --------------------------------------
1386
1387 static int count;
1388
1389 static void PromoPick P((int n));
1390
1391 static Option promoOptions[] = {
1392 {   0,         0,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1393 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1394 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1395 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1396 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1397 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1398 {   0,  SAME_ROW,    0, NULL, (void*) &PromoPick, NULL, NULL, Button, "" },
1399 {   0, SAME_ROW | NO_OK, 0, NULL, NULL, "", NULL, EndMark , "" }
1400 };
1401
1402 static void
1403 PromoPick (int n)
1404 {
1405     int promoChar = promoOptions[n+count].value;
1406
1407     PopDown(PromoDlg);
1408
1409     if (promoChar == 0) fromX = -1;
1410     if (fromX == -1) return;
1411
1412     if (! promoChar) {
1413         fromX = fromY = -1;
1414         ClearHighlights();
1415         return;
1416     }
1417     UserMoveEvent(fromX, fromY, toX, toY, promoChar);
1418
1419     if (!appData.highlightLastMove || gotPremove) ClearHighlights();
1420     if (gotPremove) SetPremoveHighlights(fromX, fromY, toX, toY);
1421     fromX = fromY = -1;
1422 }
1423
1424 static void
1425 SetPromo (char *name, int nr, char promoChar)
1426 {
1427     safeStrCpy(promoOptions[nr].name, name, MSG_SIZ);
1428     promoOptions[nr].value = promoChar;
1429 }
1430
1431 void
1432 PromotionPopUp ()
1433 { // choice depends on variant: prepare dialog acordingly
1434   count = 7;
1435   SetPromo(_("Cancel"), --count, 0); // Beware: GenericPopUp cannot handle user buttons named "cancel" (lowe case)!
1436   if(gameInfo.variant != VariantShogi) {
1437     if (!appData.testLegality || gameInfo.variant == VariantSuicide ||
1438         gameInfo.variant == VariantSpartan && !WhiteOnMove(currentMove) ||
1439         gameInfo.variant == VariantGiveaway) {
1440       SetPromo(_("King"), --count, 'k');
1441     }
1442     if(gameInfo.variant == VariantSpartan && !WhiteOnMove(currentMove)) {
1443       SetPromo(_("Captain"), --count, 'c');
1444       SetPromo(_("Lieutenant"), --count, 'l');
1445       SetPromo(_("General"), --count, 'g');
1446       SetPromo(_("Warlord"), --count, 'w');
1447     } else {
1448       SetPromo(_("Knight"), --count, 'n');
1449       SetPromo(_("Bishop"), --count, 'b');
1450       SetPromo(_("Rook"), --count, 'r');
1451       if(gameInfo.variant == VariantCapablanca ||
1452          gameInfo.variant == VariantGothic ||
1453          gameInfo.variant == VariantCapaRandom) {
1454         SetPromo(_("Archbishop"), --count, 'a');
1455         SetPromo(_("Chancellor"), --count, 'c');
1456       }
1457       SetPromo(_("Queen"), --count, 'q');
1458     }
1459   } else // [HGM] shogi
1460   {
1461       SetPromo(_("Defer"), --count, '=');
1462       SetPromo(_("Promote"), --count, '+');
1463   }
1464   GenericPopUp(promoOptions + count, "Promotion", PromoDlg, BoardWindow, NONMODAL, 0);
1465 }
1466
1467 //---------------------------- Chat Windows ----------------------------------------------
1468
1469 void
1470 OutputChatMessage (int partner, char *mess)
1471 {
1472     return; // dummy
1473 }
1474
1475 //----------------------------- Error popup in various uses -----------------------------
1476
1477 /*
1478  * [HGM] Note:
1479  * XBoard has always had some pathologic behavior with multiple simultaneous error popups,
1480  * (which can occur even for modal popups when asynchrounous events, e.g. caused by engine, request a popup),
1481  * and this new implementation reproduces that as well:
1482  * Only the shell of the last instance is remembered in shells[ErrorDlg] (which replaces errorShell),
1483  * so that PopDowns ordered from the code always refer to that instance, and once that is down,
1484  * have no clue as to how to reach the others. For the Delete Window button calling PopDown this
1485  * has now been repaired, as the action routine assigned to it gets the shell passed as argument.
1486  */
1487
1488 int errorUp = False;
1489
1490 void
1491 ErrorPopDown ()
1492 {
1493     if (!errorUp) return;
1494     dialogError = errorUp = False;
1495     PopDown(ErrorDlg); PopDown(FatalDlg); // on explicit request we pop down any error dialog
1496     if (errorExitStatus != -1) ExitEvent(errorExitStatus);
1497 }
1498
1499 static int
1500 ErrorOK (int n)
1501 {
1502     dialogError = errorUp = False;
1503     PopDown(n == 1 ? FatalDlg : ErrorDlg); // kludge: non-modal dialogs have one less (dummy) option
1504     if (errorExitStatus != -1) ExitEvent(errorExitStatus);
1505     return FALSE; // prevent second Popdown !
1506 }
1507
1508 static Option errorOptions[] = {
1509 {   0,  0,    0, NULL, NULL, NULL, NULL, Label,  NULL }, // dummy option: will never be displayed
1510 {   0,  0,    0, NULL, NULL, NULL, NULL, Label,  NULL }, // textValue field will be set before popup
1511 { 0,NO_CANCEL,0, NULL, (void*) &ErrorOK, "", NULL, EndMark , "" }
1512 };
1513
1514 void
1515 ErrorPopUp (char *title, char *label, int modal)
1516 {
1517     errorUp = True;
1518     errorOptions[1].name = label;
1519     if(dialogError = shellUp[TransientDlg]) 
1520         GenericPopUp(errorOptions+1, title, FatalDlg, TransientDlg, MODAL, 0); // pop up as daughter of the transient dialog
1521     else
1522         GenericPopUp(errorOptions+modal, title, modal ? FatalDlg: ErrorDlg, BoardWindow, modal, 0); // kludge: option start address indicates modality
1523 }
1524
1525 void
1526 DisplayError (String message, int error)
1527 {
1528     char buf[MSG_SIZ];
1529
1530     if (error == 0) {
1531         if (appData.debugMode || appData.matchMode) {
1532             fprintf(stderr, "%s: %s\n", programName, message);
1533         }
1534     } else {
1535         if (appData.debugMode || appData.matchMode) {
1536             fprintf(stderr, "%s: %s: %s\n",
1537                     programName, message, strerror(error));
1538         }
1539         snprintf(buf, sizeof(buf), "%s: %s", message, strerror(error));
1540         message = buf;
1541     }
1542     ErrorPopUp(_("Error"), message, FALSE);
1543 }
1544
1545
1546 void
1547 DisplayMoveError (String message)
1548 {
1549     fromX = fromY = -1;
1550     ClearHighlights();
1551     DrawPosition(FALSE, NULL);
1552     if (appData.debugMode || appData.matchMode) {
1553         fprintf(stderr, "%s: %s\n", programName, message);
1554     }
1555     if (appData.popupMoveErrors) {
1556         ErrorPopUp(_("Error"), message, FALSE);
1557     } else {
1558         DisplayMessage(message, "");
1559     }
1560 }
1561
1562
1563 void
1564 DisplayFatalError (String message, int error, int status)
1565 {
1566     char buf[MSG_SIZ];
1567
1568     errorExitStatus = status;
1569     if (error == 0) {
1570         fprintf(stderr, "%s: %s\n", programName, message);
1571     } else {
1572         fprintf(stderr, "%s: %s: %s\n",
1573                 programName, message, strerror(error));
1574         snprintf(buf, sizeof(buf), "%s: %s", message, strerror(error));
1575         message = buf;
1576     }
1577     if (appData.popupExitMessage && boardWidget && XtIsRealized(boardWidget)) {
1578       ErrorPopUp(status ? _("Fatal Error") : _("Exiting"), message, TRUE);
1579     } else {
1580       ExitEvent(status);
1581     }
1582 }
1583
1584 void
1585 DisplayInformation (String message)
1586 {
1587     ErrorPopDown();
1588     ErrorPopUp(_("Information"), message, TRUE);
1589 }
1590
1591 void
1592 DisplayNote (String message)
1593 {
1594     ErrorPopDown();
1595     ErrorPopUp(_("Note"), message, FALSE);
1596 }
1597
1598 void
1599 DisplayTitle (char *text)
1600 {
1601     char title[MSG_SIZ];
1602     char icon[MSG_SIZ];
1603
1604     if (text == NULL) text = "";
1605
1606     if (*text != NULLCHAR) {
1607       safeStrCpy(icon, text, sizeof(icon)/sizeof(icon[0]) );
1608       safeStrCpy(title, text, sizeof(title)/sizeof(title[0]) );
1609     } else if (appData.icsActive) {
1610         snprintf(icon, sizeof(icon), "%s", appData.icsHost);
1611         snprintf(title, sizeof(title), "%s: %s", programName, appData.icsHost);
1612     } else if (appData.cmailGameName[0] != NULLCHAR) {
1613         snprintf(icon, sizeof(icon), "%s", "CMail");
1614         snprintf(title,sizeof(title), "%s: %s", programName, "CMail");
1615 #ifdef GOTHIC
1616     // [HGM] license: This stuff should really be done in back-end, but WinBoard already had a pop-up for it
1617     } else if (gameInfo.variant == VariantGothic) {
1618       safeStrCpy(icon,  programName, sizeof(icon)/sizeof(icon[0]) );
1619       safeStrCpy(title, GOTHIC,     sizeof(title)/sizeof(title[0]) );
1620 #endif
1621 #ifdef FALCON
1622     } else if (gameInfo.variant == VariantFalcon) {
1623       safeStrCpy(icon, programName, sizeof(icon)/sizeof(icon[0]) );
1624       safeStrCpy(title, FALCON, sizeof(title)/sizeof(title[0]) );
1625 #endif
1626     } else if (appData.noChessProgram) {
1627       safeStrCpy(icon, programName, sizeof(icon)/sizeof(icon[0]) );
1628       safeStrCpy(title, programName, sizeof(title)/sizeof(title[0]) );
1629     } else {
1630       safeStrCpy(icon, first.tidy, sizeof(icon)/sizeof(icon[0]) );
1631         snprintf(title,sizeof(title), "%s: %s", programName, first.tidy);
1632     }
1633     SetWindowTitle(text, title, icon);
1634 }
1635
1636