Revert "fixed segfault in xengineoutput", fixed in the backend now (from HGM)
[xboard.git] / xoptions.c
1 /*
2  * xoptions.c -- Move list window, part of X front end for XBoard
3  *
4  * Copyright 2000, 2009, 2010, 2011 Free Software Foundation, Inc.
5  * ------------------------------------------------------------------------
6  *
7  * GNU XBoard is free software: you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation, either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * GNU XBoard is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15  * General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see http://www.gnu.org/licenses/.  *
19  *
20  *------------------------------------------------------------------------
21  ** See the file ChangeLog for a revision history.  */
22
23 // [HGM] this file is the counterpart of woptions.c, containing xboard popup menus
24 // similar to those of WinBoard, to set the most common options interactively.
25
26 #include "config.h"
27
28 #include <stdio.h>
29 #include <ctype.h>
30 #include <errno.h>
31 #include <sys/types.h>
32
33 #if STDC_HEADERS
34 # include <stdlib.h>
35 # include <string.h>
36 #else /* not STDC_HEADERS */
37 extern char *getenv();
38 # if HAVE_STRING_H
39 #  include <string.h>
40 # else /* not HAVE_STRING_H */
41 #  include <strings.h>
42 # endif /* not HAVE_STRING_H */
43 #endif /* not STDC_HEADERS */
44
45 #if HAVE_UNISTD_H
46 # include <unistd.h>
47 #endif
48 #include <stdint.h>
49
50 #include <X11/Intrinsic.h>
51 #include <X11/StringDefs.h>
52 #include <X11/Shell.h>
53 #include <X11/Xatom.h>
54 #include <X11/Xaw/Dialog.h>
55 #include <X11/Xaw/Form.h>
56 #include <X11/Xaw/List.h>
57 #include <X11/Xaw/Label.h>
58 #include <X11/Xaw/SimpleMenu.h>
59 #include <X11/Xaw/SmeBSB.h>
60 #include <X11/Xaw/SmeLine.h>
61 #include <X11/Xaw/Box.h>
62 #include <X11/Xaw/Paned.h>
63 #include <X11/Xaw/MenuButton.h>
64 #include <X11/cursorfont.h>
65 #include <X11/Xaw/Text.h>
66 #include <X11/Xaw/AsciiText.h>
67 #include <X11/Xaw/Viewport.h>
68 #include <X11/Xaw/Toggle.h>
69
70 #include "common.h"
71 #include "backend.h"
72 #include "xboard.h"
73 #include "gettext.h"
74
75 #ifdef ENABLE_NLS
76 # define  _(s) gettext (s)
77 # define N_(s) gettext_noop (s)
78 #else
79 # define  _(s) (s)
80 # define N_(s)  s
81 #endif
82
83 // [HGM] the following code for makng menu popups was cloned from the FileNamePopUp routines
84
85 static Widget previous = NULL;
86
87 void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b)
88 {
89     Arg args[2];
90     char *s;
91     int j;
92
93     if(previous) {
94         XtSetArg(args[0], XtNdisplayCaret, False);
95         XtSetValues(previous, args, 1);
96     }
97     XtSetArg(args[0], XtNstring, &s);
98     XtGetValues(w, args, 1);
99     j = 1;
100     XtSetArg(args[0], XtNdisplayCaret, True);
101     if(!strchr(s, '\n') && strlen(s) < 80) XtSetArg(args[1], XtNinsertPosition, strlen(s)), j++;
102     XtSetValues(w, args, j);
103     XtSetKeyboardFocus((Widget) data, w);
104     previous = w;
105 }
106
107 //--------------------------- Engine-specific options menu ----------------------------------
108
109 typedef void ButtonCallback(int n);
110 typedef int OKCallback(int n);
111
112 int values[MAX_OPTIONS];
113 ChessProgramState *currentCps;
114 static Option *currentOption;
115 static Boolean browserUp;
116 ButtonCallback *comboCallback;
117
118 void GetWidgetText(Option *opt, char **buf)
119 {
120     Arg arg;
121     XtSetArg(arg, XtNstring, buf);
122     XtGetValues(opt->handle, &arg, 1);
123 }
124
125 void SetWidgetText(Option *opt, char *buf, int n)
126 {
127     Arg arg;
128     XtSetArg(arg, XtNstring, buf);
129     XtSetValues(opt->handle, &arg, 1);
130     SetFocus(opt->handle, shells[n], NULL, False);
131 }
132
133 void SetWidgetState(Option *opt, int state)
134 {
135     Arg arg;
136     XtSetArg(arg, XtNstate, state);
137     XtSetValues(opt->handle, &arg, 1);
138 }
139
140 void CheckCallback(Widget ww, XtPointer data, XEvent *event, Boolean *b)
141 {
142     Widget w = currentOption[(int)(intptr_t)data].handle;
143     Boolean s;
144     Arg args[16];
145
146     XtSetArg(args[0], XtNstate, &s);
147     XtGetValues(w, args, 1);
148     SetWidgetState(&currentOption[(int)(intptr_t)data], !s);
149 }
150
151 void SpinCallback(w, client_data, call_data)
152      Widget w;
153      XtPointer client_data, call_data;
154 {
155     String name, val;
156     Arg args[16];
157     char buf[MSG_SIZ], *p;
158     int j;
159     int data = (intptr_t) client_data;
160
161     XtSetArg(args[0], XtNlabel, &name);
162     XtGetValues(w, args, 1);
163
164     GetWidgetText(&currentOption[data], &val);
165     sscanf(val, "%d", &j);
166     if (strcmp(name, "browse") == 0) {
167         char *q=val, *r;
168         for(r = ""; *q; q++) if(*q == '.') r = q; else if(*q == '/') r = ""; // last dot after last slash
169         if(!strcmp(r, "") && !currentCps && currentOption[data].type == FileName && currentOption[data].textValue)
170                 r = currentOption[data].textValue;
171         browserUp = True;
172         if(XsraSelFile(shells[0], currentOption[data].name, NULL, NULL, "", "", r,
173                                   currentOption[data].type == PathName ? "p" : "f", NULL, &p)) {
174                 int len = strlen(p);
175                 if(len && p[len-1] == '/') p[len-1] = NULLCHAR;
176                 XtSetArg(args[0], XtNstring, p);
177                 XtSetValues(currentOption[data].handle, args, 1);
178         }
179         browserUp = False;
180         SetFocus(currentOption[data].handle, shells[0], (XEvent*) NULL, False);
181         return;
182     } else
183     if (strcmp(name, "+") == 0) {
184         if(++j > currentOption[data].max) return;
185     } else
186     if (strcmp(name, "-") == 0) {
187         if(--j < currentOption[data].min) return;
188     } else return;
189     snprintf(buf, MSG_SIZ,  "%d", j);
190     SetWidgetText(&currentOption[data], buf, 0);
191 }
192
193 void ComboSelect(w, addr, index) // callback for all combo items
194      Widget w;
195      caddr_t addr;
196      caddr_t index;
197 {
198     Arg args[16];
199     int i = ((intptr_t)addr)>>8;
200     int j = 255 & (intptr_t) addr;
201
202     values[i] = j; // store in temporary, for transfer at OK
203     XtSetArg(args[0], XtNlabel, _(((char**)currentOption[i].textValue)[j]));
204     XtSetValues(currentOption[i].handle, args, 1);
205
206     if(currentOption[i].min & 1 && !currentCps && comboCallback) (comboCallback)(i);
207 }
208
209 void CreateComboPopup(parent, name, n, mb)
210      Widget parent;
211      String name;
212      int n;
213      char *mb[];
214 {
215     int i=0, j;
216     Widget menu, entry;
217     Arg args[16];
218
219     menu = XtCreatePopupShell(name, simpleMenuWidgetClass,
220                               parent, NULL, 0);
221     j = 0;
222     XtSetArg(args[j], XtNwidth, 100);  j++;
223 //    XtSetArg(args[j], XtNright, XtChainRight);  j++;
224     while (mb[i] != NULL) {
225             XtSetArg(args[j], XtNlabel, _(mb[i]));
226             entry = XtCreateManagedWidget(mb[i], smeBSBObjectClass,
227                                           menu, args, j+1);
228             XtAddCallback(entry, XtNcallback,
229                           (XtCallbackProc) ComboSelect,
230                           (caddr_t)(intptr_t) (256*n+i));
231         i++;
232     }
233 }
234
235
236 //----------------------------Generic dialog --------------------------------------------
237
238 // cloned from Engine Settings dialog (and later merged with it)
239
240 extern WindowPlacement wpComment, wpTags, wpMoveHistory;
241 char *trialSound;
242 static int oldCores, oldPonder;
243 int MakeColors P((void));
244 void CreateGCs P((int redo));
245 void CreateAnyPieces P((void));
246 int GenericReadout P((int selected));
247 Widget shells[10];
248 Widget marked[10];
249 Boolean shellUp[10];
250 WindowPlacement *wp[10] = { NULL, &wpComment, &wpTags, NULL, NULL, NULL, NULL, &wpMoveHistory };
251 Option *dialogOptions[10];
252
253 void MarkMenu(char *item, int dlgNr)
254 {
255     Arg args[2];
256     XtSetArg(args[0], XtNleftBitmap, xMarkPixmap);
257     XtSetValues(marked[dlgNr] = XtNameToWidget(menuBarWidget, item), args, 1);
258 }
259
260 int PopDown(int n)
261 {
262     int j;
263     Arg args[10];
264     Dimension windowH, windowW; Position windowX, windowY;
265     if (!shellUp[n]) return 0;
266     if(n && wp[n]) { // remember position
267         j = 0;
268         XtSetArg(args[j], XtNx, &windowX); j++;
269         XtSetArg(args[j], XtNy, &windowY); j++;
270         XtSetArg(args[j], XtNheight, &windowH); j++;
271         XtSetArg(args[j], XtNwidth, &windowW); j++;
272         XtGetValues(shells[n], args, j);
273         wp[n]->x = windowX;
274         wp[n]->x = windowY;
275         wp[n]->width  = windowW;
276         wp[n]->height = windowH;
277     }
278     previous = NULL;
279     XtPopdown(shells[n]);
280     if(n == 0) XtDestroyWidget(shells[n]);
281     shellUp[n] = False;
282     if(marked[n]) {
283         XtSetArg(args[0], XtNleftBitmap, None);
284         XtSetValues(marked[n], args, 1);
285     }
286     if(!n) currentCps = NULL; // if an Engine Settings dialog was up, we must be popping it down now
287     return 1;
288 }
289
290 void GenericPopDown(w, event, prms, nprms)
291      Widget w;
292      XEvent *event;
293      String *prms;
294      Cardinal *nprms;
295 {
296     if(browserUp) return; // prevent closing dialog when it has an open file-browse daughter
297     PopDown(prms[0][0] - '0');
298 }
299
300 char *engineName, *engineDir, *engineChoice, *engineLine, *nickName, *params, *tfName;
301 Boolean isUCI, hasBook, storeVariant, v1, addToList, useNick;
302 extern Option installOptions[], matchOptions[];
303 char *engineNr[] = { N_("First Engine"), N_("Second Engine"), NULL };
304 char *engineList[100] = {" "}, *engineMnemonic[100] = {""};
305
306 int AppendText(Option *opt, char *s)
307 {
308     XawTextBlock t;
309     char *v;
310     int len;
311     GetWidgetText(opt, &v);
312     len = strlen(v);
313     t.ptr = s; t.firstPos = 0; t.length = strlen(s); t.format = XawFmt8Bit;
314     XawTextReplace(opt->handle, len, len, &t);
315     return len;
316 }
317
318 void AddLine(Option *opt, char *s)
319 {
320     AppendText(opt, s);
321     AppendText(opt, "\n");
322 }
323
324 void AddToTourney(int n)
325 {
326     GenericReadout(4);  // selected engine
327     AddLine(&matchOptions[3], engineChoice);
328 }
329
330 int MatchOK(int n)
331 {
332     if(appData.participants && appData.participants[0]) free(appData.participants);
333     appData.participants = strdup(engineName);
334     if(!CreateTourney(tfName)) return !appData.participants[0];
335     PopDown(0); // early popdown to prevent FreezeUI called through MatchEvent from causing XtGrab warning
336     MatchEvent(2); // start tourney
337     return 1;
338 }
339
340 Option matchOptions[] = {
341 { 0,  0,          0, NULL, (void*) &tfName, ".trn", NULL, FileName, N_("Tournament file:") },
342 { 0,  0,          0, NULL, (void*) &appData.roundSync, "", NULL, CheckBox, N_("Sync after round    (for concurrent playing of a single") },
343 { 0,  0,          0, NULL, (void*) &appData.cycleSync, "", NULL, CheckBox, N_("Sync after cycle      tourney with multiple XBoards)") },
344 { 0xD, 150,       0, NULL, (void*) &engineName, "", NULL, TextBox, "Tourney participants:" },
345 { 0,  1,          0, NULL, (void*) &engineChoice, (char*) (engineMnemonic+1), (engineMnemonic+1), ComboBox, N_("Select Engine:") },
346 { 0,  0,         10, NULL, (void*) &appData.tourneyType, "", NULL, Spin, N_("Tourney type (0 = round-robin, 1 = gauntlet):") },
347 { 0,  1, 1000000000, NULL, (void*) &appData.tourneyCycles, "", NULL, Spin, N_("Number of tourney cycles (or Swiss rounds):") },
348 { 0,  1, 1000000000, NULL, (void*) &appData.defaultMatchGames, "", NULL, Spin, N_("Default Number of Games in Match (or Pairing):") },
349 { 0,  0, 1000000000, NULL, (void*) &appData.matchPause, "", NULL, Spin, N_("Pause between Match Games (msec):") },
350 { 0,  0,          0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName, N_("Save Tourney Games on:") },
351 { 0,  0,          0, NULL, (void*) &appData.loadGameFile, ".pgn", NULL, FileName, N_("Game File with Opening Lines:") },
352 { 0, -2, 1000000000, NULL, (void*) &appData.loadGameIndex, "", NULL, Spin, N_("Game Number (-1 or -2 = Auto-Increment):") },
353 { 0,  0,          0, NULL, (void*) &appData.loadPositionFile, ".fen", NULL, FileName, N_("File with Start Positions:") },
354 { 0, -2, 1000000000, NULL, (void*) &appData.loadPositionIndex, "", NULL, Spin, N_("Position Number (-1 or -2 = Auto-Increment):") },
355 { 0,  0, 1000000000, NULL, (void*) &appData.rewindIndex, "", NULL, Spin, N_("Rewind Index after this many Games (0 = never):") },
356 { 0, 0, 0, NULL, (void*) &MatchOK, "", NULL, EndMark , "" }
357 };
358
359 int GeneralOptionsOK(int n)
360 {
361         int newPonder = appData.ponderNextMove;
362         appData.ponderNextMove = oldPonder;
363         PonderNextMoveEvent(newPonder);
364         return 1;
365 }
366
367 Option generalOptions[] = {
368 { 0,  0, 0, NULL, (void*) &appData.whitePOV, "", NULL, CheckBox, N_("Absolute Analysis Scores") },
369 { 0,  0, 0, NULL, (void*) &appData.sweepSelect, "", NULL, CheckBox, N_("Almost Always Queen (Detour Under-Promote)") },
370 { 0,  0, 0, NULL, (void*) &appData.animateDragging, "", NULL, CheckBox, N_("Animate Dragging") },
371 { 0,  0, 0, NULL, (void*) &appData.animate, "", NULL, CheckBox, N_("Animate Moving") },
372 { 0,  0, 0, NULL, (void*) &appData.autoCallFlag, "", NULL, CheckBox, N_("Auto Flag") },
373 { 0,  0, 0, NULL, (void*) &appData.autoFlipView, "", NULL, CheckBox, N_("Auto Flip View") },
374 { 0,  0, 0, NULL, (void*) &appData.blindfold, "", NULL, CheckBox, N_("Blindfold") },
375 { 0,  0, 0, NULL, (void*) &appData.dropMenu, "", NULL, CheckBox, N_("Drop Menu") },
376 { 0,  0, 0, NULL, (void*) &appData.hideThinkingFromHuman, "", NULL, CheckBox, N_("Hide Thinking from Human") },
377 { 0,  0, 0, NULL, (void*) &appData.highlightDragging, "", NULL, CheckBox, N_("Highlight Dragging (Show Move Targets)") },
378 { 0,  0, 0, NULL, (void*) &appData.highlightLastMove, "", NULL, CheckBox, N_("Highlight Last Move") },
379 { 0,  0, 0, NULL, (void*) &appData.highlightMoveWithArrow, "", NULL, CheckBox, N_("Highlight with Arrow") },
380 { 0,  0, 0, NULL, (void*) &appData.ringBellAfterMoves, "", NULL, CheckBox, N_("Move Sound") },
381 { 0,  0, 0, NULL, (void*) &appData.oneClick, "", NULL, CheckBox, N_("One-Click Moving") },
382 { 0,  0, 0, NULL, (void*) &appData.periodicUpdates, "", NULL, CheckBox, N_("Periodic Updates (in Analysis Mode)") },
383 { 0,  0, 0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
384 { 0,  0, 0, NULL, (void*) &appData.popupExitMessage, "", NULL, CheckBox, N_("Popup Exit Messages") },
385 { 0,  0, 0, NULL, (void*) &appData.popupMoveErrors, "", NULL, CheckBox, N_("Popup Move Errors") },
386 { 0,  0, 0, NULL, (void*) &appData.showEvalInMoveHistory, "", NULL, CheckBox, N_("Scores in Move List") },
387 { 0,  0, 0, NULL, (void*) &appData.showCoords, "", NULL, CheckBox, N_("Show Coordinates") },
388 { 0,  0, 0, NULL, (void*) &appData.markers, "", NULL, CheckBox, N_("Show Target Squares") },
389 { 0,  0, 0, NULL, (void*) &appData.testLegality, "", NULL, CheckBox, N_("Test Legality") },
390 { 0, 0, 10, NULL, (void*) &appData.flashCount, "", NULL, Spin, N_("Flash Moves (0 = no flashing):") },
391 { 0, 1, 10, NULL, (void*) &appData.flashRate, "", NULL, Spin, N_("Flash Rate (high = fast):") },
392 { 0, 5, 100,NULL, (void*) &appData.animSpeed, "", NULL, Spin, N_("Animation Speed (high = slow):") },
393 { 0,  1, 5, NULL, (void*) &appData.zoom, "", NULL, Spin, N_("Zoom factor in Evaluation Graph:") },
394 { 0,  0, 0, NULL, (void*) &GeneralOptionsOK, "", NULL, EndMark , "" }
395 };
396
397 void Pick(int n)
398 {
399         VariantClass v = currentOption[n].value;
400         if(!appData.noChessProgram) {
401             char *name = VariantName(v), buf[MSG_SIZ];
402             if (first.protocolVersion > 1 && StrStr(first.variants, name) == NULL) {
403                 /* [HGM] in protocol 2 we check if variant is suported by engine */
404               snprintf(buf, MSG_SIZ,  _("Variant %s not supported by %s"), name, first.tidy);
405                 DisplayError(buf, 0);
406                 return; /* ignore OK if first engine does not support it */
407             } else
408             if (second.initDone && second.protocolVersion > 1 && StrStr(second.variants, name) == NULL) {
409               snprintf(buf, MSG_SIZ,  _("Warning: second engine (%s) does not support this!"), second.tidy);
410                 DisplayError(buf, 0);   /* use of second engine is optional; only warn user */
411             }
412         }
413
414         GenericReadout(-1); // make sure ranks and file settings are read
415
416         gameInfo.variant = v;
417         appData.variant = VariantName(v);
418
419         shuffleOpenings = FALSE; /* [HGM] shuffle: possible shuffle reset when we switch */
420         startedFromPositionFile = FALSE; /* [HGM] loadPos: no longer valid in new variant */
421         appData.pieceToCharTable = NULL;
422         appData.pieceNickNames = "";
423         appData.colorNickNames = "";
424         Reset(True, True);
425         PopDown(0);
426         return;
427 }
428
429 Option variantDescriptors[] = {
430 { VariantNormal, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("normal")},
431 { VariantFairy, 1, 135, NULL, (void*) &Pick, "#BFBFBF", NULL, Button, N_("fairy")},
432 { VariantFischeRandom, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("FRC")},
433 { VariantSChess, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Seirawan")},
434 { VariantWildCastle, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("wild castle")},
435 { VariantSuper, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Superchess")},
436 { VariantNoCastle, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("no castle")},
437 { VariantCrazyhouse, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("crazyhouse")},
438 { VariantKnightmate, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("knightmate")},
439 { VariantBughouse, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("bughouse")},
440 { VariantBerolina, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("berolina")},
441 { VariantShogi, 1, 135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("shogi (9x9)")},
442 { VariantCylinder, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("cylinder")},
443 { VariantXiangqi, 1, 135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("xiangqi (9x10)")},
444 { VariantShatranj, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("shatranj")},
445 { VariantCourier, 1, 135, NULL, (void*) &Pick, "#BFFFBF", NULL, Button, N_("courier (12x8)")},
446 { VariantMakruk, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("makruk")},
447 { VariantGreat, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Great Shatranj (10x8)")},
448 { VariantAtomic, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("atomic")},
449 { VariantCapablanca, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Capablanca (10x8)")},
450 { VariantTwoKings, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("two kings")},
451 { VariantGothic, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Gothic (10x8)")},
452 { Variant3Check, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("3-checks")},
453 { VariantJanus, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("janus (10x8)")},
454 { VariantSuicide, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("suicide")},
455 { VariantCapaRandom, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("CRC (10x8)")},
456 { VariantGiveaway, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("give-away")},
457 { VariantGrand, 1, 135, NULL, (void*) &Pick, "#5070FF", NULL, Button, N_("grand (10x10)")},
458 { VariantLosers, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("losers")},
459 { VariantSpartan, 1, 135, NULL, (void*) &Pick, "#FF0000", NULL, Button, N_("Spartan")},
460 { 0, 0, 0, NULL, NULL, NULL, NULL, Label, N_("Board size ( -1 = default for selected variant):")},
461 { 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.NrRanks, "", NULL, Spin, N_("Number of Board Ranks:") },
462 { 0, -1, BOARD_FILES, NULL, (void*) &appData.NrFiles, "", NULL, Spin, N_("Number of Board Files:") },
463 { 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.holdingsSize, "", NULL, Spin, N_("Holdings Size:") },
464 { 0, 0, 0, NULL, NULL, NULL, NULL, Label,
465                                 N_("WARNING: variants with un-orthodox\n"
466                                   "pieces only have built-in bitmaps\n"
467                                   "for -boardSize middling, bulky and\n"
468                                   "petite, and substitute king or amazon\n"
469                                   "for missing bitmaps. (See manual.)")},
470 { 0, 2, 0, NULL, NULL, "", NULL, EndMark , "" }
471 };
472
473 int CommonOptionsOK(int n)
474 {
475         int newPonder = appData.ponderNextMove;
476         // make sure changes are sent to first engine by re-initializing it
477         // if it was already started pre-emptively at end of previous game
478         if(gameMode == BeginningOfGame) Reset(True, True); else {
479             // Some changed setting need immediate sending always.
480             if(oldCores != appData.smpCores)
481                 NewSettingEvent(False, &(first.maxCores), "cores", appData.smpCores);
482             appData.ponderNextMove = oldPonder;
483             PonderNextMoveEvent(newPonder);
484         }
485         return 1;
486 }
487
488 Option commonEngineOptions[] = {
489 { 0,     0, 0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
490 { 0,  0, 1000, NULL, (void*) &appData.smpCores, "", NULL, Spin, N_("Maximum Number of CPUs per Engine:") },
491 { 0,     0, 0, NULL, (void*) &appData.polyglotDir, "", NULL, PathName, N_("Polygot Directory:") },
492 { 0, 0, 16000, NULL, (void*) &appData.defaultHashSize, "", NULL, Spin, N_("Hash-Table Size (MB):") },
493 { 0,     0, 0, NULL, (void*) &appData.defaultPathEGTB, "", NULL, PathName, N_("Nalimov EGTB Path:") },
494 { 0,  0, 1000, NULL, (void*) &appData.defaultCacheSizeEGTB, "", NULL, Spin, N_("EGTB Cache Size (MB):") },
495 { 0,     0, 0, NULL, (void*) &appData.usePolyglotBook, "", NULL, CheckBox, N_("Use GUI Book") },
496 { 0,     0, 0, NULL, (void*) &appData.polyglotBook, ".bin", NULL, FileName, N_("Opening-Book Filename:") },
497 { 0,   0, 100, NULL, (void*) &appData.bookDepth, "", NULL, Spin, N_("Book Depth (moves):") },
498 { 0,   0, 100, NULL, (void*) &appData.bookStrength, "", NULL, Spin, N_("Book Variety (0) vs. Strength (100):") },
499 { 0,     0, 0, NULL, (void*) &appData.firstHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #1 Has Own Book") },
500 { 0,     0, 0, NULL, (void*) &appData.secondHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #2 Has Own Book          ") },
501 { 0,     1, 0, NULL, (void*) &CommonOptionsOK, "", NULL, EndMark , "" }
502 };
503
504 Option adjudicationOptions[] = {
505 { 0, 0,    0, NULL, (void*) &appData.checkMates, "", NULL, CheckBox, N_("Detect all Mates") },
506 { 0, 0,    0, NULL, (void*) &appData.testClaims, "", NULL, CheckBox, N_("Verify Engine Result Claims") },
507 { 0, 0,    0, NULL, (void*) &appData.materialDraws, "", NULL, CheckBox, N_("Draw if Insufficient Mating Material") },
508 { 0, 0,    0, NULL, (void*) &appData.trivialDraws, "", NULL, CheckBox, N_("Adjudicate Trivial Draws (3-Move Delay)") },
509 { 0, 0,  100, NULL, (void*) &appData.ruleMoves, "", NULL, Spin, N_("N-Move Rule:") },
510 { 0, 0,    6, NULL, (void*) &appData.drawRepeats, "", NULL, Spin, N_("N-fold Repeats:") },
511 { 0, 0, 1000, NULL, (void*) &appData.adjudicateDrawMoves, "", NULL, Spin, N_("Draw after N Moves Total:") },
512 { 0,-5000, 0, NULL, (void*) &appData.adjudicateLossThreshold, "", NULL, Spin, N_("Win / Loss Threshold:") },
513 { 0, 0,    0, NULL, (void*) &first.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #1") },
514 { 0, 0,    0, NULL, (void*) &second.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #2") },
515 { 0, 1,    0, NULL, NULL, "", NULL, EndMark , "" }
516 };
517
518 int IcsOptionsOK(int n)
519 {
520     ParseIcsTextColors();
521     return 1;
522 }
523
524 Option icsOptions[] = {
525 { 0, 0, 0, NULL, (void*) &appData.autoKibitz, "",  NULL, CheckBox, N_("Auto-Kibitz") },
526 { 0, 0, 0, NULL, (void*) &appData.autoComment, "", NULL, CheckBox, N_("Auto-Comment") },
527 { 0, 0, 0, NULL, (void*) &appData.autoObserve, "", NULL, CheckBox, N_("Auto-Observe") },
528 { 0, 0, 0, NULL, (void*) &appData.autoRaiseBoard, "", NULL, CheckBox, N_("Auto-Raise Board") },
529 { 0, 0, 0, NULL, (void*) &appData.bgObserve, "",   NULL, CheckBox, N_("Background Observe while Playing") },
530 { 0, 0, 0, NULL, (void*) &appData.dualBoard, "",   NULL, CheckBox, N_("Dual Board for Background-Observed Game") },
531 { 0, 0, 0, NULL, (void*) &appData.getMoveList, "", NULL, CheckBox, N_("Get Move List") },
532 { 0, 0, 0, NULL, (void*) &appData.quietPlay, "",   NULL, CheckBox, N_("Quiet Play") },
533 { 0, 0, 0, NULL, (void*) &appData.seekGraph, "",   NULL, CheckBox, N_("Seek Graph") },
534 { 0, 0, 0, NULL, (void*) &appData.autoRefresh, "", NULL, CheckBox, N_("Auto-Refresh Seek Graph") },
535 { 0, 0, 0, NULL, (void*) &appData.premove, "",     NULL, CheckBox, N_("Premove") },
536 { 0, 0, 0, NULL, (void*) &appData.premoveWhite, "", NULL, CheckBox, N_("Premove for White") },
537 { 0, 0, 0, NULL, (void*) &appData.premoveWhiteText, "", NULL, TextBox, N_("First White Move:") },
538 { 0, 0, 0, NULL, (void*) &appData.premoveBlack, "", NULL, CheckBox, N_("Premove for Black") },
539 { 0, 0, 0, NULL, (void*) &appData.premoveBlackText, "", NULL, TextBox, N_("First Black Move:") },
540 { 0, 0, 0, NULL, NULL, NULL, NULL, Break, "" },
541 { 0, 0, 0, NULL, (void*) &appData.icsAlarm, "", NULL, CheckBox, N_("Alarm") },
542 { 0, 0, 100000000, NULL, (void*) &appData.icsAlarmTime, "", NULL, Spin, N_("Alarm Time (msec):") },
543 //{ 0, 0, 0, NULL, (void*) &appData.chatBoxes, "", NULL, TextBox, N_("Startup Chat Boxes:") },
544 { 0, 0, 0, NULL, (void*) &appData.colorize, "", NULL, CheckBox, N_("Colorize Messages") },
545 { 0, 0, 0, NULL, (void*) &appData.colorShout, "", NULL, TextBox, N_("Shout Text Colors:") },
546 { 0, 0, 0, NULL, (void*) &appData.colorSShout, "", NULL, TextBox, N_("S-Shout Text Colors:") },
547 { 0, 0, 0, NULL, (void*) &appData.colorChannel1, "", NULL, TextBox, N_("Channel #1 Text Colors:") },
548 { 0, 0, 0, NULL, (void*) &appData.colorChannel, "", NULL, TextBox, N_("Other Channel Text Colors:") },
549 { 0, 0, 0, NULL, (void*) &appData.colorKibitz, "", NULL, TextBox, N_("Kibitz Text Colors:") },
550 { 0, 0, 0, NULL, (void*) &appData.colorTell, "", NULL, TextBox, N_("Tell Text Colors:") },
551 { 0, 0, 0, NULL, (void*) &appData.colorChallenge, "", NULL, TextBox, N_("Challenge Text Colors:") },
552 { 0, 0, 0, NULL, (void*) &appData.colorRequest, "", NULL, TextBox, N_("Request Text Colors:") },
553 { 0, 0, 0, NULL, (void*) &appData.colorSeek, "", NULL, TextBox, N_("Seek Text Colors:") },
554 { 0, 0, 0, NULL, (void*) &IcsOptionsOK, "", NULL, EndMark , "" }
555 };
556
557 Option loadOptions[] = {
558 { 0, 0, 0, NULL, (void*) &appData.autoDisplayTags, "", NULL, CheckBox, N_("Auto-Display Tags") },
559 { 0, 0, 0, NULL, (void*) &appData.autoDisplayComment, "", NULL, CheckBox, N_("Auto-Display Comment") },
560 { 0, 0, 0, NULL, NULL, NULL, NULL, Label, N_("Auto-Play speed of loaded games\n(0 = instant, -1 = off):") },
561 { 0, -1, 10000000, NULL, (void*) &appData.timeDelay, "", NULL, Fractional, N_("Seconds per Move:") },
562 { 0,  0, 0, NULL, NULL, "", NULL, EndMark , "" }
563 };
564
565 Option saveOptions[] = {
566 { 0, 0, 0, NULL, (void*) &appData.autoSaveGames, "", NULL, CheckBox, N_("Auto-Save Games") },
567 { 0, 0, 0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName,  N_("Save Games on File:") },
568 { 0, 0, 0, NULL, (void*) &appData.savePositionFile, ".fen", NULL, FileName,  N_("Save Final Positions on File:") },
569 { 0, 0, 0, NULL, (void*) &appData.pgnEventHeader, "", NULL, TextBox,  N_("PGN Event Header:") },
570 { 0, 0, 0, NULL, (void*) &appData.oldSaveStyle, "", NULL, CheckBox, N_("Old Save Style (as opposed to PGN)") },
571 { 0, 0, 0, NULL, (void*) &appData.saveExtendedInfoInPGN, "", NULL, CheckBox, N_("Save Score/Depth Info in PGN") },
572 { 0, 0, 0, NULL, (void*) &appData.saveOutOfBookInfo, "", NULL, CheckBox, N_("Save Out-of-Book Info in PGN           ") },
573 { 0, 1, 0, NULL, NULL, "", NULL, EndMark , "" }
574 };
575
576 char *soundNames[] = {
577         N_("No Sound"),
578         N_("Default Beep"),
579         N_("Above WAV File"),
580         N_("Car Horn"),
581         N_("Cymbal"),
582         N_("Ding"),
583         N_("Gong"),
584         N_("Laser"),
585         N_("Penalty"),
586         N_("Phone"),
587         N_("Pop"),
588         N_("Slap"),
589         N_("Wood Thunk"),
590         NULL,
591         N_("User File")
592 };
593
594 char *soundFiles[] = { // sound files corresponding to above names
595         "",
596         "$",
597         "*", // kludge alert: as first thing in the dialog readout this is replaced with the user-given .WAV filename
598         "honkhonk.wav",
599         "cymbal.wav",
600         "ding1.wav",
601         "gong.wav",
602         "laser.wav",
603         "penalty.wav",
604         "phone.wav",
605         "pop2.wav",
606         "slap.wav",
607         "woodthunk.wav",
608         NULL,
609         NULL
610 };
611
612 void Test(int n)
613 {
614     GenericReadout(2);
615     if(soundFiles[values[3]]) PlaySound(soundFiles[values[3]]);
616 }
617
618 Option soundOptions[] = {
619 { 0, 0, 0, NULL, (void*) &appData.soundProgram, "", NULL, TextBox, N_("Sound Program:") },
620 { 0, 0, 0, NULL, (void*) &appData.soundDirectory, "", NULL, PathName, N_("Sounds Directory:") },
621 { 0, 0, 0, NULL, (void*) (soundFiles+2) /* kludge! */, ".wav", NULL, FileName, N_("User WAV File:") },
622 { 0, 0, 0, NULL, (void*) &trialSound, (char*) soundNames, soundFiles, ComboBox, N_("Try-Out Sound:") },
623 { 0, 1, 0, NULL, (void*) &Test, NULL, NULL, Button, N_("Play") },
624 { 0, 0, 0, NULL, (void*) &appData.soundMove, (char*) soundNames, soundFiles, ComboBox, N_("Move:") },
625 { 0, 0, 0, NULL, (void*) &appData.soundIcsWin, (char*) soundNames, soundFiles, ComboBox, N_("Win:") },
626 { 0, 0, 0, NULL, (void*) &appData.soundIcsLoss, (char*) soundNames, soundFiles, ComboBox, N_("Lose:") },
627 { 0, 0, 0, NULL, (void*) &appData.soundIcsDraw, (char*) soundNames, soundFiles, ComboBox, N_("Draw:") },
628 { 0, 0, 0, NULL, (void*) &appData.soundIcsUnfinished, (char*) soundNames, soundFiles, ComboBox, N_("Unfinished:") },
629 { 0, 0, 0, NULL, (void*) &appData.soundIcsAlarm, (char*) soundNames, soundFiles, ComboBox, N_("Alarm:") },
630 { 0, 0, 0, NULL, (void*) &appData.soundShout, (char*) soundNames, soundFiles, ComboBox, N_("Shout:") },
631 { 0, 0, 0, NULL, (void*) &appData.soundSShout, (char*) soundNames, soundFiles, ComboBox, N_("S-Shout:") },
632 { 0, 0, 0, NULL, (void*) &appData.soundChannel, (char*) soundNames, soundFiles, ComboBox, N_("Channel:") },
633 { 0, 0, 0, NULL, (void*) &appData.soundChannel1, (char*) soundNames, soundFiles, ComboBox, N_("Channel 1:") },
634 { 0, 0, 0, NULL, (void*) &appData.soundTell, (char*) soundNames, soundFiles, ComboBox, N_("Tell:") },
635 { 0, 0, 0, NULL, (void*) &appData.soundKibitz, (char*) soundNames, soundFiles, ComboBox, N_("Kibitz:") },
636 { 0, 0, 0, NULL, (void*) &appData.soundChallenge, (char*) soundNames, soundFiles, ComboBox, N_("Challenge:") },
637 { 0, 0, 0, NULL, (void*) &appData.soundRequest, (char*) soundNames, soundFiles, ComboBox, N_("Request:") },
638 { 0, 0, 0, NULL, (void*) &appData.soundSeek, (char*) soundNames, soundFiles, ComboBox, N_("Seek:") },
639 { 0, 1, 0, NULL, NULL, "", NULL, EndMark , "" }
640 };
641
642 void SetColor(char *colorName, Option *box)
643 {
644         Arg args[5];
645         Pixel buttonColor;
646         XrmValue vFrom, vTo;
647         if (!appData.monoMode) {
648             vFrom.addr = (caddr_t) colorName;
649             vFrom.size = strlen(colorName);
650             XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
651             if (vTo.addr == NULL) {
652                 buttonColor = (Pixel) -1;
653             } else {
654                 buttonColor = *(Pixel *) vTo.addr;
655             }
656         } else buttonColor = (Pixel) 0;
657         XtSetArg(args[0], XtNbackground, buttonColor);;
658         XtSetValues(box->handle, args, 1);
659 }
660
661 void SetColorText(int n, char *buf)
662 {
663     SetWidgetText(&currentOption[n-1], buf, 0);
664     SetColor(buf, &currentOption[n]);
665 }
666
667 void DefColor(int n)
668 {
669     SetColorText(n, (char*) currentOption[n].choice);
670 }
671
672 void RefreshColor(int source, int n)
673 {
674     int col, j, r, g, b, step = 10;
675     char *s, buf[MSG_SIZ]; // color string
676     GetWidgetText(&currentOption[source], &s);
677     if(sscanf(s, "#%x", &col) != 1) return;   // malformed
678     b = col & 0xFF; g = col & 0xFF00; r = col & 0xFF0000;
679     switch(n) {
680         case 1: r += 0x10000*step;break;
681         case 2: g += 0x100*step;  break;
682         case 3: b += step;        break;
683         case 4: r -= 0x10000*step; g -= 0x100*step; b -= step; break;
684     }
685     if(r < 0) r = 0; if(g < 0) g = 0; if(b < 0) b = 0;
686     if(r > 0xFF0000) r = 0xFF0000; if(g > 0xFF00) g = 0xFF00; if(b > 0xFF) b = 0xFF;
687     col = r | g | b;
688     snprintf(buf, MSG_SIZ, "#%06x", col);
689     for(j=1; j<7; j++) if(buf[j] >= 'a') buf[j] -= 32; // capitalize
690     SetColorText(source+1, buf);
691 }
692
693 void ColorChanged(Widget w, XtPointer data, XEvent *event, Boolean *b)
694 {
695     char buf[10];
696     if ( (XLookupString(&(event->xkey), buf, 2, NULL, NULL) == 1) && *buf == '\r' )
697         RefreshColor((int)(intptr_t) data, 0);
698 }
699
700 void AdjustColor(int i)
701 {
702     int n = currentOption[i].value;
703     RefreshColor(i-n-1, n);
704 }
705
706 int BoardOptionsOK(int n)
707 {
708     if(appData.overrideLineGap >= 0) lineGap = appData.overrideLineGap; else lineGap = defaultLineGap;
709     useImages = useImageSqs = 0;
710     MakeColors(); CreateGCs(True);
711     CreateAnyPieces();
712     InitDrawingSizes(-1, 0);
713     DrawPosition(True, NULL);
714     return 1;
715 }
716
717 Option boardOptions[] = {
718 { 0,   0, 70, NULL, (void*) &appData.whitePieceColor, "", NULL, TextBox, N_("White Piece Color:") },
719 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFFCC", Button, "      " },
720 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
721 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
722 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
723 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
724 { 0,   0, 70, NULL, (void*) &appData.blackPieceColor, "", NULL, TextBox, N_("Black Piece Color:") },
725 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#202020", Button, "      " },
726 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
727 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
728 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
729 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
730 { 0,   0, 70, NULL, (void*) &appData.lightSquareColor, "", NULL, TextBox, N_("Light Square Color:") },
731 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#C8C365", Button, "      " },
732 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
733 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
734 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
735 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
736 { 0,   0, 70, NULL, (void*) &appData.darkSquareColor, "", NULL, TextBox, N_("Dark Square Color:") },
737 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#77A26D", Button, "      " },
738 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
739 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
740 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
741 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
742 { 0,   0, 70, NULL, (void*) &appData.highlightSquareColor, "", NULL, TextBox, N_("Highlight Color:") },
743 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFF00", Button, "      " },
744 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
745 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
746 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
747 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
748 { 0,   0, 70, NULL, (void*) &appData.premoveHighlightColor, "", NULL, TextBox, N_("Premove Highlight Color:") },
749 { 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FF0000", Button, "      " },
750 {    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "R" },
751 {    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "G" },
752 {    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "B" },
753 {    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, "D" },
754 { 0, 0, 0, NULL, (void*) &appData.upsideDown, "", NULL, CheckBox, N_("Flip Pieces Shogi Style        (Colored buttons restore default)") },
755 //{ 0, 0, 0, NULL, (void*) &appData.allWhite, "", NULL, CheckBox, N_("Use Outline Pieces for Black") },
756 { 0, 0, 0, NULL, (void*) &appData.monoMode, "", NULL, CheckBox, N_("Mono Mode") },
757 { 0,-1, 5, NULL, (void*) &appData.overrideLineGap, "", NULL, Spin, N_("Line Gap ( -1 = default for board size):") },
758 { 0, 0, 0, NULL, (void*) &appData.liteBackTextureFile, ".xpm", NULL, FileName, N_("Light-Squares Texture File:") },
759 { 0, 0, 0, NULL, (void*) &appData.darkBackTextureFile, ".xpm", NULL, FileName, N_("Dark-Squares Texture File:") },
760 { 0, 0, 0, NULL, (void*) &appData.bitmapDirectory, "", NULL, PathName, N_("Directory with Bitmap Pieces:") },
761 { 0, 0, 0, NULL, (void*) &appData.pixmapDirectory, "", NULL, PathName, N_("Directory with Pixmap Pieces:") },
762 { 0, 0, 0, NULL, (void*) &BoardOptionsOK, "", NULL, EndMark , "" }
763 };
764
765 int GenericReadout(int selected)
766 {
767     int i, j, res=1;
768     String val;
769     Arg args[16];
770     char buf[MSG_SIZ], **dest;
771     float x;
772         for(i=0; ; i++) { // send all options that had to be OK-ed to engine
773             if(selected >= 0) { if(i < selected) continue; else if(i > selected) break; }
774             switch(currentOption[i].type) {
775                 case TextBox:
776                 case FileName:
777                 case PathName:
778                     XtSetArg(args[0], XtNstring, &val);
779                     XtGetValues(currentOption[i].handle, args, 1);
780                     dest = currentCps ? &(currentOption[i].textValue) : (char**) currentOption[i].target;
781                     if(*dest == NULL || strcmp(*dest, val)) {
782                         if(currentCps) {
783                             snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentOption[i].name, val);
784                             SendToProgram(buf, currentCps);
785                         } else {
786                             if(*dest) free(*dest);
787                             *dest = malloc(strlen(val)+1);
788                         }
789                         safeStrCpy(*dest, val, MSG_SIZ - (*dest - currentOption[i].name)); // copy text there
790                     }
791                     break;
792                 case Spin:
793                 case Fractional:
794                     XtSetArg(args[0], XtNstring, &val);
795                     XtGetValues(currentOption[i].handle, args, 1);
796                     sscanf(val, "%f", &x);
797                     if(x > currentOption[i].max) x = currentOption[i].max;
798                     if(x < currentOption[i].min) x = currentOption[i].min;
799                     if(currentOption[i].type == Fractional)
800                         *(float*) currentOption[i].target = x; // engines never have float options!
801                     else if(currentOption[i].value != x) {
802                         currentOption[i].value = x;
803                         if(currentCps) {
804                             snprintf(buf, MSG_SIZ,  "option %s=%.0f\n", currentOption[i].name, x);
805                             SendToProgram(buf, currentCps);
806                         } else *(int*) currentOption[i].target = x;
807                     }
808                     break;
809                 case CheckBox:
810                     j = 0;
811                     XtSetArg(args[0], XtNstate, &j);
812                     XtGetValues(currentOption[i].handle, args, 1);
813                     if(currentOption[i].value != j) {
814                         currentOption[i].value = j;
815                         if(currentCps) {
816                             snprintf(buf, MSG_SIZ,  "option %s=%d\n", currentOption[i].name, j);
817                             SendToProgram(buf, currentCps);
818                         } else *(Boolean*) currentOption[i].target = j;
819                     }
820                     break;
821                 case ComboBox:
822                     val = ((char**)currentOption[i].choice)[values[i]];
823                     if(currentCps) {
824                         if(currentOption[i].value == values[i]) break; // not changed
825                         currentOption[i].value = values[i];
826                         snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentOption[i].name,
827                                 ((char**)currentOption[i].textValue)[values[i]]);
828                         SendToProgram(buf, currentCps);
829                     } else if(val && (*(char**) currentOption[i].target == NULL || strcmp(*(char**) currentOption[i].target, val))) {
830                       if(*(char**) currentOption[i].target) free(*(char**) currentOption[i].target);
831                       *(char**) currentOption[i].target = strdup(val);
832                     }
833                     break;
834                 case EndMark:
835                     if(currentOption[i].target) // callback for implementing necessary actions on OK (like redraw)
836                         res = ((OKCallback*) currentOption[i].target)(i);
837                     break;
838             default:
839                 printf("GenericReadout: unexpected case in switch.\n");
840                 case Button:
841                 case SaveButton:
842                 case Label:
843                 case Break:
844               break;
845             }
846             if(currentOption[i].type == EndMark) break;
847         }
848         return res;
849 }
850
851 void GenericCallback(w, client_data, call_data)
852      Widget w;
853      XtPointer client_data, call_data;
854 {
855     String name;
856     Arg args[16];
857     char buf[MSG_SIZ];
858     int data = (intptr_t) client_data;
859
860     currentOption = dialogOptions[data>>16]; data &= 0xFFFF;
861
862     XtSetArg(args[0], XtNlabel, &name);
863     XtGetValues(w, args, 1);
864
865     if (strcmp(name, _("cancel")) == 0) {
866         PopDown(data);
867         return;
868     }
869     if (strcmp(name, _("OK")) == 0) { // save buttons imply OK
870         if(GenericReadout(-1)) PopDown(data);
871         return;
872     }
873     if(currentCps) {
874         if(currentOption[data].type == SaveButton) GenericReadout(-1);
875         snprintf(buf, MSG_SIZ,  "option %s\n", name);
876         SendToProgram(buf, currentCps);
877     } else ((ButtonCallback*) currentOption[data].target)(data);
878 }
879
880 static char *oneLiner  = "<Key>Return:  redraw-display()\n";
881
882 int
883 GenericPopUp(Option *option, char *title, int dlgNr)
884 {
885     Arg args[16];
886     Widget popup, layout, dialog=NULL, edit=NULL, form,  last, b_ok, b_cancel, leftMargin = NULL, textField = NULL;
887     Window root, child;
888     int x, y, i, j, height=999, width=1, h, c, w;
889     int win_x, win_y, maxWidth, maxTextWidth;
890     unsigned int mask;
891     char def[MSG_SIZ], *msg;
892     static char pane[6] = "paneX";
893     Widget texts[100], forelast = NULL, anchor, widest, lastrow = NULL;
894
895     if(shellUp[dlgNr]) return 0; // already up          
896     if(dlgNr && shells[dlgNr]) {
897         XtPopup(shells[dlgNr], XtGrabNone);
898         shellUp[dlgNr] = True;
899         return 0;
900     }
901
902     dialogOptions[dlgNr] = option; // make available to callback
903     // post currentOption globally, so Spin and Combo callbacks can already use it
904     // WARNING: this kludge does not work for persistent dialogs, so that these cannot have spin or combo controls!
905     currentOption = option;
906
907     if(currentCps) { // Settings popup for engine: format through heuristic
908         int n = currentCps->nrOptions;
909         if(!n) { DisplayNote(_("Engine has no options")); return 0; }
910         if(n > 50) width = 4; else if(n>24) width = 2; else width = 1;
911         height = n / width + 1;
912         if(n && (currentOption[n-1].type == Button || currentOption[n-1].type == SaveButton)) currentOption[n].min = 1; // OK on same line
913         currentOption[n].type = EndMark; currentOption[n].target = NULL; // delimit list by callback-less end mark
914     }
915      i = 0;
916     XtSetArg(args[i], XtNresizable, True); i++;
917     popup = shells[dlgNr] =
918       XtCreatePopupShell(title, transientShellWidgetClass,
919                          shellWidget, args, i);
920
921     layout =
922       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
923                             layoutArgs, XtNumber(layoutArgs));
924   for(c=0; c<width; c++) {
925     pane[4] = 'A'+c;
926     form =
927       XtCreateManagedWidget(pane, formWidgetClass, layout,
928                             formArgs, XtNumber(formArgs));
929     j=0;
930     XtSetArg(args[j], XtNfromHoriz, leftMargin);  j++;
931     XtSetValues(form, args, j);
932     leftMargin = form;
933
934     last = widest = NULL; anchor = lastrow;
935     for(h=0; h<height; h++) {
936         i = h + c*height;
937         if(option[i].type == EndMark) break;
938         lastrow = forelast;
939         forelast = last;
940         switch(option[i].type) {
941           case Fractional:
942             snprintf(def, MSG_SIZ,  "%.2f", *(float*)option[i].target);
943             option[i].value = *(float*)option[i].target;
944             goto tBox;
945           case Spin:
946             if(!currentCps) option[i].value = *(int*)option[i].target;
947             snprintf(def, MSG_SIZ,  "%d", option[i].value);
948           case TextBox:
949           case FileName:
950           case PathName:
951           tBox:
952             if(option[i].name[0]) {
953             j=0;
954             XtSetArg(args[j], XtNfromVert, last);  j++;
955             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
956             XtSetArg(args[j], XtNright, XtChainLeft); j++;
957             XtSetArg(args[j], XtNborderWidth, 0);  j++;
958             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
959             XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
960             texts[h] =
961             dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
962             } else texts[h] = dialog = NULL;
963             w = option[i].type == Spin || option[i].type == Fractional ? 70 : option[i].max ? option[i].max : 205;
964             if(option[i].type == FileName || option[i].type == PathName) w -= 55;
965             j=0;
966             XtSetArg(args[j], XtNfromVert, last);  j++;
967             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
968             XtSetArg(args[j], XtNborderWidth, 1); j++;
969             XtSetArg(args[j], XtNwidth, w); j++;
970             if(option[i].type == TextBox && option[i].min) {
971                 XtSetArg(args[j], XtNheight, option[i].min); j++;
972                 if(option[i].value & 1) { XtSetArg(args[j], XtNscrollVertical, XawtextScrollAlways);  j++; }
973                 if(option[i].value & 2) { XtSetArg(args[j], XtNscrollHorizontal, XawtextScrollAlways);  j++; }
974                 if(option[i].value & 4) { XtSetArg(args[j], XtNautoFill, True);  j++; }
975                 if(option[i].value & 8) { XtSetArg(args[j], XtNwrap, XawtextWrapWord); j++; }
976             }
977             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
978             XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
979             XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
980             XtSetArg(args[j], XtNdisplayCaret, False);  j++;
981             XtSetArg(args[j], XtNright, XtChainRight);  j++;
982             XtSetArg(args[j], XtNresizable, True);  j++;
983             XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
984             XtSetArg(args[j], XtNstring, option[i].type==Spin || option[i].type==Fractional ? def : 
985                                 currentCps ? option[i].textValue : *(char**)option[i].target);  j++;
986             edit = last;
987             option[i].handle = (void*)
988                 (textField = last = XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j));
989             XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
990             if(option[i].min == 0 || option[i].type != TextBox)
991                 XtOverrideTranslations(last, XtParseTranslationTable(oneLiner));
992
993             if(option[i].type == TextBox || option[i].type == Fractional) break;
994
995             // add increment and decrement controls for spin
996             j=0;
997             XtSetArg(args[j], XtNfromVert, edit);  j++;
998             XtSetArg(args[j], XtNfromHoriz, last);  j++;
999             XtSetArg(args[j], XtNleft, XtChainRight); j++;
1000             XtSetArg(args[j], XtNright, XtChainRight); j++;
1001             if(option[i].type == FileName || option[i].type == PathName) {
1002                 w = 50; msg = _("browse");
1003             } else {
1004                 XtSetArg(args[j], XtNheight, 10);  j++;
1005                 w = 20; msg = "+";
1006             }
1007             XtSetArg(args[j], XtNwidth, w);  j++;
1008             edit = XtCreateManagedWidget(msg, commandWidgetClass, form, args, j);
1009             XtAddCallback(edit, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i);
1010
1011             if(option[i].type != Spin) break;
1012
1013             j=0;
1014             XtSetArg(args[j], XtNfromVert, edit);  j++;
1015             XtSetArg(args[j], XtNfromHoriz, last);  j++;
1016             XtSetArg(args[j], XtNheight, 10);  j++;
1017             XtSetArg(args[j], XtNwidth, 20);  j++;
1018             XtSetArg(args[j], XtNleft, XtChainRight); j++;
1019             XtSetArg(args[j], XtNright, XtChainRight); j++;
1020             last = XtCreateManagedWidget("-", commandWidgetClass, form, args, j);
1021             XtAddCallback(last, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i);
1022             break;
1023           case CheckBox:
1024             if(!currentCps) option[i].value = *(Boolean*)option[i].target;
1025             j=0;
1026             XtSetArg(args[j], XtNfromVert, last);  j++;
1027             XtSetArg(args[j], XtNwidth, 10);  j++;
1028             XtSetArg(args[j], XtNheight, 10);  j++;
1029             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
1030             XtSetArg(args[j], XtNright, XtChainLeft); j++;
1031             XtSetArg(args[j], XtNstate, option[i].value);  j++;
1032             option[i].handle = (void*)
1033                 (dialog = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
1034           case Label:
1035             msg = option[i].name;
1036             if(*msg == NULLCHAR) msg = option[i].textValue;
1037             if(!msg) break;
1038             j=0;
1039             XtSetArg(args[j], XtNfromVert, last);  j++;
1040             XtSetArg(args[j], XtNfromHoriz, option[i].type != Label ? dialog : NULL);  j++;
1041             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
1042             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1043             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1044             XtSetArg(args[j], XtNlabel, _(msg));  j++;
1045             last = XtCreateManagedWidget(msg, labelWidgetClass, form, args, j);
1046             if(option[i].type == CheckBox)
1047                 XtAddEventHandler(last, ButtonPressMask, False, CheckCallback, (XtPointer)(intptr_t) i);
1048             break;
1049           case SaveButton:
1050           case Button:
1051             j=0;
1052             XtSetArg(args[j], XtNfromVert, option[i].min & 1 ? lastrow : last);  j++;
1053             XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
1054             if(option[i].min & 1) { XtSetArg(args[j], XtNfromHoriz, last);  j++; }
1055             else  { XtSetArg(args[j], XtNfromHoriz, NULL);  j++; lastrow = forelast; }
1056             if(option[i].max) { XtSetArg(args[j], XtNwidth, option[i].max);  j++; }
1057             if(option[i].textValue) { // special for buttons of New Variant dialog
1058                 XtSetArg(args[j], XtNsensitive, appData.noChessProgram || option[i].value < 0
1059                                          || strstr(first.variants, VariantName(option[i].value))); j++;
1060                 XtSetArg(args[j], XtNborderWidth, (gameInfo.variant == option[i].value)+1); j++;
1061             }
1062             option[i].handle = (void*)
1063                 (dialog = last = XtCreateManagedWidget(option[i].name, commandWidgetClass, form, args, j));
1064             if(option[i].choice && ((char*)option[i].choice)[0] == '#' && !currentCps) {
1065                 SetColor( *(char**) option[i-1].target, &option[i]);
1066                 XtAddEventHandler(option[i-1].handle, KeyReleaseMask, False, ColorChanged, (XtPointer)(intptr_t) i-1);
1067             }
1068             XtAddCallback(last, XtNcallback, GenericCallback,
1069                           (XtPointer)(intptr_t) i + (dlgNr<<16));
1070             if(option[i].textValue) SetColor( option[i].textValue, &option[i]);
1071             forelast = lastrow; // next button can go on same row
1072             break;
1073           case ComboBox:
1074             j=0;
1075             XtSetArg(args[j], XtNfromVert, last);  j++;
1076             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
1077             XtSetArg(args[j], XtNright, XtChainLeft); j++;
1078             XtSetArg(args[j], XtNborderWidth, 0);  j++;
1079             XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
1080             XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
1081             texts[h] = dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
1082
1083             if(currentCps) option[i].choice = (char**) option[i].textValue; else {
1084               for(j=0; option[i].choice[j]; j++)
1085                 if(*(char**)option[i].target && !strcmp(*(char**)option[i].target, option[i].choice[j])) break;
1086               option[i].value = j + (option[i].choice[j] == NULL);
1087             }
1088
1089             j=0;
1090             XtSetArg(args[j], XtNfromVert, last);  j++;
1091             XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
1092             XtSetArg(args[j], XtNwidth, option[i].max && !currentCps ? option[i].max : 100);  j++;
1093             XtSetArg(args[j], XtNleft, XtChainLeft); j++;
1094             XtSetArg(args[j], XtNmenuName, XtNewString(option[i].name));  j++;
1095             XtSetArg(args[j], XtNlabel, _(((char**)option[i].textValue)[option[i].value]));  j++;
1096             option[i].handle = (void*)
1097                 (last = XtCreateManagedWidget(" ", menuButtonWidgetClass, form, args, j));
1098             CreateComboPopup(last, option[i].name, i, (char **) option[i].textValue);
1099             values[i] = option[i].value;
1100             break;
1101           case Break:
1102             width++;
1103             height = i+1;
1104             break;
1105         default:
1106             printf("GenericPopUp: unexpected case in switch.\n");
1107             break;
1108         }
1109     }
1110
1111     // make an attempt to align all spins and textbox controls
1112     maxWidth = maxTextWidth = 0;
1113     for(h=0; h<height; h++) {
1114         i = h + c*height;
1115         if(option[i].type == EndMark) break;
1116         if(option[i].type == Spin || option[i].type == TextBox || option[i].type == ComboBox
1117                                   || option[i].type == PathName || option[i].type == FileName) {
1118             Dimension w;
1119             if(!texts[h]) continue;
1120             j=0;
1121             XtSetArg(args[j], XtNwidth, &w);  j++;
1122             XtGetValues(texts[h], args, j);
1123             if(option[i].type == Spin) {
1124                 if(w > maxWidth) maxWidth = w;
1125                 widest = texts[h];
1126             } else {
1127                 if(w > maxTextWidth) maxTextWidth = w;
1128                 if(!widest) widest = texts[h];
1129             }
1130         }
1131     }
1132     if(maxTextWidth + 110 < maxWidth)
1133          maxTextWidth = maxWidth - 110;
1134     else maxWidth = maxTextWidth + 110;
1135     for(h=0; h<height; h++) {
1136         i = h + c*height;
1137         if(option[i].type == EndMark) break;
1138         if(!texts[h]) continue;
1139         j=0;
1140         if(option[i].type == Spin) {
1141             XtSetArg(args[j], XtNwidth, maxWidth);  j++;
1142             XtSetValues(texts[h], args, j);
1143         } else
1144         if(option[i].type == TextBox || option[i].type == ComboBox || option[i].type == PathName || option[i].type == FileName) {
1145             XtSetArg(args[j], XtNwidth, maxTextWidth);  j++;
1146             XtSetValues(texts[h], args, j);
1147         }
1148     }
1149   }
1150
1151   if(!(option[i].min & 2)) {
1152     j=0;
1153     if(option[i].min & 1) {
1154         for(j=i-1; option[j+1].min&1 && option[j].type == Button; j--) {
1155             XtSetArg(args[0], XtNtop, XtChainBottom);
1156             XtSetArg(args[1], XtNbottom, XtChainBottom);
1157             XtSetValues(option[j].handle, args, 2);
1158         }
1159         if(option[j].type == TextBox && option[j].name[0] == NULLCHAR) {
1160             XtSetArg(args[0], XtNbottom, XtChainBottom);
1161             XtSetValues(option[j].handle, args, 1);
1162         }
1163         j = 0;
1164         XtSetArg(args[j], XtNfromHoriz, last); last = forelast;
1165     } else
1166     XtSetArg(args[j], XtNfromHoriz, widest ? widest : dialog);  j++;
1167     XtSetArg(args[j], XtNfromVert, anchor ? anchor : last);  j++;
1168     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
1169     XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
1170     XtSetArg(args[j], XtNleft, XtChainRight);  j++;
1171     XtSetArg(args[j], XtNright, XtChainRight);  j++;
1172     b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
1173     XtAddCallback(b_ok, XtNcallback, GenericCallback, (XtPointer)(intptr_t) dlgNr + (dlgNr<<16));
1174
1175     XtSetArg(args[0], XtNfromHoriz, b_ok);
1176     b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
1177     XtAddCallback(b_cancel, XtNcallback, GenericCallback, (XtPointer)(intptr_t) dlgNr);
1178   }
1179
1180     XtRealizeWidget(popup);
1181     XSetWMProtocols(xDisplay, XtWindow(popup), &wm_delete_window, 1);
1182     snprintf(def, MSG_SIZ, "<Message>WM_PROTOCOLS: GenericPopDown(\"%d\") \n", dlgNr);
1183     XtAugmentTranslations(popup, XtParseTranslationTable(def));
1184     XQueryPointer(xDisplay, xBoardWindow, &root, &child,
1185                   &x, &y, &win_x, &win_y, &mask);
1186
1187     XtSetArg(args[0], XtNx, x - 10);
1188     XtSetArg(args[1], XtNy, y - 30);
1189     XtSetValues(popup, args, 2);
1190
1191     XtPopup(popup, dlgNr ? XtGrabNone : XtGrabExclusive);
1192     shellUp[dlgNr] = True;
1193     previous = NULL;
1194     if(textField)SetFocus(textField, popup, (XEvent*) NULL, False);
1195     if(dlgNr && wp[dlgNr] && wp[dlgNr]->width > 0) { // if persistent window-info available, reposition
1196         j = 0;
1197         XtSetArg(args[j], XtNheight, (Dimension) (wp[dlgNr]->height));  j++;
1198         XtSetArg(args[j], XtNwidth,  (Dimension) (wp[dlgNr]->width));  j++;
1199         XtSetArg(args[j], XtNx, (Position) (wp[dlgNr]->x));  j++;
1200         XtSetArg(args[j], XtNy, (Position) (wp[dlgNr]->y));  j++;
1201         XtSetValues(popup, args, j);
1202     }
1203     return 1;
1204 }
1205
1206
1207 void IcsOptionsProc(w, event, prms, nprms)
1208      Widget w;
1209      XEvent *event;
1210      String *prms;
1211      Cardinal *nprms;
1212 {
1213    GenericPopUp(icsOptions, _("ICS Options"), 0);
1214 }
1215
1216 void LoadOptionsProc(w, event, prms, nprms)
1217      Widget w;
1218      XEvent *event;
1219      String *prms;
1220      Cardinal *nprms;
1221 {
1222    GenericPopUp(loadOptions, _("Load Game Options"), 0);
1223 }
1224
1225 void SaveOptionsProc(w, event, prms, nprms)
1226      Widget w;
1227      XEvent *event;
1228      String *prms;
1229      Cardinal *nprms;
1230 {
1231    GenericPopUp(saveOptions, _("Save Game Options"), 0);
1232 }
1233
1234 void SoundOptionsProc(w, event, prms, nprms)
1235      Widget w;
1236      XEvent *event;
1237      String *prms;
1238      Cardinal *nprms;
1239 {
1240    soundFiles[2] = "*";
1241    GenericPopUp(soundOptions, _("Sound Options"), 0);
1242 }
1243
1244 void BoardOptionsProc(w, event, prms, nprms)
1245      Widget w;
1246      XEvent *event;
1247      String *prms;
1248      Cardinal *nprms;
1249 {
1250    GenericPopUp(boardOptions, _("Board Options"), 0);
1251 }
1252
1253 void EngineMenuProc(w, event, prms, nprms)
1254      Widget w;
1255      XEvent *event;
1256      String *prms;
1257      Cardinal *nprms;
1258 {
1259    GenericPopUp(adjudicationOptions, "Adjudicate non-ICS Games", 0);
1260 }
1261
1262 void UciMenuProc(w, event, prms, nprms)
1263      Widget w;
1264      XEvent *event;
1265      String *prms;
1266      Cardinal *nprms;
1267 {
1268    oldCores = appData.smpCores;
1269    oldPonder = appData.ponderNextMove;
1270    GenericPopUp(commonEngineOptions, _("Common Engine Settings"), 0);
1271 }
1272
1273 void NewVariantProc(w, event, prms, nprms)
1274      Widget w;
1275      XEvent *event;
1276      String *prms;
1277      Cardinal *nprms;
1278 {
1279    GenericPopUp(variantDescriptors, _("New Variant"), 0);
1280 }
1281
1282 void OptionsProc(w, event, prms, nprms)
1283      Widget w;
1284      XEvent *event;
1285      String *prms;
1286      Cardinal *nprms;
1287 {
1288    oldPonder = appData.ponderNextMove;
1289    GenericPopUp(generalOptions, _("General Options"), 0);
1290 }
1291
1292 void MatchOptionsProc(w, event, prms, nprms)
1293      Widget w;
1294      XEvent *event;
1295      String *prms;
1296      Cardinal *nprms;
1297 {
1298    NamesToList(firstChessProgramNames, engineList, engineMnemonic);
1299    comboCallback = &AddToTourney;
1300    matchOptions[5].min = -(appData.pairingEngine[0] != NULLCHAR); // with pairing engine, allow Swiss
1301    ASSIGN(tfName, appData.tourneyFile[0] ? appData.tourneyFile : MakeName(appData.defName));
1302    GenericPopUp(matchOptions, _("Match Options"), 0);
1303 }
1304
1305 Option textOptions[100];
1306 void PutText P((char *text, int pos));
1307
1308 void SendString(char *p)
1309 {
1310     char buf[MSG_SIZ], *q;
1311     if(q = strstr(p, "$input")) {
1312         if(!shellUp[4]) return;
1313         strncpy(buf, p, MSG_SIZ);
1314         strncpy(buf + (q-p), q+6, MSG_SIZ-(q-p));
1315         PutText(buf, q-p);
1316         return;
1317     }
1318     snprintf(buf, MSG_SIZ, "%s\n", p);
1319     SendToICS(buf);
1320 }
1321
1322 /* function called when the data to Paste is ready */
1323 static void
1324 SendTextCB(Widget w, XtPointer client_data, Atom *selection,
1325            Atom *type, XtPointer value, unsigned long *len, int *format)
1326 {
1327   char buf[MSG_SIZ], *p = (char*) textOptions[(int)(intptr_t) client_data].choice, *name = (char*) value, *q;
1328   if (value==NULL || *len==0) return; /* nothing selected, abort */
1329   name[*len]='\0';
1330   strncpy(buf, p, MSG_SIZ);
1331   q = strstr(p, "$name");
1332   snprintf(buf + (q-p), MSG_SIZ -(q-p), "%s%s", name, q+5);
1333   SendString(buf);
1334   XtFree(value);
1335 }
1336
1337 void SendText(int n)
1338 {
1339     char *p = (char*) textOptions[n].choice;
1340     if(strstr(p, "$name")) {
1341         XtGetSelectionValue(menuBarWidget,
1342           XA_PRIMARY, XA_STRING,
1343           /* (XtSelectionCallbackProc) */ SendTextCB,
1344           (XtPointer) (intptr_t) n, /* client_data passed to PastePositionCB */
1345           CurrentTime
1346         );
1347     } else SendString(p);
1348 }
1349
1350 void IcsTextProc(w, event, prms, nprms)
1351      Widget w;
1352      XEvent *event;
1353      String *prms;
1354      Cardinal *nprms;
1355 {
1356    int i=0, j;
1357    char *p, *q, *r;
1358    if((p = icsTextMenuString) == NULL) return;
1359    do {
1360         q = r = p; while(*p && *p != ';') p++;
1361         for(j=0; j<p-q; j++) textOptions[i].name[j] = *r++;
1362         textOptions[i].name[j++] = 0;
1363         if(!*p) break;
1364         if(*++p == '\n') p++; // optional linefeed after button-text terminating semicolon
1365         q = p;
1366         textOptions[i].choice = (char**) (r = textOptions[i].name + j);
1367         while(*p && (*p != ';' || p[1] != '\n')) textOptions[i].name[j++] = *p++;
1368         textOptions[i].name[j++] = 0;
1369         if(*p) p += 2;
1370         textOptions[i].max = 135;
1371         textOptions[i].min = i&1;
1372         textOptions[i].handle = NULL;
1373         textOptions[i].target = &SendText;
1374         textOptions[i].textValue = strstr(r, "$input") ? "#80FF80" : strstr(r, "$name") ? "#FF8080" : "#FFFFFF";
1375         textOptions[i].type = Button;
1376    } while(++i < 99 && *p);
1377    if(i == 0) return;
1378    textOptions[i].type = EndMark;
1379    textOptions[i].target = NULL;
1380    textOptions[i].min = 2;
1381    MarkMenu("menuView.ICStex", 3);
1382    GenericPopUp(textOptions, _("ICS text menu"), 3);
1383 }
1384
1385 static char *commentText;
1386 static int commentIndex;
1387 void ClearComment P((int n));
1388 extern char commentTranslations[];
1389
1390 int NewComCallback(int n)
1391 {
1392     ReplaceComment(commentIndex, commentText);
1393     return 1;
1394 }
1395
1396 void SaveChanges(int n)
1397 {
1398     GetWidgetText(&currentOption[0], &commentText);
1399     ReplaceComment(commentIndex, commentText);
1400 }
1401
1402 Option commentOptions[] = {
1403 { 0xD, 200, 250, NULL, (void*) &commentText, "", NULL, TextBox, "" },
1404 {   0,  0,   50, NULL, (void*) &ClearComment, NULL, NULL, Button, "clear" },
1405 {   0,  1,  100, NULL, (void*) &SaveChanges, NULL, NULL, Button, "save changes" },
1406 {   0,  1,    0, NULL, (void*) &NewComCallback, "", NULL, EndMark , "" }
1407 };
1408
1409 void ClearTextWidget(Option *opt)
1410 {
1411 //    XtCallActionProc(opt->handle, "select-all", NULL, NULL, 0);
1412 //    XtCallActionProc(opt->handle, "kill-selection", NULL, NULL, 0);
1413     Arg arg;
1414     XtSetArg(arg, XtNstring, ""); // clear without disturbing selection!
1415     XtSetValues(opt->handle, &arg, 1);
1416 }
1417
1418 void ClearComment(int n)
1419 {
1420     ClearTextWidget(&commentOptions[0]);
1421 }
1422
1423 void NewCommentPopup(char *title, char *text, int index)
1424 {
1425     Arg args[16];
1426
1427     if(shells[1]) { // if already exists, alter title and content
1428         XtSetArg(args[0], XtNtitle, title);
1429         XtSetValues(shells[1], args, 1);
1430         SetWidgetText(&commentOptions[0], text, 1);
1431     }
1432     if(commentText) free(commentText); commentText = strdup(text);
1433     commentIndex = index;
1434     MarkMenu("menuView.Show Comments", 1);
1435     if(GenericPopUp(commentOptions, title, 1))
1436         XtOverrideTranslations(commentOptions[0].handle, XtParseTranslationTable(commentTranslations));
1437 }
1438
1439 static char *tagsText;
1440
1441 int NewTagsCallback(int n)
1442 {
1443     ReplaceTags(tagsText, &gameInfo);
1444     return 1;
1445 }
1446
1447 void changeTags(int n)
1448 {
1449     GetWidgetText(&currentOption[1], &tagsText);
1450     if(bookUp) SaveToBook(tagsText); else
1451     ReplaceTags(tagsText, &gameInfo);
1452 }
1453
1454 Option tagsOptions[] = {
1455 {   0,  0,    0, NULL, NULL, NULL, NULL, Label,  "" },
1456 { 0xD, 200, 200, NULL, (void*) &tagsText, "", NULL, TextBox, "" },
1457 {   0,  0,  100, NULL, (void*) &changeTags, NULL, NULL, Button, "save changes" },
1458 {   0,  1,    0, NULL, (void*) &NewTagsCallback, "", NULL, EndMark , "" }
1459 };
1460
1461 void NewTagsPopup(char *text, char *msg)
1462 {
1463     Arg args[16];
1464     char *title = bookUp ? _("Edit book") : _("Tags");
1465
1466     if(shells[2]) { // if already exists, alter title and content
1467         SetWidgetText(&tagsOptions[1], text, 2);
1468         XtSetArg(args[0], XtNtitle, title);
1469         XtSetValues(shells[2], args, 1);
1470     }
1471     if(tagsText) free(tagsText); tagsText = strdup(text);
1472     tagsOptions[0].textValue = msg;
1473     MarkMenu("menuView.Show Tags", 2);
1474     GenericPopUp(tagsOptions, title, 2);
1475 }
1476
1477 char *icsText;
1478
1479 Option boxOptions[] = {
1480 {   0, 30,  400, NULL, (void*) &icsText, "", NULL, TextBox, "" },
1481 {   0,  3,    0, NULL, NULL, "", NULL, EndMark , "" }
1482 };
1483
1484 void PutText(char *text, int pos)
1485 {
1486     Arg args[16];
1487     char buf[MSG_SIZ], *p;
1488
1489     if(strstr(text, "$add ") == text) {
1490         GetWidgetText(&boxOptions[0], &p);
1491         snprintf(buf, MSG_SIZ, "%s%s", p, text+5); text = buf;
1492         pos += strlen(p) - 5;
1493     }
1494     SetWidgetText(&boxOptions[0], text, 4);
1495     XtSetArg(args[0], XtNinsertPosition, pos);
1496     XtSetValues(boxOptions[0].handle, args, 1);
1497 //    SetFocus(boxOptions[0].handle, shells[4], NULL, False); // No idea why this does not work, and the following is needed:
1498     XSetInputFocus(xDisplay, XtWindow(boxOptions[0].handle), RevertToPointerRoot, CurrentTime);
1499 }
1500
1501 void InputBoxPopup()
1502 {
1503     MarkMenu("menuView.ICS Input Box", 4);
1504     if(GenericPopUp(boxOptions, _("ICS input box"), 4))
1505         XtOverrideTranslations(boxOptions[0].handle, XtParseTranslationTable(ICSInputTranslations));
1506 }
1507
1508 void TypeInProc(w, event, prms, nprms)
1509      Widget w;
1510      XEvent *event;
1511      String *prms;
1512      Cardinal *nprms;
1513 {
1514     char *val;
1515
1516     if(prms[0][0] == '1') {
1517         GetWidgetText(&boxOptions[0], &val);
1518         TypeInDoneEvent(val);
1519     }
1520     PopDown(0);
1521 }
1522
1523 char moveTypeInTranslations[] =
1524     "<Key>Return: TypeInProc(1) \n"
1525     "<Key>Escape: TypeInProc(0) \n";
1526
1527 void PopUpMoveDialog(char firstchar)
1528 {
1529     static char buf[2];
1530     buf[0] = firstchar; icsText = buf;
1531     if(GenericPopUp(boxOptions, _("Type a move"), 0))
1532         XtOverrideTranslations(boxOptions[0].handle, XtParseTranslationTable(moveTypeInTranslations));
1533 }
1534
1535 void MoveTypeInProc(Widget widget, caddr_t unused, XEvent *event)
1536 {
1537     char buf[10], keys[32];
1538     KeySym sym;
1539     KeyCode metaL, metaR;
1540     int n = XLookupString(&(event->xkey), buf, 10, &sym, NULL);
1541     XQueryKeymap(xDisplay,keys);
1542     metaL = XKeysymToKeycode(xDisplay, XK_Meta_L);
1543     metaR = XKeysymToKeycode(xDisplay, XK_Meta_R);
1544     if ( n == 1 && *buf > 32 && !(keys[metaL>>3]&1<<(metaL&7)) && !(keys[metaR>>3]&1<<(metaR&7))) // printable, no alt
1545         PopUpMoveDialog(*buf);
1546
1547 }
1548
1549 void
1550 SettingsPopUp(ChessProgramState *cps)
1551 {
1552    currentCps = cps;
1553    GenericPopUp(cps->option, _("Engine Settings"), 0);
1554 }
1555
1556 void FirstSettingsProc(w, event, prms, nprms)
1557      Widget w;
1558      XEvent *event;
1559      String *prms;
1560      Cardinal *nprms;
1561 {
1562     SettingsPopUp(&first);
1563 }
1564
1565 void SecondSettingsProc(w, event, prms, nprms)
1566      Widget w;
1567      XEvent *event;
1568      String *prms;
1569      Cardinal *nprms;
1570 {
1571    if(WaitForEngine(&second, SettingsMenuIfReady)) return;
1572    SettingsPopUp(&second);
1573 }
1574
1575 int InstallOK(int n)
1576 {
1577     PopDown(0); // early popdown, to allow FreezeUI to instate grab
1578     if(engineChoice[0] == engineNr[0][0])  Load(&first, 0); else Load(&second, 1);
1579     return 1;
1580 }
1581
1582 Option installOptions[] = {
1583 {   0,  0,    0, NULL, (void*) &engineLine, (char*) engineMnemonic, engineList, ComboBox, N_("Select engine from list:") },
1584 {   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("or specify one below:") },
1585 {   0,  0,    0, NULL, (void*) &nickName, NULL, NULL, TextBox, N_("Nickname (optional):") },
1586 {   0,  0,    0, NULL, (void*) &useNick, NULL, NULL, CheckBox, N_("Use nickname in PGN player tags of engine-engine games") },
1587 {   0,  0,    0, NULL, (void*) &engineDir, NULL, NULL, PathName, N_("Engine Directory:") },
1588 {   0,  0,    0, NULL, (void*) &engineName, NULL, NULL, FileName, N_("Engine Command:") },
1589 {   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("(Directory will be derived from engine path when empty)") },
1590 {   0,  0,    0, NULL, (void*) &isUCI, NULL, NULL, CheckBox, N_("UCI") },
1591 {   0,  0,    0, NULL, (void*) &v1, NULL, NULL, CheckBox, N_("WB protocol v1 (do not wait for engine features)") },
1592 {   0,  0,    0, NULL, (void*) &hasBook, NULL, NULL, CheckBox, N_("Must not use GUI book") },
1593 {   0,  0,    0, NULL, (void*) &addToList, NULL, NULL, CheckBox, N_("Add this engine to the list") },
1594 {   0,  0,    0, NULL, (void*) &storeVariant, NULL, NULL, CheckBox, N_("Force current variant with this engine") },
1595 {   0,  0,    0, NULL, (void*) &engineChoice, (char*) engineNr, engineNr, ComboBox, N_("Load mentioned engine as") },
1596 {   0,  1,    0, NULL, (void*) &InstallOK, "", NULL, EndMark , "" }
1597 };
1598
1599 void LoadEngineProc(w, event, prms, nprms)
1600      Widget w;
1601      XEvent *event;
1602      String *prms;
1603      Cardinal *nprms;
1604 {
1605    isUCI = storeVariant = v1 = useNick = False; addToList = hasBook = True; // defaults
1606    if(engineChoice) free(engineChoice); engineChoice = strdup(engineNr[0]);
1607    if(engineLine)   free(engineLine);   engineLine = strdup("");
1608    if(engineDir)    free(engineDir);    engineDir = strdup("");
1609    if(nickName)     free(nickName);     nickName = strdup("");
1610    if(params)       free(params);       params = strdup("");
1611    NamesToList(firstChessProgramNames, engineList, engineMnemonic);
1612    GenericPopUp(installOptions, _("Load engine"), 0);
1613 }
1614
1615 void EditBookProc(w, event, prms, nprms)
1616      Widget w;
1617      XEvent *event;
1618      String *prms;
1619      Cardinal *nprms;
1620 {
1621     EditBookEvent();
1622 }
1623
1624 void SetRandom P((int n));
1625
1626 int ShuffleOK(int n)
1627 {
1628     ResetGameEvent();
1629     return 1;
1630 }
1631
1632 Option shuffleOptions[] = {
1633 {   0,  0,   50, NULL, (void*) &shuffleOpenings, NULL, NULL, CheckBox, "shuffle" },
1634 { 0,-1,2000000000, NULL, (void*) &appData.defaultFrcPosition, "", NULL, Spin, N_("Start-position number:") },
1635 {   0,  0,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, "randomize" },
1636 {   0,  1,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, "pick fixed" },
1637 {   0,  1,    0, NULL, (void*) &ShuffleOK, "", NULL, EndMark , "" }
1638 };
1639
1640 void SetRandom(int n)
1641 {
1642     int r = n==2 ? -1 : rand() & (1<<30)-1;
1643     char buf[MSG_SIZ];
1644     snprintf(buf, MSG_SIZ,  "%d", r);
1645     SetWidgetText(&shuffleOptions[1], buf, 0);
1646     SetWidgetState(&shuffleOptions[0], True);
1647 }
1648
1649 void ShuffleMenuProc(w, event, prms, nprms)
1650      Widget w;
1651      XEvent *event;
1652      String *prms;
1653      Cardinal *nprms;
1654 {
1655     GenericPopUp(shuffleOptions, _("New Shuffle Game"), 0);
1656 }
1657
1658 int tmpMoves, tmpTc, tmpInc, tmpOdds1, tmpOdds2, tcType;
1659
1660 void ShowTC(int n)
1661 {
1662 }
1663
1664 void SetTcType P((int n));
1665
1666 char *Value(int n)
1667 {
1668         static char buf[MSG_SIZ];
1669         snprintf(buf, MSG_SIZ, "%d", n);
1670         return buf;
1671 }
1672
1673 int TcOK(int n)
1674 {
1675     char *tc;
1676     if(tcType == 0 && tmpMoves <= 0) return 0;
1677     if(tcType == 2 && tmpInc <= 0) return 0;
1678     GetWidgetText(&currentOption[4], &tc); // get original text, in case it is min:sec
1679     searchTime = 0;
1680     switch(tcType) {
1681       case 0:
1682         if(!ParseTimeControl(tc, -1, tmpMoves)) return 0;
1683         appData.movesPerSession = tmpMoves;
1684         ASSIGN(appData.timeControl, tc);
1685         appData.timeIncrement = -1;
1686         break;
1687       case 1:
1688         if(!ParseTimeControl(tc, tmpInc, 0)) return 0;
1689         ASSIGN(appData.timeControl, tc);
1690         appData.timeIncrement = tmpInc;
1691         break;
1692       case 2:
1693         searchTime = tmpInc;
1694     }
1695     appData.firstTimeOdds = first.timeOdds = tmpOdds1;
1696     appData.secondTimeOdds = second.timeOdds = tmpOdds2;
1697     Reset(True, True);
1698     return 1;
1699 }
1700
1701 Option tcOptions[] = {
1702 {   0,  0,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("classical") },
1703 {   0,  1,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("incremental") },
1704 {   0,  1,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("fixed max") },
1705 {   0,  0,  200, NULL, (void*) &tmpMoves, NULL, NULL, Spin, N_("Moves per session:") },
1706 {   0,  0,10000, NULL, (void*) &tmpTc, NULL, NULL, Spin, N_("Initial time (min):") },
1707 {   0, 0, 10000, NULL, (void*) &tmpInc, NULL, NULL, Spin, N_("Increment or max (sec/move):") },
1708 {   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("Time-Odds factors:") },
1709 {   0,  1, 1000, NULL, (void*) &tmpOdds1, NULL, NULL, Spin, N_("Engine #1") },
1710 {   0,  1, 1000, NULL, (void*) &tmpOdds2, NULL, NULL, Spin, N_("Engine #2 / Human") },
1711 {   0,  0,    0, NULL, (void*) &TcOK, "", NULL, EndMark , "" }
1712 };
1713
1714 void SetTcType(int n)
1715 {
1716     switch(tcType = n) {
1717       case 0:
1718         SetWidgetText(&tcOptions[3], Value(tmpMoves), 0);
1719         SetWidgetText(&tcOptions[4], Value(tmpTc), 0);
1720         SetWidgetText(&tcOptions[5], _("Unused"), 0);
1721         break;
1722       case 1:
1723         SetWidgetText(&tcOptions[3], _("Unused"), 0);
1724         SetWidgetText(&tcOptions[4], Value(tmpTc), 0);
1725         SetWidgetText(&tcOptions[5], Value(tmpInc), 0);
1726         break;
1727       case 2:
1728         SetWidgetText(&tcOptions[3], _("Unused"), 0);
1729         SetWidgetText(&tcOptions[4], _("Unused"), 0);
1730         SetWidgetText(&tcOptions[5], Value(tmpInc), 0);
1731     }
1732 }
1733
1734 void TimeControlProc(w, event, prms, nprms)
1735      Widget w;
1736      XEvent *event;
1737      String *prms;
1738      Cardinal *nprms;
1739 {
1740    tmpMoves = appData.movesPerSession;
1741    tmpInc = appData.timeIncrement; if(tmpInc < 0) tmpInc = 0;
1742    tmpOdds1 = tmpOdds2 = 1; tcType = 0;
1743    tmpTc = atoi(appData.timeControl);
1744    GenericPopUp(tcOptions, _("Time Control"), 0);
1745 }
1746
1747 //---------------------------- Chat Windows ----------------------------------------------
1748
1749 void OutputChatMessage(int partner, char *mess)
1750 {
1751     return; // dummy
1752 }
1753