Fix display of logos
[xboard.git] / xboard.c
1 /*
2  * xboard.c -- X front end for XBoard
3  *
4  * Copyright 1991 by Digital Equipment Corporation, Maynard,
5  * Massachusetts.
6  *
7  * Enhancements Copyright 1992-2001, 2002, 2003, 2004, 2005, 2006,
8  * 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
9  *
10  * The following terms apply to Digital Equipment Corporation's copyright
11  * interest in XBoard:
12  * ------------------------------------------------------------------------
13  * All Rights Reserved
14  *
15  * Permission to use, copy, modify, and distribute this software and its
16  * documentation for any purpose and without fee is hereby granted,
17  * provided that the above copyright notice appear in all copies and that
18  * both that copyright notice and this permission notice appear in
19  * supporting documentation, and that the name of Digital not be
20  * used in advertising or publicity pertaining to distribution of the
21  * software without specific, written prior permission.
22  *
23  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
24  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
25  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
26  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
27  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
28  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
29  * SOFTWARE.
30  * ------------------------------------------------------------------------
31  *
32  * The following terms apply to the enhanced version of XBoard
33  * distributed by the Free Software Foundation:
34  * ------------------------------------------------------------------------
35  *
36  * GNU XBoard is free software: you can redistribute it and/or modify
37  * it under the terms of the GNU General Public License as published by
38  * the Free Software Foundation, either version 3 of the License, or (at
39  * your option) any later version.
40  *
41  * GNU XBoard is distributed in the hope that it will be useful, but
42  * WITHOUT ANY WARRANTY; without even the implied warranty of
43  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
44  * General Public License for more details.
45  *
46  * You should have received a copy of the GNU General Public License
47  * along with this program. If not, see http://www.gnu.org/licenses/.  *
48  *
49  *------------------------------------------------------------------------
50  ** See the file ChangeLog for a revision history.  */
51
52 #define HIGHDRAG 1
53
54 #include "config.h"
55
56 #include <stdio.h>
57 #include <ctype.h>
58 #include <signal.h>
59 #include <errno.h>
60 #include <sys/types.h>
61 #include <sys/stat.h>
62 #include <pwd.h>
63 #include <math.h>
64
65 #if !OMIT_SOCKETS
66 # if HAVE_SYS_SOCKET_H
67 #  include <sys/socket.h>
68 #  include <netinet/in.h>
69 #  include <netdb.h>
70 # else /* not HAVE_SYS_SOCKET_H */
71 #  if HAVE_LAN_SOCKET_H
72 #   include <lan/socket.h>
73 #   include <lan/in.h>
74 #   include <lan/netdb.h>
75 #  else /* not HAVE_LAN_SOCKET_H */
76 #   define OMIT_SOCKETS 1
77 #  endif /* not HAVE_LAN_SOCKET_H */
78 # endif /* not HAVE_SYS_SOCKET_H */
79 #endif /* !OMIT_SOCKETS */
80
81 #if STDC_HEADERS
82 # include <stdlib.h>
83 # include <string.h>
84 #else /* not STDC_HEADERS */
85 extern char *getenv();
86 # if HAVE_STRING_H
87 #  include <string.h>
88 # else /* not HAVE_STRING_H */
89 #  include <strings.h>
90 # endif /* not HAVE_STRING_H */
91 #endif /* not STDC_HEADERS */
92
93 #if HAVE_SYS_FCNTL_H
94 # include <sys/fcntl.h>
95 #else /* not HAVE_SYS_FCNTL_H */
96 # if HAVE_FCNTL_H
97 #  include <fcntl.h>
98 # endif /* HAVE_FCNTL_H */
99 #endif /* not HAVE_SYS_FCNTL_H */
100
101 #if HAVE_SYS_SYSTEMINFO_H
102 # include <sys/systeminfo.h>
103 #endif /* HAVE_SYS_SYSTEMINFO_H */
104
105 #if TIME_WITH_SYS_TIME
106 # include <sys/time.h>
107 # include <time.h>
108 #else
109 # if HAVE_SYS_TIME_H
110 #  include <sys/time.h>
111 # else
112 #  include <time.h>
113 # endif
114 #endif
115
116 #if HAVE_UNISTD_H
117 # include <unistd.h>
118 #endif
119
120 #if HAVE_SYS_WAIT_H
121 # include <sys/wait.h>
122 #endif
123
124 #if HAVE_DIRENT_H
125 # include <dirent.h>
126 # define NAMLEN(dirent) strlen((dirent)->d_name)
127 # define HAVE_DIR_STRUCT
128 #else
129 # define dirent direct
130 # define NAMLEN(dirent) (dirent)->d_namlen
131 # if HAVE_SYS_NDIR_H
132 #  include <sys/ndir.h>
133 #  define HAVE_DIR_STRUCT
134 # endif
135 # if HAVE_SYS_DIR_H
136 #  include <sys/dir.h>
137 #  define HAVE_DIR_STRUCT
138 # endif
139 # if HAVE_NDIR_H
140 #  include <ndir.h>
141 #  define HAVE_DIR_STRUCT
142 # endif
143 #endif
144
145 #if ENABLE_NLS
146 #include <locale.h>
147 #endif
148
149 #include <X11/Intrinsic.h>
150 #include <X11/StringDefs.h>
151 #include <X11/Shell.h>
152 #include <X11/cursorfont.h>
153 #include <X11/Xatom.h>
154 #include <X11/Xmu/Atoms.h>
155 #if USE_XAW3D
156 #include <X11/Xaw3d/Dialog.h>
157 #include <X11/Xaw3d/Form.h>
158 #include <X11/Xaw3d/List.h>
159 #include <X11/Xaw3d/Label.h>
160 #include <X11/Xaw3d/SimpleMenu.h>
161 #include <X11/Xaw3d/SmeBSB.h>
162 #include <X11/Xaw3d/SmeLine.h>
163 #include <X11/Xaw3d/Box.h>
164 #include <X11/Xaw3d/MenuButton.h>
165 #include <X11/Xaw3d/Text.h>
166 #include <X11/Xaw3d/AsciiText.h>
167 #else
168 #include <X11/Xaw/Dialog.h>
169 #include <X11/Xaw/Form.h>
170 #include <X11/Xaw/List.h>
171 #include <X11/Xaw/Label.h>
172 #include <X11/Xaw/SimpleMenu.h>
173 #include <X11/Xaw/SmeBSB.h>
174 #include <X11/Xaw/SmeLine.h>
175 #include <X11/Xaw/Box.h>
176 #include <X11/Xaw/MenuButton.h>
177 #include <X11/Xaw/Text.h>
178 #include <X11/Xaw/AsciiText.h>
179 #endif
180
181 // [HGM] bitmaps: put before incuding the bitmaps / pixmaps, to know how many piece types there are.
182 #include "common.h"
183
184 #if HAVE_LIBXPM
185 #include <X11/xpm.h>
186 #include "pixmaps/pixmaps.h"
187 #define IMAGE_EXT "xpm"
188 #else
189 #define IMAGE_EXT "xim"
190 #include "bitmaps/bitmaps.h"
191 #endif
192
193 #include "bitmaps/icon_white.bm"
194 #include "bitmaps/icon_black.bm"
195 #include "bitmaps/checkmark.bm"
196
197 #include "frontend.h"
198 #include "backend.h"
199 #include "backendz.h"
200 #include "moves.h"
201 #include "xboard.h"
202 #include "childio.h"
203 #include "xgamelist.h"
204 #include "xhistory.h"
205 #include "xedittags.h"
206 #include "gettext.h"
207
208 // must be moved to xengineoutput.h
209
210 void EngineOutputProc P((Widget w, XEvent *event,
211                          String *prms, Cardinal *nprms));
212 void EvalGraphProc P((Widget w, XEvent *event,
213                       String *prms, Cardinal *nprms));
214
215
216 #ifdef __EMX__
217 #ifndef HAVE_USLEEP
218 #define HAVE_USLEEP
219 #endif
220 #define usleep(t)   _sleep2(((t)+500)/1000)
221 #endif
222
223 #ifdef ENABLE_NLS
224 # define  _(s) gettext (s)
225 # define N_(s) gettext_noop (s)
226 #else
227 # define  _(s) (s)
228 # define N_(s)  s
229 #endif
230
231 typedef struct {
232     String string;
233     String ref;
234     XtActionProc proc;
235 } MenuItem;
236
237 typedef struct {
238     String name;
239     String ref;
240     MenuItem *mi;
241 } Menu;
242
243 int main P((int argc, char **argv));
244 FILE * XsraSelFile P((Widget w, char *prompt, char *ok, char *cancel, char *failed,
245                 char *init_path, char *filter, char *mode, int (*show_entry)(), char **name_return));
246 RETSIGTYPE CmailSigHandler P((int sig));
247 RETSIGTYPE IntSigHandler P((int sig));
248 RETSIGTYPE TermSizeSigHandler P((int sig));
249 void CreateGCs P((int redo));
250 void CreateAnyPieces P((void));
251 void CreateXIMPieces P((void));
252 void CreateXPMPieces P((void));
253 void CreateXPMBoard P((char *s, int n));
254 void CreatePieces P((void));
255 void CreatePieceMenus P((void));
256 Widget CreateMenuBar P((Menu *mb));
257 Widget CreateButtonBar P ((MenuItem *mi));
258 #if ENABLE_NLS
259 char *InsertPxlSize P((char *pattern, int targetPxlSize));
260 XFontSet CreateFontSet P((char *base_fnt_lst));
261 #else
262 char *FindFont P((char *pattern, int targetPxlSize));
263 #endif
264 void PieceMenuPopup P((Widget w, XEvent *event,
265                        String *params, Cardinal *num_params));
266 static void PieceMenuSelect P((Widget w, ChessSquare piece, caddr_t junk));
267 static void DropMenuSelect P((Widget w, ChessSquare piece, caddr_t junk));
268 void ReadBitmap P((Pixmap *pm, String name, unsigned char bits[],
269                    u_int wreq, u_int hreq));
270 void CreateGrid P((void));
271 int EventToSquare P((int x, int limit));
272 void DrawSquare P((int row, int column, ChessSquare piece, int do_flash));
273 void EventProc P((Widget widget, caddr_t unused, XEvent *event));
274 void MoveTypeInProc P((Widget widget, caddr_t unused, XEvent *event));
275 void HandleUserMove P((Widget w, XEvent *event,
276                      String *prms, Cardinal *nprms));
277 void AnimateUserMove P((Widget w, XEvent * event,
278                      String * params, Cardinal * nParams));
279 void HandlePV P((Widget w, XEvent * event,
280                      String * params, Cardinal * nParams));
281 void SelectPV P((Widget w, XEvent * event,
282                      String * params, Cardinal * nParams));
283 void StopPV P((Widget w, XEvent * event,
284                      String * params, Cardinal * nParams));
285 void WhiteClock P((Widget w, XEvent *event,
286                    String *prms, Cardinal *nprms));
287 void BlackClock P((Widget w, XEvent *event,
288                    String *prms, Cardinal *nprms));
289 void DrawPositionProc P((Widget w, XEvent *event,
290                      String *prms, Cardinal *nprms));
291 void XDrawPosition P((Widget w, /*Boolean*/int repaint,
292                      Board board));
293 void CommentClick P((Widget w, XEvent * event,
294                    String * params, Cardinal * nParams));
295 void CommentPopUp P((char *title, char *label));
296 void CommentPopDown P((void));
297 void ICSInputBoxPopUp P((void));
298 void ICSInputBoxPopDown P((void));
299 void FileNamePopUp P((char *label, char *def, char *filter,
300                       FileProc proc, char *openMode));
301 void FileNamePopDown P((void));
302 void FileNameCallback P((Widget w, XtPointer client_data,
303                          XtPointer call_data));
304 void FileNameAction P((Widget w, XEvent *event,
305                        String *prms, Cardinal *nprms));
306 void AskQuestionReplyAction P((Widget w, XEvent *event,
307                           String *prms, Cardinal *nprms));
308 void AskQuestionProc P((Widget w, XEvent *event,
309                           String *prms, Cardinal *nprms));
310 void AskQuestionPopDown P((void));
311 void PromotionPopDown P((void));
312 void PromotionCallback P((Widget w, XtPointer client_data,
313                           XtPointer call_data));
314 void SelectCommand P((Widget w, XtPointer client_data, XtPointer call_data));
315 void ResetProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
316 void LoadGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
317 void LoadNextGameProc P((Widget w, XEvent *event, String *prms,
318                          Cardinal *nprms));
319 void LoadPrevGameProc P((Widget w, XEvent *event, String *prms,
320                          Cardinal *nprms));
321 void ReloadGameProc P((Widget w, XEvent *event, String *prms,
322                        Cardinal *nprms));
323 void LoadPositionProc P((Widget w, XEvent *event,
324                          String *prms, Cardinal *nprms));
325 void LoadNextPositionProc P((Widget w, XEvent *event, String *prms,
326                          Cardinal *nprms));
327 void LoadPrevPositionProc P((Widget w, XEvent *event, String *prms,
328                          Cardinal *nprms));
329 void ReloadPositionProc P((Widget w, XEvent *event, String *prms,
330                        Cardinal *nprms));
331 void CopyPositionProc P((Widget w, XEvent *event, String *prms,
332                          Cardinal *nprms));
333 void PastePositionProc P((Widget w, XEvent *event, String *prms,
334                           Cardinal *nprms));
335 void CopyGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
336 void CopyGameListProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
337 void PasteGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
338 void SaveGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
339 void SavePositionProc P((Widget w, XEvent *event,
340                          String *prms, Cardinal *nprms));
341 void MailMoveProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
342 void ReloadCmailMsgProc P((Widget w, XEvent *event, String *prms,
343                             Cardinal *nprms));
344 void QuitProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
345 void PauseProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
346 void MachineBlackProc P((Widget w, XEvent *event, String *prms,
347                          Cardinal *nprms));
348 void MachineWhiteProc P((Widget w, XEvent *event,
349                          String *prms, Cardinal *nprms));
350 void AnalyzeModeProc P((Widget w, XEvent *event,
351                          String *prms, Cardinal *nprms));
352 void AnalyzeFileProc P((Widget w, XEvent *event,
353                          String *prms, Cardinal *nprms));
354 void TwoMachinesProc P((Widget w, XEvent *event, String *prms,
355                         Cardinal *nprms));
356 void MatchProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
357 void MatchOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
358 void IcsClientProc P((Widget w, XEvent *event, String *prms,
359                       Cardinal *nprms));
360 void EditGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
361 void EditPositionProc P((Widget w, XEvent *event,
362                          String *prms, Cardinal *nprms));
363 void TrainingProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
364 void EditCommentProc P((Widget w, XEvent *event,
365                         String *prms, Cardinal *nprms));
366 void IcsInputBoxProc P((Widget w, XEvent *event,
367                         String *prms, Cardinal *nprms));
368 void AcceptProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
369 void DeclineProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
370 void RematchProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
371 void CallFlagProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
372 void DrawProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
373 void AbortProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
374 void AdjournProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
375 void ResignProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
376 void AdjuWhiteProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
377 void AdjuBlackProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
378 void AdjuDrawProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
379 void TypeInProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
380 void EnterKeyProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
381 void UpKeyProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
382 void DownKeyProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
383 void StopObservingProc P((Widget w, XEvent *event, String *prms,
384                           Cardinal *nprms));
385 void StopExaminingProc P((Widget w, XEvent *event, String *prms,
386                           Cardinal *nprms));
387 void UploadProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
388 void BackwardProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
389 void ForwardProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
390 void ToStartProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
391 void ToEndProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
392 void RevertProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
393 void AnnotateProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
394 void TruncateGameProc P((Widget w, XEvent *event, String *prms,
395                          Cardinal *nprms));
396 void RetractMoveProc P((Widget w, XEvent *event, String *prms,
397                         Cardinal *nprms));
398 void MoveNowProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
399 void AlwaysQueenProc P((Widget w, XEvent *event, String *prms,
400                         Cardinal *nprms));
401 void AnimateDraggingProc P((Widget w, XEvent *event, String *prms,
402                          Cardinal *nprms));
403 void AnimateMovingProc P((Widget w, XEvent *event, String *prms,
404                          Cardinal *nprms));
405 void AutoflagProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
406 void AutoflipProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
407 void BlindfoldProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
408 void FlashMovesProc P((Widget w, XEvent *event, String *prms,
409                        Cardinal *nprms));
410 void FlipViewProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
411 void HighlightDraggingProc P((Widget w, XEvent *event, String *prms,
412                               Cardinal *nprms));
413 void HighlightLastMoveProc P((Widget w, XEvent *event, String *prms,
414                               Cardinal *nprms));
415 void HighlightArrowProc P((Widget w, XEvent *event, String *prms,
416                               Cardinal *nprms));
417 void MoveSoundProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
418 //void IcsAlarmProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
419 void OneClickProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
420 void PeriodicUpdatesProc P((Widget w, XEvent *event, String *prms,
421                          Cardinal *nprms));
422 void PonderNextMoveProc P((Widget w, XEvent *event, String *prms,
423                            Cardinal *nprms));
424 void PopupMoveErrorsProc P((Widget w, XEvent *event, String *prms,
425                         Cardinal *nprms));
426 void PopupExitMessageProc P((Widget w, XEvent *event, String *prms,
427                              Cardinal *nprms));
428 //void PremoveProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
429 void ShowCoordsProc P((Widget w, XEvent *event, String *prms,
430                        Cardinal *nprms));
431 void ShowThinkingProc P((Widget w, XEvent *event, String *prms,
432                          Cardinal *nprms));
433 void HideThinkingProc P((Widget w, XEvent *event, String *prms,
434                          Cardinal *nprms));
435 void TestLegalityProc P((Widget w, XEvent *event, String *prms,
436                           Cardinal *nprms));
437 void SaveSettingsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
438 void SaveOnExitProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
439 void InfoProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
440 void ManProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
441 void HintProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
442 void BookProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
443 void AboutGameProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
444 void AboutProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
445 void DebugProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
446 void NothingProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
447 void Iconify P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
448 void DisplayMove P((int moveNumber));
449 void DisplayTitle P((char *title));
450 void ICSInitScript P((void));
451 int LoadGamePopUp P((FILE *f, int gameNumber, char *title));
452 void ErrorPopUp P((char *title, char *text, int modal));
453 void ErrorPopDown P((void));
454 static char *ExpandPathName P((char *path));
455 static void CreateAnimVars P((void));
456 static void DragPieceMove P((int x, int y));
457 static void DrawDragPiece P((void));
458 char *ModeToWidgetName P((GameMode mode));
459 void ShuffleMenuProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
460 void EngineMenuProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
461 void UciMenuProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
462 void TimeControlProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
463 void OptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
464 void NewVariantProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
465 void IcsTextProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
466 void LoadEngineProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
467 void FirstSettingsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
468 void SecondSettingsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
469 void GameListOptionsPopUp P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
470 void IcsOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
471 void SoundOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
472 void BoardOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
473 void LoadOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
474 void SaveOptionsProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
475 void EditBookProc P((Widget w, XEvent *event, String *prms, Cardinal *nprms));
476 void GameListOptionsPopDown P(());
477 void ShufflePopDown P(());
478 void TimeControlPopDown P(());
479 void GenericPopDown P(());
480 void update_ics_width P(());
481 int get_term_width P(());
482 int CopyMemoProc P(());
483 void DrawArrowHighlight P((int fromX, int fromY, int toX,int toY));
484 Boolean IsDrawArrowEnabled P(());
485
486 /*
487 * XBoard depends on Xt R4 or higher
488 */
489 int xtVersion = XtSpecificationRelease;
490
491 int xScreen;
492 Display *xDisplay;
493 Window xBoardWindow;
494 Pixel lightSquareColor, darkSquareColor, whitePieceColor, blackPieceColor,
495   jailSquareColor, highlightSquareColor, premoveHighlightColor;
496 Pixel lowTimeWarningColor;
497 GC lightSquareGC, darkSquareGC, jailSquareGC, lineGC, wdPieceGC, wlPieceGC,
498   bdPieceGC, blPieceGC, wbPieceGC, bwPieceGC, coordGC, highlineGC,
499   wjPieceGC, bjPieceGC, prelineGC, countGC;
500 Pixmap iconPixmap, wIconPixmap, bIconPixmap, xMarkPixmap;
501 Widget shellWidget, layoutWidget, formWidget, boardWidget, messageWidget,
502   whiteTimerWidget, blackTimerWidget, titleWidget, widgetList[16],
503   commentShell, promotionShell, whitePieceMenu, blackPieceMenu, dropMenu,
504   menuBarWidget, buttonBarWidget, editShell, errorShell, analysisShell,
505   ICSInputShell, fileNameShell, askQuestionShell;
506 Widget historyShell, evalGraphShell, gameListShell;
507 int hOffset; // [HGM] dual
508 XSegment secondSegments[BOARD_RANKS + BOARD_FILES + 2];
509 XSegment gridSegments[BOARD_RANKS + BOARD_FILES + 2];
510 XSegment jailGridSegments[BOARD_RANKS + BOARD_FILES + 6];
511 #if ENABLE_NLS
512 XFontSet fontSet, clockFontSet;
513 #else
514 Font clockFontID;
515 XFontStruct *clockFontStruct;
516 #endif
517 Font coordFontID, countFontID;
518 XFontStruct *coordFontStruct, *countFontStruct;
519 XtAppContext appContext;
520 char *layoutName;
521 char *oldICSInteractionTitle;
522
523 FileProc fileProc;
524 char *fileOpenMode;
525 char installDir[] = "."; // [HGM] UCI: needed for UCI; probably needs run-time initializtion
526
527 Position commentX = -1, commentY = -1;
528 Dimension commentW, commentH;
529 typedef unsigned int BoardSize;
530 BoardSize boardSize;
531 Boolean chessProgram;
532
533 int  minX, minY; // [HGM] placement: volatile limits on upper-left corner
534 int squareSize, smallLayout = 0, tinyLayout = 0,
535   marginW, marginH, // [HGM] for run-time resizing
536   fromX = -1, fromY = -1, toX, toY, commentUp = False, analysisUp = False,
537   ICSInputBoxUp = False, askQuestionUp = False,
538   filenameUp = False, promotionUp = False, pmFromX = -1, pmFromY = -1,
539   errorUp = False, errorExitStatus = -1, lineGap, defaultLineGap;
540 Pixel timerForegroundPixel, timerBackgroundPixel;
541 Pixel buttonForegroundPixel, buttonBackgroundPixel;
542 char *chessDir, *programName, *programVersion,
543   *gameCopyFilename, *gamePasteFilename;
544 Boolean alwaysOnTop = False;
545 Boolean saveSettingsOnExit;
546 char *settingsFileName;
547 char *icsTextMenuString;
548 char *icsNames;
549 char *firstChessProgramNames;
550 char *secondChessProgramNames;
551
552 WindowPlacement wpMain;
553 WindowPlacement wpConsole;
554 WindowPlacement wpComment;
555 WindowPlacement wpMoveHistory;
556 WindowPlacement wpEvalGraph;
557 WindowPlacement wpEngineOutput;
558 WindowPlacement wpGameList;
559 WindowPlacement wpTags;
560
561 extern Widget shells[];
562 extern Boolean shellUp[];
563
564 #define SOLID 0
565 #define OUTLINE 1
566 Pixmap pieceBitmap[2][(int)BlackPawn];
567 Pixmap pieceBitmap2[2][(int)BlackPawn+4];       /* [HGM] pieces */
568 Pixmap xpmPieceBitmap[4][(int)BlackPawn];       /* LL, LD, DL, DD actually used*/
569 Pixmap xpmPieceBitmap2[4][(int)BlackPawn+4];    /* LL, LD, DL, DD set to select from */
570 Pixmap xpmLightSquare, xpmDarkSquare, xpmJailSquare;
571 Pixmap xpmBoardBitmap[2];
572 int useImages, useImageSqs, useTexture, textureW[2], textureH[2];
573 XImage *ximPieceBitmap[4][(int)BlackPawn+4];    /* LL, LD, DL, DD */
574 Pixmap ximMaskPm[(int)BlackPawn];               /* clipmasks, used for XIM pieces */
575 Pixmap ximMaskPm2[(int)BlackPawn+4];            /* clipmasks, used for XIM pieces */
576 XImage *ximLightSquare, *ximDarkSquare;
577 XImage *xim_Cross;
578
579 #define pieceToSolid(piece) &pieceBitmap[SOLID][(piece) % (int)BlackPawn]
580 #define pieceToOutline(piece) &pieceBitmap[OUTLINE][(piece) % (int)BlackPawn]
581
582 #define White(piece) ((int)(piece) < (int)BlackPawn)
583
584 /* Variables for doing smooth animation. This whole thing
585    would be much easier if the board was double-buffered,
586    but that would require a fairly major rewrite.       */
587
588 typedef struct {
589         Pixmap  saveBuf;
590         Pixmap  newBuf;
591         GC      blitGC, pieceGC, outlineGC;
592         XPoint  startSquare, prevFrame, mouseDelta;
593         int     startColor;
594         int     dragPiece;
595         Boolean dragActive;
596         int     startBoardX, startBoardY;
597     } AnimState;
598
599 /* There can be two pieces being animated at once: a player
600    can begin dragging a piece before the remote opponent has moved. */
601
602 static AnimState game, player;
603
604 /* Bitmaps for use as masks when drawing XPM pieces.
605    Need one for each black and white piece.             */
606 static Pixmap xpmMask[BlackKing + 1];
607
608 /* This magic number is the number of intermediate frames used
609    in each half of the animation. For short moves it's reduced
610    by 1. The total number of frames will be factor * 2 + 1.  */
611 #define kFactor    4
612
613 SizeDefaults sizeDefaults[] = SIZE_DEFAULTS;
614
615 MenuItem fileMenu[] = {
616     {N_("New Game        Ctrl+N"),        "New Game", ResetProc},
617     {N_("New Shuffle Game ..."),          "New Shuffle Game", ShuffleMenuProc},
618     {N_("New Variant ...   Alt+Shift+V"), "New Variant", NewVariantProc},      // [HGM] variant: not functional yet
619     {"----", NULL, NothingProc},
620     {N_("Load Game       Ctrl+O"),        "Load Game", LoadGameProc},
621     {N_("Load Position    Ctrl+Shift+O"), "Load Position", LoadPositionProc},
622 //    {N_("Load Next Game"), "Load Next Game", LoadNextGameProc},
623 //    {N_("Load Previous Game"), "Load Previous Game", LoadPrevGameProc},
624 //    {N_("Reload Same Game"), "Reload Same Game", ReloadGameProc},
625     {N_("Next Position     Shift+PgDn"), "Load Next Position", LoadNextPositionProc},
626     {N_("Prev Position     Shift+PgUp"), "Load Previous Position", LoadPrevPositionProc},
627     {"----", NULL, NothingProc},
628 //    {N_("Reload Same Position"), "Reload Same Position", ReloadPositionProc},
629     {N_("Save Game       Ctrl+S"),        "Save Game", SaveGameProc},
630     {N_("Save Position    Ctrl+Shift+S"), "Save Position", SavePositionProc},
631     {"----", NULL, NothingProc},
632     {N_("Mail Move"),            "Mail Move", MailMoveProc},
633     {N_("Reload CMail Message"), "Reload CMail Message", ReloadCmailMsgProc},
634     {"----", NULL, NothingProc},
635     {N_("Quit                 Ctr+Q"), "Exit", QuitProc},
636     {NULL, NULL, NULL}
637 };
638
639 MenuItem editMenu[] = {
640     {N_("Copy Game    Ctrl+C"),        "Copy Game", CopyGameProc},
641     {N_("Copy Position Ctrl+Shift+C"), "Copy Position", CopyPositionProc},
642     {N_("Copy Game List"),        "Copy Game List", CopyGameListProc},
643     {"----", NULL, NothingProc},
644     {N_("Paste Game    Ctrl+V"),        "Paste Game", PasteGameProc},
645     {N_("Paste Position Ctrl+Shift+V"), "Paste Position", PastePositionProc},
646     {"----", NULL, NothingProc},
647     {N_("Edit Game      Ctrl+E"),        "Edit Game", EditGameProc},
648     {N_("Edit Position   Ctrl+Shift+E"), "Edit Position", EditPositionProc},
649     {N_("Edit Tags"),                    "Edit Tags", EditTagsProc},
650     {N_("Edit Comment"),                 "Edit Comment", EditCommentProc},
651     {N_("Edit Book"),                    "Edit Book", EditBookProc},
652     {"----", NULL, NothingProc},
653     {N_("Revert              Home"), "Revert", RevertProc},
654     {N_("Annotate"),                 "Annotate", AnnotateProc},
655     {N_("Truncate Game  End"),       "Truncate Game", TruncateGameProc},
656     {"----", NULL, NothingProc},
657     {N_("Backward         Alt+Left"),   "Backward", BackwardProc},
658     {N_("Forward           Alt+Right"), "Forward", ForwardProc},
659     {N_("Back to Start     Alt+Home"),  "Back to Start", ToStartProc},
660     {N_("Forward to End Alt+End"),      "Forward to End", ToEndProc},
661     {NULL, NULL, NULL}
662 };
663
664 MenuItem viewMenu[] = {
665     {N_("Flip View             F2"),         "Flip View", FlipViewProc},
666     {"----", NULL, NothingProc},
667     {N_("Engine Output      Alt+Shift+O"),   "Show Engine Output", EngineOutputProc},
668     {N_("Move History       Alt+Shift+H"),   "Show Move History", HistoryShowProc}, // [HGM] hist: activate 4.2.7 code
669     {N_("Evaluation Graph  Alt+Shift+E"),    "Show Evaluation Graph", EvalGraphProc},
670     {N_("Game List            Alt+Shift+G"), "Show Game List", ShowGameListProc},
671     {N_("ICS text menu"), "ICStex", IcsTextProc},
672     {"----", NULL, NothingProc},
673     {N_("Tags"),             "Show Tags", EditTagsProc},
674     {N_("Comments"),         "Show Comments", EditCommentProc},
675     {N_("ICS Input Box"),    "ICS Input Box", IcsInputBoxProc},
676     {"----", NULL, NothingProc},
677     {N_("Board..."),          "Board Options", BoardOptionsProc},
678     {N_("Game List Tags..."), "Game List", GameListOptionsPopUp},
679     {NULL, NULL, NULL}
680 };
681
682 MenuItem modeMenu[] = {
683     {N_("Machine White  Ctrl+W"), "Machine White", MachineWhiteProc},
684     {N_("Machine Black  Ctrl+B"), "Machine Black", MachineBlackProc},
685     {N_("Two Machines   Ctrl+T"), "Two Machines", TwoMachinesProc},
686     {N_("Analysis Mode  Ctrl+A"), "Analysis Mode", AnalyzeModeProc},
687     {N_("Analyze File      Ctrl+F"), "Analyze File", AnalyzeFileProc },
688     {N_("Edit Game         Ctrl+E"), "Edit Game", EditGameProc},
689     {N_("Edit Position      Ctrl+Shift+E"), "Edit Position", EditPositionProc},
690     {N_("Training"),      "Training", TrainingProc},
691     {N_("ICS Client"),    "ICS Client", IcsClientProc},
692     {"----", NULL, NothingProc},
693     {N_("Machine Match"),         "Machine Match", MatchProc},
694     {N_("Pause               Pause"),         "Pause", PauseProc},
695     {NULL, NULL, NULL}
696 };
697
698 MenuItem actionMenu[] = {
699     {N_("Accept             F3"), "Accept", AcceptProc},
700     {N_("Decline            F4"), "Decline", DeclineProc},
701     {N_("Rematch           F12"), "Rematch", RematchProc},
702     {"----", NULL, NothingProc},
703     {N_("Call Flag          F5"), "Call Flag", CallFlagProc},
704     {N_("Draw                F6"), "Draw", DrawProc},
705     {N_("Adjourn            F7"),  "Adjourn", AdjournProc},
706     {N_("Abort                F8"),"Abort", AbortProc},
707     {N_("Resign              F9"), "Resign", ResignProc},
708     {"----", NULL, NothingProc},
709     {N_("Stop Observing  F10"), "Stop Observing", StopObservingProc},
710     {N_("Stop Examining  F11"), "Stop Examining", StopExaminingProc},
711     {N_("Upload to Examine"),   "Upload to Examine", UploadProc},
712     {"----", NULL, NothingProc},
713     {N_("Adjudicate to White"), "Adjudicate to White", AdjuWhiteProc},
714     {N_("Adjudicate to Black"), "Adjudicate to Black", AdjuBlackProc},
715     {N_("Adjudicate Draw"),     "Adjudicate Draw", AdjuDrawProc},
716     {NULL, NULL, NULL}
717 };
718
719 MenuItem engineMenu[] = {
720     {N_("Load New Engine ..."), "Load Engine", LoadEngineProc},
721     {"----", NULL, NothingProc},
722     {N_("Engine #1 Settings ..."), "Engine #1 Settings", FirstSettingsProc},
723     {N_("Engine #2 Settings ..."), "Engine #2 Settings", SecondSettingsProc},
724     {"----", NULL, NothingProc},
725     {N_("Hint"), "Hint", HintProc},
726     {N_("Book"), "Book", BookProc},
727     {"----", NULL, NothingProc},
728     {N_("Move Now     Ctrl+M"),     "Move Now", MoveNowProc},
729     {N_("Retract Move  Ctrl+X"), "Retract Move", RetractMoveProc},
730     {NULL, NULL, NULL}
731 };
732
733 MenuItem optionsMenu[] = {
734 #define OPTIONSDIALOG
735 #ifdef OPTIONSDIALOG
736     {N_("General ..."), "General", OptionsProc},
737 #endif
738     {N_("Time Control ...       Alt+Shift+T"), "Time Control", TimeControlProc},
739     {N_("Common Engine ...  Alt+Shift+U"),     "Common Engine", UciMenuProc},
740     {N_("Adjudications ...      Alt+Shift+J"), "Adjudications", EngineMenuProc},
741     {N_("ICS ..."),    "ICS", IcsOptionsProc},
742     {N_("Match ..."), "Match", MatchOptionsProc},
743     {N_("Load Game ..."),    "Load Game", LoadOptionsProc},
744     {N_("Save Game ..."),    "Save Game", SaveOptionsProc},
745 //    {N_(" ..."),    "", OptionsProc},
746     {N_("Game List ..."),    "Game List", GameListOptionsPopUp},
747     {N_("Sounds ..."),    "Sounds", SoundOptionsProc},
748     {"----", NULL, NothingProc},
749 #ifndef OPTIONSDIALOG
750     {N_("Always Queen        Ctrl+Shift+Q"),   "Always Queen", AlwaysQueenProc},
751     {N_("Animate Dragging"), "Animate Dragging", AnimateDraggingProc},
752     {N_("Animate Moving      Ctrl+Shift+A"),   "Animate Moving", AnimateMovingProc},
753     {N_("Auto Flag               Ctrl+Shift+F"), "Auto Flag", AutoflagProc},
754     {N_("Auto Flip View"),   "Auto Flip View", AutoflipProc},
755     {N_("Blindfold"),        "Blindfold", BlindfoldProc},
756     {N_("Flash Moves"),      "Flash Moves", FlashMovesProc},
757 #if HIGHDRAG
758     {N_("Highlight Dragging"),    "Highlight Dragging", HighlightDraggingProc},
759 #endif
760     {N_("Highlight Last Move"),   "Highlight Last Move", HighlightLastMoveProc},
761     {N_("Highlight With Arrow"),  "Arrow", HighlightArrowProc},
762     {N_("Move Sound"),            "Move Sound", MoveSoundProc},
763 //    {N_("ICS Alarm"),             "ICS Alarm", IcsAlarmProc},
764     {N_("One-Click Moving"),      "OneClick", OneClickProc},
765     {N_("Periodic Updates"),      "Periodic Updates", PeriodicUpdatesProc},
766     {N_("Ponder Next Move  Ctrl+Shift+P"), "Ponder Next Move", PonderNextMoveProc},
767     {N_("Popup Exit Message"),    "Popup Exit Message", PopupExitMessageProc},
768     {N_("Popup Move Errors"),     "Popup Move Errors", PopupMoveErrorsProc},
769 //    {N_("Premove"),               "Premove", PremoveProc},
770     {N_("Show Coords"),           "Show Coords", ShowCoordsProc},
771     {N_("Hide Thinking        Ctrl+Shift+H"),   "Hide Thinking", HideThinkingProc},
772     {N_("Test Legality          Ctrl+Shift+L"), "Test Legality", TestLegalityProc},
773     {"----", NULL, NothingProc},
774 #endif
775     {N_("Save Settings Now"),     "Save Settings Now", SaveSettingsProc},
776     {N_("Save Settings on Exit"), "Save Settings on Exit", SaveOnExitProc},
777     {NULL, NULL, NULL}
778 };
779
780 MenuItem helpMenu[] = {
781     {N_("Info XBoard"),     "Info XBoard", InfoProc},
782     {N_("Man XBoard   F1"), "Man XBoard", ManProc},
783     {"----", NULL, NothingProc},
784     {N_("About XBoard"), "About XBoard", AboutProc},
785     {NULL, NULL, NULL}
786 };
787
788 Menu menuBar[] = {
789     {N_("File"),    "File", fileMenu},
790     {N_("Edit"),    "Edit", editMenu},
791     {N_("View"),    "View", viewMenu},
792     {N_("Mode"),    "Mode", modeMenu},
793     {N_("Action"),  "Action", actionMenu},
794     {N_("Engine"),  "Engine", engineMenu},
795     {N_("Options"), "Options", optionsMenu},
796     {N_("Help"),    "Help", helpMenu},
797     {NULL, NULL, NULL}
798 };
799
800 #define PAUSE_BUTTON "P"
801 MenuItem buttonBar[] = {
802     {"<<", "<<", ToStartProc},
803     {"<", "<", BackwardProc},
804     {PAUSE_BUTTON, PAUSE_BUTTON, PauseProc},
805     {">", ">", ForwardProc},
806     {">>", ">>", ToEndProc},
807     {NULL, NULL, NULL}
808 };
809
810 #define PIECE_MENU_SIZE 18
811 String pieceMenuStrings[2][PIECE_MENU_SIZE] = {
812     { N_("White"), "----", N_("Pawn"), N_("Knight"), N_("Bishop"), N_("Rook"),
813       N_("Queen"), N_("King"), "----", N_("Elephant"), N_("Cannon"),
814       N_("Archbishop"), N_("Chancellor"), "----", N_("Promote"), N_("Demote"),
815       N_("Empty square"), N_("Clear board") },
816     { N_("Black"), "----", N_("Pawn"), N_("Knight"), N_("Bishop"), N_("Rook"),
817       N_("Queen"), N_("King"), "----", N_("Elephant"), N_("Cannon"),
818       N_("Archbishop"), N_("Chancellor"), "----", N_("Promote"), N_("Demote"),
819       N_("Empty square"), N_("Clear board") }
820 };
821 /* must be in same order as pieceMenuStrings! */
822 ChessSquare pieceMenuTranslation[2][PIECE_MENU_SIZE] = {
823     { WhitePlay, (ChessSquare) 0, WhitePawn, WhiteKnight, WhiteBishop,
824         WhiteRook, WhiteQueen, WhiteKing, (ChessSquare) 0, WhiteAlfil,
825         WhiteCannon, WhiteAngel, WhiteMarshall, (ChessSquare) 0,
826         PromotePiece, DemotePiece, EmptySquare, ClearBoard },
827     { BlackPlay, (ChessSquare) 0, BlackPawn, BlackKnight, BlackBishop,
828         BlackRook, BlackQueen, BlackKing, (ChessSquare) 0, BlackAlfil,
829         BlackCannon, BlackAngel, BlackMarshall, (ChessSquare) 0,
830         PromotePiece, DemotePiece, EmptySquare, ClearBoard },
831 };
832
833 #define DROP_MENU_SIZE 6
834 String dropMenuStrings[DROP_MENU_SIZE] = {
835     "----", N_("Pawn"), N_("Knight"), N_("Bishop"), N_("Rook"), N_("Queen")
836   };
837 /* must be in same order as dropMenuStrings! */
838 ChessSquare dropMenuTranslation[DROP_MENU_SIZE] = {
839     (ChessSquare) 0, WhitePawn, WhiteKnight, WhiteBishop,
840     WhiteRook, WhiteQueen
841 };
842
843 typedef struct {
844     char piece;
845     char* widget;
846 } DropMenuEnables;
847
848 DropMenuEnables dmEnables[] = {
849     { 'P', "Pawn" },
850     { 'N', "Knight" },
851     { 'B', "Bishop" },
852     { 'R', "Rook" },
853     { 'Q', "Queen" }
854 };
855
856 Arg shellArgs[] = {
857     { XtNwidth, 0 },
858     { XtNheight, 0 },
859     { XtNminWidth, 0 },
860     { XtNminHeight, 0 },
861     { XtNmaxWidth, 0 },
862     { XtNmaxHeight, 0 }
863 };
864
865 Arg layoutArgs[] = {
866     { XtNborderWidth, 0 },
867     { XtNdefaultDistance, 0 },
868 };
869
870 Arg formArgs[] = {
871     { XtNborderWidth, 0 },
872     { XtNresizable, (XtArgVal) True },
873 };
874
875 Arg boardArgs[] = {
876     { XtNborderWidth, 0 },
877     { XtNwidth, 0 },
878     { XtNheight, 0 }
879 };
880
881 Arg titleArgs[] = {
882     { XtNjustify, (XtArgVal) XtJustifyRight },
883     { XtNlabel, (XtArgVal) "..." },
884     { XtNresizable, (XtArgVal) True },
885     { XtNresize, (XtArgVal) False }
886 };
887
888 Arg messageArgs[] = {
889     { XtNjustify, (XtArgVal) XtJustifyLeft },
890     { XtNlabel, (XtArgVal) "..." },
891     { XtNresizable, (XtArgVal) True },
892     { XtNresize, (XtArgVal) False }
893 };
894
895 Arg timerArgs[] = {
896     { XtNborderWidth, 0 },
897     { XtNjustify, (XtArgVal) XtJustifyLeft }
898 };
899
900 XtResource clientResources[] = {
901     { "flashCount", "flashCount", XtRInt, sizeof(int),
902         XtOffset(AppDataPtr, flashCount), XtRImmediate,
903         (XtPointer) FLASH_COUNT  },
904 };
905
906 XrmOptionDescRec shellOptions[] = {
907     { "-flashCount", "flashCount", XrmoptionSepArg, NULL },
908     { "-flash", "flashCount", XrmoptionNoArg, "3" },
909     { "-xflash", "flashCount", XrmoptionNoArg, "0" },
910 };
911
912 XtActionsRec boardActions[] = {
913     { "DrawPosition", DrawPositionProc },
914     { "HandleUserMove", HandleUserMove },
915     { "AnimateUserMove", AnimateUserMove },
916     { "HandlePV", HandlePV },
917     { "SelectPV", SelectPV },
918     { "StopPV", StopPV },
919     { "FileNameAction", FileNameAction },
920     { "AskQuestionProc", AskQuestionProc },
921     { "AskQuestionReplyAction", AskQuestionReplyAction },
922     { "PieceMenuPopup", PieceMenuPopup },
923     { "WhiteClock", WhiteClock },
924     { "BlackClock", BlackClock },
925     { "Iconify", Iconify },
926     { "ResetProc", ResetProc },
927     { "NewVariantProc", NewVariantProc },
928     { "LoadGameProc", LoadGameProc },
929     { "LoadNextGameProc", LoadNextGameProc },
930     { "LoadPrevGameProc", LoadPrevGameProc },
931     { "LoadSelectedProc", LoadSelectedProc },
932     { "SetFilterProc", SetFilterProc },
933     { "ReloadGameProc", ReloadGameProc },
934     { "LoadPositionProc", LoadPositionProc },
935     { "LoadNextPositionProc", LoadNextPositionProc },
936     { "LoadPrevPositionProc", LoadPrevPositionProc },
937     { "ReloadPositionProc", ReloadPositionProc },
938     { "CopyPositionProc", CopyPositionProc },
939     { "PastePositionProc", PastePositionProc },
940     { "CopyGameProc", CopyGameProc },
941     { "CopyGameListProc", CopyGameListProc },
942     { "PasteGameProc", PasteGameProc },
943     { "SaveGameProc", SaveGameProc },
944     { "SavePositionProc", SavePositionProc },
945     { "MailMoveProc", MailMoveProc },
946     { "ReloadCmailMsgProc", ReloadCmailMsgProc },
947     { "QuitProc", QuitProc },
948     { "MachineWhiteProc", MachineWhiteProc },
949     { "MachineBlackProc", MachineBlackProc },
950     { "AnalysisModeProc", AnalyzeModeProc },
951     { "AnalyzeFileProc", AnalyzeFileProc },
952     { "TwoMachinesProc", TwoMachinesProc },
953     { "IcsClientProc", IcsClientProc },
954     { "EditGameProc", EditGameProc },
955     { "EditPositionProc", EditPositionProc },
956     { "TrainingProc", EditPositionProc },
957     { "EngineOutputProc", EngineOutputProc}, // [HGM] Winboard_x engine-output window
958     { "EvalGraphProc", EvalGraphProc},       // [HGM] Winboard_x avaluation graph window
959     { "ShowGameListProc", ShowGameListProc },
960     { "ShowMoveListProc", HistoryShowProc},
961     { "EditTagsProc", EditCommentProc },
962     { "EditBookProc", EditBookProc },
963     { "EditCommentProc", EditCommentProc },
964     { "IcsInputBoxProc", IcsInputBoxProc },
965     { "PauseProc", PauseProc },
966     { "AcceptProc", AcceptProc },
967     { "DeclineProc", DeclineProc },
968     { "RematchProc", RematchProc },
969     { "CallFlagProc", CallFlagProc },
970     { "DrawProc", DrawProc },
971     { "AdjournProc", AdjournProc },
972     { "AbortProc", AbortProc },
973     { "ResignProc", ResignProc },
974     { "AdjuWhiteProc", AdjuWhiteProc },
975     { "AdjuBlackProc", AdjuBlackProc },
976     { "AdjuDrawProc", AdjuDrawProc },
977     { "TypeInProc", TypeInProc },
978     { "EnterKeyProc", EnterKeyProc },
979     { "UpKeyProc", UpKeyProc },
980     { "DownKeyProc", DownKeyProc },
981     { "StopObservingProc", StopObservingProc },
982     { "StopExaminingProc", StopExaminingProc },
983     { "UploadProc", UploadProc },
984     { "BackwardProc", BackwardProc },
985     { "ForwardProc", ForwardProc },
986     { "ToStartProc", ToStartProc },
987     { "ToEndProc", ToEndProc },
988     { "RevertProc", RevertProc },
989     { "AnnotateProc", AnnotateProc },
990     { "TruncateGameProc", TruncateGameProc },
991     { "MoveNowProc", MoveNowProc },
992     { "RetractMoveProc", RetractMoveProc },
993     { "EngineMenuProc", (XtActionProc) EngineMenuProc },
994     { "UciMenuProc", (XtActionProc) UciMenuProc },
995     { "TimeControlProc", (XtActionProc) TimeControlProc },
996     { "FlipViewProc", FlipViewProc },
997     { "PonderNextMoveProc", PonderNextMoveProc },
998 #ifndef OPTIONSDIALOG
999     { "AlwaysQueenProc", AlwaysQueenProc },
1000     { "AnimateDraggingProc", AnimateDraggingProc },
1001     { "AnimateMovingProc", AnimateMovingProc },
1002     { "AutoflagProc", AutoflagProc },
1003     { "AutoflipProc", AutoflipProc },
1004     { "BlindfoldProc", BlindfoldProc },
1005     { "FlashMovesProc", FlashMovesProc },
1006 #if HIGHDRAG
1007     { "HighlightDraggingProc", HighlightDraggingProc },
1008 #endif
1009     { "HighlightLastMoveProc", HighlightLastMoveProc },
1010 //    { "IcsAlarmProc", IcsAlarmProc },
1011     { "MoveSoundProc", MoveSoundProc },
1012     { "PeriodicUpdatesProc", PeriodicUpdatesProc },
1013     { "PopupExitMessageProc", PopupExitMessageProc },
1014     { "PopupMoveErrorsProc", PopupMoveErrorsProc },
1015 //    { "PremoveProc", PremoveProc },
1016     { "ShowCoordsProc", ShowCoordsProc },
1017     { "ShowThinkingProc", ShowThinkingProc },
1018     { "HideThinkingProc", HideThinkingProc },
1019     { "TestLegalityProc", TestLegalityProc },
1020 #endif
1021     { "SaveSettingsProc", SaveSettingsProc },
1022     { "SaveOnExitProc", SaveOnExitProc },
1023     { "InfoProc", InfoProc },
1024     { "ManProc", ManProc },
1025     { "HintProc", HintProc },
1026     { "BookProc", BookProc },
1027     { "AboutGameProc", AboutGameProc },
1028     { "AboutProc", AboutProc },
1029     { "DebugProc", DebugProc },
1030     { "NothingProc", NothingProc },
1031     { "CommentClick", (XtActionProc) CommentClick },
1032     { "CommentPopDown", (XtActionProc) CommentPopDown },
1033     { "TagsPopDown", (XtActionProc) TagsPopDown },
1034     { "ErrorPopDown", (XtActionProc) ErrorPopDown },
1035     { "ICSInputBoxPopDown", (XtActionProc) ICSInputBoxPopDown },
1036     { "FileNamePopDown", (XtActionProc) FileNamePopDown },
1037     { "AskQuestionPopDown", (XtActionProc) AskQuestionPopDown },
1038     { "GameListPopDown", (XtActionProc) GameListPopDown },
1039     { "GameListOptionsPopDown", (XtActionProc) GameListOptionsPopDown },
1040     { "PromotionPopDown", (XtActionProc) PromotionPopDown },
1041     { "HistoryPopDown", (XtActionProc) HistoryPopDown },
1042     { "EngineOutputPopDown", (XtActionProc) EngineOutputPopDown },
1043     { "EvalGraphPopDown", (XtActionProc) EvalGraphPopDown },
1044     { "ShufflePopDown", (XtActionProc) ShufflePopDown },
1045     { "TimeControlPopDown", (XtActionProc) TimeControlPopDown },
1046     { "GenericPopDown", (XtActionProc) GenericPopDown },
1047     { "CopyMemoProc", (XtActionProc) CopyMemoProc },
1048 };
1049
1050 char globalTranslations[] =
1051   ":<Key>F9: ResignProc() \n \
1052    :Ctrl<Key>n: ResetProc() \n \
1053    :Meta<Key>V: NewVariantProc() \n \
1054    :Ctrl<Key>o: LoadGameProc() \n \
1055    :Meta<Key>Next: LoadNextGameProc() \n \
1056    :Meta<Key>Prior: LoadPrevGameProc() \n \
1057    :Ctrl<Key>s: SaveGameProc() \n \
1058    :Ctrl<Key>c: CopyGameProc() \n \
1059    :Ctrl<Key>v: PasteGameProc() \n \
1060    :Ctrl<Key>O: LoadPositionProc() \n \
1061    :Shift<Key>Next: LoadNextPositionProc() \n \
1062    :Shift<Key>Prior: LoadPrevPositionProc() \n \
1063    :Ctrl<Key>S: SavePositionProc() \n \
1064    :Ctrl<Key>C: CopyPositionProc() \n \
1065    :Ctrl<Key>V: PastePositionProc() \n \
1066    :Ctrl<Key>q: QuitProc() \n \
1067    :Ctrl<Key>w: MachineWhiteProc() \n \
1068    :Ctrl<Key>b: MachineBlackProc() \n \
1069    :Ctrl<Key>t: TwoMachinesProc() \n \
1070    :Ctrl<Key>a: AnalysisModeProc() \n \
1071    :Ctrl<Key>f: AnalyzeFileProc() \n \
1072    :Ctrl<Key>e: EditGameProc() \n \
1073    :Ctrl<Key>E: EditPositionProc() \n \
1074    :Meta<Key>O: EngineOutputProc() \n \
1075    :Meta<Key>E: EvalGraphProc() \n \
1076    :Meta<Key>G: ShowGameListProc() \n \
1077    :Meta<Key>H: ShowMoveListProc() \n \
1078    :<Key>Pause: PauseProc() \n \
1079    :<Key>F3: AcceptProc() \n \
1080    :<Key>F4: DeclineProc() \n \
1081    :<Key>F12: RematchProc() \n \
1082    :<Key>F5: CallFlagProc() \n \
1083    :<Key>F6: DrawProc() \n \
1084    :<Key>F7: AdjournProc() \n \
1085    :<Key>F8: AbortProc() \n \
1086    :<Key>F10: StopObservingProc() \n \
1087    :<Key>F11: StopExaminingProc() \n \
1088    :Meta Ctrl<Key>F12: DebugProc() \n \
1089    :Meta<Key>End: ToEndProc() \n \
1090    :Meta<Key>Right: ForwardProc() \n \
1091    :Meta<Key>Home: ToStartProc() \n \
1092    :Meta<Key>Left: BackwardProc() \n \
1093    :<Key>Home: RevertProc() \n \
1094    :<Key>End: TruncateGameProc() \n \
1095    :Ctrl<Key>m: MoveNowProc() \n \
1096    :Ctrl<Key>x: RetractMoveProc() \n \
1097    :Meta<Key>J: EngineMenuProc() \n \
1098    :Meta<Key>U: UciMenuProc() \n \
1099    :Meta<Key>T: TimeControlProc() \n \
1100    :Ctrl<Key>P: PonderNextMoveProc() \n "
1101 #ifndef OPTIONSDIALOG
1102     "\
1103    :Ctrl<Key>Q: AlwaysQueenProc() \n \
1104    :Ctrl<Key>F: AutoflagProc() \n \
1105    :Ctrl<Key>A: AnimateMovingProc() \n \
1106    :Ctrl<Key>L: TestLegalityProc() \n \
1107    :Ctrl<Key>H: HideThinkingProc() \n "
1108 #endif
1109    "\
1110    :<Key>-: Iconify() \n \
1111    :<Key>F1: ManProc() \n \
1112    :<Key>F2: FlipViewProc() \n \
1113    <KeyDown>.: BackwardProc() \n \
1114    <KeyUp>.: ForwardProc() \n \
1115    Shift<Key>1: AskQuestionProc(\"Direct command\",\
1116                                 \"Send to chess program:\",,1) \n \
1117    Shift<Key>2: AskQuestionProc(\"Direct command\",\
1118                                 \"Send to second chess program:\",,2) \n";
1119
1120 char boardTranslations[] =
1121    "<Btn1Down>: HandleUserMove(0) \n \
1122    Shift<Btn1Up>: HandleUserMove(1) \n \
1123    <Btn1Up>: HandleUserMove(0) \n \
1124    <Btn1Motion>: AnimateUserMove() \n \
1125    <Btn3Motion>: HandlePV() \n \
1126    <Btn3Up>: PieceMenuPopup(menuB) \n \
1127    Shift<Btn2Down>: XawPositionSimpleMenu(menuB) XawPositionSimpleMenu(menuD)\
1128                  PieceMenuPopup(menuB) \n \
1129    Any<Btn2Down>: XawPositionSimpleMenu(menuW) XawPositionSimpleMenu(menuD) \
1130                  PieceMenuPopup(menuW) \n \
1131    Shift<Btn3Down>: XawPositionSimpleMenu(menuW) XawPositionSimpleMenu(menuD)\
1132                  PieceMenuPopup(menuW) \n \
1133    Any<Btn3Down>: XawPositionSimpleMenu(menuB) XawPositionSimpleMenu(menuD) \
1134                  PieceMenuPopup(menuB) \n";
1135
1136 char whiteTranslations[] = "<BtnDown>: WhiteClock()\n";
1137 char blackTranslations[] = "<BtnDown>: BlackClock()\n";
1138
1139 char ICSInputTranslations[] =
1140     "<Key>Up: UpKeyProc() \n "
1141     "<Key>Down: DownKeyProc() \n "
1142     "<Key>Return: EnterKeyProc() \n";
1143
1144 // [HGM] vari: another hideous kludge: call extend-end first so we can be sure select-start works,
1145 //             as the widget is destroyed before the up-click can call extend-end
1146 char commentTranslations[] = "<Btn3Down>: extend-end() select-start() CommentClick() \n";
1147
1148 String xboardResources[] = {
1149     "*fileName*value.translations: #override\\n <Key>Return: FileNameAction()",
1150     "*question*value.translations: #override\\n <Key>Return: AskQuestionReplyAction()",
1151     "*errorpopup*translations: #override\\n <Key>Return: ErrorPopDown()",
1152     NULL
1153   };
1154
1155
1156 /* Max possible square size */
1157 #define MAXSQSIZE 256
1158
1159 static int xpm_avail[MAXSQSIZE];
1160
1161 #ifdef HAVE_DIR_STRUCT
1162
1163 /* Extract piece size from filename */
1164 static int
1165 xpm_getsize(name, len, ext)
1166      char *name;
1167      int len;
1168      char *ext;
1169 {
1170     char *p, *d;
1171     char buf[10];
1172
1173     if (len < 4)
1174       return 0;
1175
1176     if ((p=strchr(name, '.')) == NULL ||
1177         StrCaseCmp(p+1, ext) != 0)
1178       return 0;
1179
1180     p = name + 3;
1181     d = buf;
1182
1183     while (*p && isdigit(*p))
1184       *(d++) = *(p++);
1185
1186     *d = 0;
1187     return atoi(buf);
1188 }
1189
1190 /* Setup xpm_avail */
1191 static int
1192 xpm_getavail(dirname, ext)
1193      char *dirname;
1194      char *ext;
1195 {
1196     DIR *dir;
1197     struct dirent *ent;
1198     int  i;
1199
1200     for (i=0; i<MAXSQSIZE; ++i)
1201       xpm_avail[i] = 0;
1202
1203     if (appData.debugMode)
1204       fprintf(stderr, "XPM dir:%s:ext:%s:\n", dirname, ext);
1205
1206     dir = opendir(dirname);
1207     if (!dir)
1208       {
1209           fprintf(stderr, _("%s: Can't access XPM directory %s\n"),
1210                   programName, dirname);
1211           exit(1);
1212       }
1213
1214     while ((ent=readdir(dir)) != NULL) {
1215         i = xpm_getsize(ent->d_name, NAMLEN(ent), ext);
1216         if (i > 0 && i < MAXSQSIZE)
1217           xpm_avail[i] = 1;
1218     }
1219
1220     closedir(dir);
1221
1222     return 0;
1223 }
1224
1225 void
1226 xpm_print_avail(fp, ext)
1227      FILE *fp;
1228      char *ext;
1229 {
1230     int i;
1231
1232     fprintf(fp, _("Available `%s' sizes:\n"), ext);
1233     for (i=1; i<MAXSQSIZE; ++i) {
1234         if (xpm_avail[i])
1235           printf("%d\n", i);
1236     }
1237 }
1238
1239 /* Return XPM piecesize closest to size */
1240 int
1241 xpm_closest_to(dirname, size, ext)
1242      char *dirname;
1243      int size;
1244      char *ext;
1245 {
1246     int i;
1247     int sm_diff = MAXSQSIZE;
1248     int sm_index = 0;
1249     int diff;
1250
1251     xpm_getavail(dirname, ext);
1252
1253     if (appData.debugMode)
1254       xpm_print_avail(stderr, ext);
1255
1256     for (i=1; i<MAXSQSIZE; ++i) {
1257         if (xpm_avail[i]) {
1258             diff = size - i;
1259             diff = (diff<0) ? -diff : diff;
1260             if (diff < sm_diff) {
1261                 sm_diff = diff;
1262                 sm_index = i;
1263             }
1264         }
1265     }
1266
1267     if (!sm_index) {
1268         fprintf(stderr, _("Error: No `%s' files!\n"), ext);
1269         exit(1);
1270     }
1271
1272     return sm_index;
1273 }
1274 #else   /* !HAVE_DIR_STRUCT */
1275 /* If we are on a system without a DIR struct, we can't
1276    read the directory, so we can't collect a list of
1277    filenames, etc., so we can't do any size-fitting. */
1278 int
1279 xpm_closest_to(dirname, size, ext)
1280      char *dirname;
1281      int size;
1282      char *ext;
1283 {
1284     fprintf(stderr, _("\
1285 Warning: No DIR structure found on this system --\n\
1286          Unable to autosize for XPM/XIM pieces.\n\
1287    Please report this error to %s.\n\
1288    Include system type & operating system in message.\n"), PACKAGE_BUGREPORT););
1289     return size;
1290 }
1291 #endif /* HAVE_DIR_STRUCT */
1292
1293 static char *cnames[9] = { "black", "red", "green", "yellow", "blue",
1294                              "magenta", "cyan", "white" };
1295 typedef struct {
1296     int attr, bg, fg;
1297 } TextColors;
1298 TextColors textColors[(int)NColorClasses];
1299
1300 /* String is: "fg, bg, attr". Which is 0, 1, 2 */
1301 static int
1302 parse_color(str, which)
1303      char *str;
1304      int which;
1305 {
1306     char *p, buf[100], *d;
1307     int i;
1308
1309     if (strlen(str) > 99)       /* watch bounds on buf */
1310       return -1;
1311
1312     p = str;
1313     d = buf;
1314     for (i=0; i<which; ++i) {
1315         p = strchr(p, ',');
1316         if (!p)
1317           return -1;
1318         ++p;
1319     }
1320
1321     /* Could be looking at something like:
1322        black, , 1
1323        .. in which case we want to stop on a comma also */
1324     while (*p && *p != ',' && !isalpha(*p) && !isdigit(*p))
1325       ++p;
1326
1327     if (*p == ',') {
1328         return -1;              /* Use default for empty field */
1329     }
1330
1331     if (which == 2 || isdigit(*p))
1332       return atoi(p);
1333
1334     while (*p && isalpha(*p))
1335       *(d++) = *(p++);
1336
1337     *d = 0;
1338
1339     for (i=0; i<8; ++i) {
1340         if (!StrCaseCmp(buf, cnames[i]))
1341           return which? (i+40) : (i+30);
1342     }
1343     if (!StrCaseCmp(buf, "default")) return -1;
1344
1345     fprintf(stderr, _("%s: unrecognized color %s\n"), programName, buf);
1346     return -2;
1347 }
1348
1349 static int
1350 parse_cpair(cc, str)
1351      ColorClass cc;
1352      char *str;
1353 {
1354     if ((textColors[(int)cc].fg=parse_color(str, 0)) == -2) {
1355         fprintf(stderr, _("%s: can't parse foreground color in `%s'\n"),
1356                 programName, str);
1357         return -1;
1358     }
1359
1360     /* bg and attr are optional */
1361     textColors[(int)cc].bg = parse_color(str, 1);
1362     if ((textColors[(int)cc].attr = parse_color(str, 2)) < 0) {
1363         textColors[(int)cc].attr = 0;
1364     }
1365     return 0;
1366 }
1367
1368
1369 /* Arrange to catch delete-window events */
1370 Atom wm_delete_window;
1371 void
1372 CatchDeleteWindow(Widget w, String procname)
1373 {
1374   char buf[MSG_SIZ];
1375   XSetWMProtocols(xDisplay, XtWindow(w), &wm_delete_window, 1);
1376   snprintf(buf, sizeof(buf), "<Message>WM_PROTOCOLS: %s() \n", procname);
1377   XtAugmentTranslations(w, XtParseTranslationTable(buf));
1378 }
1379
1380 void
1381 BoardToTop()
1382 {
1383   Arg args[16];
1384   XtSetArg(args[0], XtNiconic, False);
1385   XtSetValues(shellWidget, args, 1);
1386
1387   XtPopup(shellWidget, XtGrabNone); /* Raise if lowered  */
1388 }
1389
1390 //---------------------------------------------------------------------------------------------------------
1391 // some symbol definitions to provide the proper (= XBoard) context for the code in args.h
1392 #define XBOARD True
1393 #define JAWS_ARGS
1394 #define CW_USEDEFAULT (1<<31)
1395 #define ICS_TEXT_MENU_SIZE 90
1396 #define DEBUG_FILE "xboard.debug"
1397 #define SetCurrentDirectory chdir
1398 #define GetCurrentDirectory(SIZE, NAME) getcwd(NAME, SIZE)
1399 #define OPTCHAR "-"
1400 #define SEPCHAR " "
1401
1402 // these two must some day move to frontend.h, when they are implemented
1403 Boolean GameListIsUp();
1404
1405 // The option definition and parsing code common to XBoard and WinBoard is collected in this file
1406 #include "args.h"
1407
1408 // front-end part of option handling
1409
1410 // [HGM] This platform-dependent table provides the location for storing the color info
1411 extern char *crWhite, * crBlack;
1412
1413 void *
1414 colorVariable[] = {
1415   &appData.whitePieceColor,
1416   &appData.blackPieceColor,
1417   &appData.lightSquareColor,
1418   &appData.darkSquareColor,
1419   &appData.highlightSquareColor,
1420   &appData.premoveHighlightColor,
1421   &appData.lowTimeWarningColor,
1422   NULL,
1423   NULL,
1424   NULL,
1425   NULL,
1426   NULL,
1427   &crWhite,
1428   &crBlack,
1429   NULL
1430 };
1431
1432 // [HGM] font: keep a font for each square size, even non-stndard ones
1433 #define NUM_SIZES 18
1434 #define MAX_SIZE 130
1435 Boolean fontIsSet[NUM_FONTS], fontValid[NUM_FONTS][MAX_SIZE];
1436 char *fontTable[NUM_FONTS][MAX_SIZE];
1437
1438 void
1439 ParseFont(char *name, int number)
1440 { // in XBoard, only 2 of the fonts are currently implemented, and we just copy their name
1441   int size;
1442   if(sscanf(name, "size%d:", &size)) {
1443     // [HGM] font: font is meant for specific boardSize (likely from settings file);
1444     //       defer processing it until we know if it matches our board size
1445     if(size >= 0 && size<MAX_SIZE) { // for now, fixed limit
1446         fontTable[number][size] = strdup(strchr(name, ':')+1);
1447         fontValid[number][size] = True;
1448     }
1449     return;
1450   }
1451   switch(number) {
1452     case 0: // CLOCK_FONT
1453         appData.clockFont = strdup(name);
1454       break;
1455     case 1: // MESSAGE_FONT
1456         appData.font = strdup(name);
1457       break;
1458     case 2: // COORD_FONT
1459         appData.coordFont = strdup(name);
1460       break;
1461     default:
1462       return;
1463   }
1464   fontIsSet[number] = True; // [HGM] font: indicate a font was specified (not from settings file)
1465 }
1466
1467 void
1468 SetFontDefaults()
1469 { // only 2 fonts currently
1470   appData.clockFont = CLOCK_FONT_NAME;
1471   appData.coordFont = COORD_FONT_NAME;
1472   appData.font  =   DEFAULT_FONT_NAME;
1473 }
1474
1475 void
1476 CreateFonts()
1477 { // no-op, until we identify the code for this already in XBoard and move it here
1478 }
1479
1480 void
1481 ParseColor(int n, char *name)
1482 { // in XBoard, just copy the color-name string
1483   if(colorVariable[n]) *(char**)colorVariable[n] = strdup(name);
1484 }
1485
1486 void
1487 ParseTextAttribs(ColorClass cc, char *s)
1488 {
1489     (&appData.colorShout)[cc] = strdup(s);
1490 }
1491
1492 void
1493 ParseBoardSize(void *addr, char *name)
1494 {
1495     appData.boardSize = strdup(name);
1496 }
1497
1498 void
1499 LoadAllSounds()
1500 { // In XBoard the sound-playing program takes care of obtaining the actual sound
1501 }
1502
1503 void
1504 SetCommPortDefaults()
1505 { // for now, this is a no-op, as the corresponding option does not exist in XBoard
1506 }
1507
1508 // [HGM] args: these three cases taken out to stay in front-end
1509 void
1510 SaveFontArg(FILE *f, ArgDescriptor *ad)
1511 {
1512   char *name;
1513   int i, n = (int)(intptr_t)ad->argLoc;
1514   switch(n) {
1515     case 0: // CLOCK_FONT
1516         name = appData.clockFont;
1517       break;
1518     case 1: // MESSAGE_FONT
1519         name = appData.font;
1520       break;
1521     case 2: // COORD_FONT
1522         name = appData.coordFont;
1523       break;
1524     default:
1525       return;
1526   }
1527   for(i=0; i<NUM_SIZES; i++) // [HGM] font: current font becomes standard for current size
1528     if(sizeDefaults[i].squareSize == squareSize) { // only for standard sizes!
1529         fontTable[n][squareSize] = strdup(name);
1530         fontValid[n][squareSize] = True;
1531         break;
1532   }
1533   for(i=0; i<MAX_SIZE; i++) if(fontValid[n][i]) // [HGM] font: store all standard fonts
1534     fprintf(f, OPTCHAR "%s" SEPCHAR "\"size%d:%s\"\n", ad->argName, i, fontTable[n][i]);
1535 }
1536
1537 void
1538 ExportSounds()
1539 { // nothing to do, as the sounds are at all times represented by their text-string names already
1540 }
1541
1542 void
1543 SaveAttribsArg(FILE *f, ArgDescriptor *ad)
1544 {       // here the "argLoc" defines a table index. It could have contained the 'ta' pointer itself, though
1545         fprintf(f, OPTCHAR "%s" SEPCHAR "%s\n", ad->argName, (&appData.colorShout)[(int)(intptr_t)ad->argLoc]);
1546 }
1547
1548 void
1549 SaveColor(FILE *f, ArgDescriptor *ad)
1550 {       // in WinBoard the color is an int and has to be converted to text. In X it would be a string already?
1551         if(colorVariable[(int)(intptr_t)ad->argLoc])
1552         fprintf(f, OPTCHAR "%s" SEPCHAR "%s\n", ad->argName, *(char**)colorVariable[(int)(intptr_t)ad->argLoc]);
1553 }
1554
1555 void
1556 SaveBoardSize(FILE *f, char *name, void *addr)
1557 { // wrapper to shield back-end from BoardSize & sizeInfo
1558   fprintf(f, OPTCHAR "%s" SEPCHAR "%s\n", name, appData.boardSize);
1559 }
1560
1561 void
1562 ParseCommPortSettings(char *s)
1563 { // no such option in XBoard (yet)
1564 }
1565
1566 extern Widget engineOutputShell;
1567
1568 void
1569 GetActualPlacement(Widget wg, WindowPlacement *wp)
1570 {
1571   Arg args[16];
1572   Dimension w, h;
1573   Position x, y;
1574   int i;
1575
1576   if(!wg) return;
1577
1578     i = 0;
1579     XtSetArg(args[i], XtNx, &x); i++;
1580     XtSetArg(args[i], XtNy, &y); i++;
1581     XtSetArg(args[i], XtNwidth, &w); i++;
1582     XtSetArg(args[i], XtNheight, &h); i++;
1583     XtGetValues(wg, args, i);
1584     wp->x = x - 4;
1585     wp->y = y - 23;
1586     wp->height = h;
1587     wp->width = w;
1588 }
1589
1590 void
1591 GetWindowCoords()
1592 { // wrapper to shield use of window handles from back-end (make addressible by number?)
1593   // In XBoard this will have to wait until awareness of window parameters is implemented
1594   GetActualPlacement(shellWidget, &wpMain);
1595   if(EngineOutputIsUp()) GetActualPlacement(engineOutputShell, &wpEngineOutput); else
1596   if(MoveHistoryIsUp()) GetActualPlacement(historyShell, &wpMoveHistory);
1597   if(EvalGraphIsUp()) GetActualPlacement(evalGraphShell, &wpEvalGraph);
1598   if(GameListIsUp()) GetActualPlacement(gameListShell, &wpGameList);
1599   if(shellUp[1]) GetActualPlacement(shells[1], &wpComment);
1600   if(shellUp[2]) GetActualPlacement(shells[2], &wpTags);
1601 }
1602
1603 void
1604 PrintCommPortSettings(FILE *f, char *name)
1605 { // This option does not exist in XBoard
1606 }
1607
1608 int
1609 MySearchPath(char *installDir, char *name, char *fullname)
1610 { // just append installDir and name. Perhaps ExpandPath should be used here?
1611   name = ExpandPathName(name);
1612   if(name && name[0] == '/')
1613     safeStrCpy(fullname, name, MSG_SIZ );
1614   else {
1615     sprintf(fullname, "%s%c%s", installDir, '/', name);
1616   }
1617   return 1;
1618 }
1619
1620 int
1621 MyGetFullPathName(char *name, char *fullname)
1622 { // should use ExpandPath?
1623   name = ExpandPathName(name);
1624   safeStrCpy(fullname, name, MSG_SIZ );
1625   return 1;
1626 }
1627
1628 void
1629 EnsureOnScreen(int *x, int *y, int minX, int minY)
1630 {
1631   return;
1632 }
1633
1634 int
1635 MainWindowUp()
1636 { // [HGM] args: allows testing if main window is realized from back-end
1637   return xBoardWindow != 0;
1638 }
1639
1640 void
1641 PopUpStartupDialog()
1642 {  // start menu not implemented in XBoard
1643 }
1644
1645 char *
1646 ConvertToLine(int argc, char **argv)
1647 {
1648   static char line[128*1024], buf[1024];
1649   int i;
1650
1651   line[0] = NULLCHAR;
1652   for(i=1; i<argc; i++)
1653     {
1654       if( (strchr(argv[i], ' ') || strchr(argv[i], '\n') ||strchr(argv[i], '\t') )
1655           && argv[i][0] != '{' )
1656         snprintf(buf, sizeof(buf)/sizeof(buf[0]), "{%s} ", argv[i]);
1657       else
1658         snprintf(buf, sizeof(buf)/sizeof(buf[0]), "%s ", argv[i]);
1659       strncat(line, buf, 128*1024 - strlen(line) - 1 );
1660     }
1661
1662   line[strlen(line)-1] = NULLCHAR;
1663   return line;
1664 }
1665
1666 //--------------------------------------------------------------------------------------------
1667
1668 extern Boolean twoBoards, partnerUp;
1669
1670 #ifdef IDSIZES
1671   // eventually, all layout determining code should go into a subroutine, but until then IDSIZE remains undefined
1672 #else
1673 #define BoardSize int
1674 void InitDrawingSizes(BoardSize boardSize, int flags)
1675 {   // [HGM] resize is functional now, but for board format changes only (nr of ranks, files)
1676     Dimension timerWidth, boardWidth, boardHeight, w, h, sep, bor, wr, hr;
1677     Arg args[16];
1678     XtGeometryResult gres;
1679     int i;
1680
1681     if(!formWidget) return;
1682
1683     /*
1684      * Enable shell resizing.
1685      */
1686     shellArgs[0].value = (XtArgVal) &w;
1687     shellArgs[1].value = (XtArgVal) &h;
1688     XtGetValues(shellWidget, shellArgs, 2);
1689
1690     shellArgs[4].value = 3*w; shellArgs[2].value = 10;
1691     shellArgs[5].value = 2*h; shellArgs[3].value = 10;
1692     XtSetValues(shellWidget, &shellArgs[2], 4);
1693
1694     XtSetArg(args[0], XtNdefaultDistance, &sep);
1695     XtGetValues(formWidget, args, 1);
1696
1697     if(appData.overrideLineGap >= 0) lineGap = appData.overrideLineGap;
1698     boardWidth = lineGap + BOARD_WIDTH * (squareSize + lineGap);
1699     boardHeight = lineGap + BOARD_HEIGHT * (squareSize + lineGap);
1700     CreateGrid();
1701     hOffset = boardWidth + 10;
1702     for(i=0; i<BOARD_WIDTH+BOARD_HEIGHT+2; i++) { // [HGM] dual: grid for second board
1703         secondSegments[i] = gridSegments[i];
1704         secondSegments[i].x1 += hOffset;
1705         secondSegments[i].x2 += hOffset;
1706     }
1707
1708     XtSetArg(args[0], XtNwidth, boardWidth);
1709     XtSetArg(args[1], XtNheight, boardHeight);
1710     XtSetValues(boardWidget, args, 2);
1711
1712     timerWidth = (boardWidth - sep) / 2;
1713     XtSetArg(args[0], XtNwidth, timerWidth);
1714     XtSetValues(whiteTimerWidget, args, 1);
1715     XtSetValues(blackTimerWidget, args, 1);
1716
1717     XawFormDoLayout(formWidget, False);
1718
1719     if (appData.titleInWindow) {
1720         i = 0;
1721         XtSetArg(args[i], XtNborderWidth, &bor); i++;
1722         XtSetArg(args[i], XtNheight, &h);  i++;
1723         XtGetValues(titleWidget, args, i);
1724         if (smallLayout) {
1725             w = boardWidth - 2*bor;
1726         } else {
1727             XtSetArg(args[0], XtNwidth, &w);
1728             XtGetValues(menuBarWidget, args, 1);
1729             w = boardWidth - w - sep - 2*bor - 2; // WIDTH_FUDGE
1730         }
1731
1732         gres = XtMakeResizeRequest(titleWidget, w, h, &wr, &hr);
1733         if (gres != XtGeometryYes && appData.debugMode) {
1734             fprintf(stderr,
1735                     _("%s: titleWidget geometry error %d %d %d %d %d\n"),
1736                     programName, gres, w, h, wr, hr);
1737         }
1738     }
1739
1740     XawFormDoLayout(formWidget, True);
1741
1742     /*
1743      * Inhibit shell resizing.
1744      */
1745     shellArgs[0].value = w = (XtArgVal) boardWidth + marginW + twoBoards*hOffset; // [HGM] dual
1746     shellArgs[1].value = h = (XtArgVal) boardHeight + marginH;
1747     shellArgs[4].value = shellArgs[2].value = w;
1748     shellArgs[5].value = shellArgs[3].value = h;
1749     XtSetValues(shellWidget, &shellArgs[0], 6);
1750
1751     // [HGM] pieces: tailor piece bitmaps to needs of specific variant
1752     // (only for xpm)
1753     if(useImages) {
1754       for(i=0; i<4; i++) {
1755         int p;
1756         for(p=0; p<=(int)WhiteKing; p++)
1757            xpmPieceBitmap[i][p] = xpmPieceBitmap2[i][p]; // defaults
1758         if(gameInfo.variant == VariantShogi) {
1759            xpmPieceBitmap[i][(int)WhiteCannon] = xpmPieceBitmap2[i][(int)WhiteKing+1];
1760            xpmPieceBitmap[i][(int)WhiteNightrider] = xpmPieceBitmap2[i][(int)WhiteKing+2];
1761            xpmPieceBitmap[i][(int)WhiteSilver] = xpmPieceBitmap2[i][(int)WhiteKing+3];
1762            xpmPieceBitmap[i][(int)WhiteGrasshopper] = xpmPieceBitmap2[i][(int)WhiteKing+4];
1763            xpmPieceBitmap[i][(int)WhiteQueen] = xpmPieceBitmap2[i][(int)WhiteLance];
1764         }
1765 #ifdef GOTHIC
1766         if(gameInfo.variant == VariantGothic) {
1767            xpmPieceBitmap[i][(int)WhiteMarshall] = xpmPieceBitmap2[i][(int)WhiteSilver];
1768         }
1769 #endif
1770         if(gameInfo.variant == VariantSChess && (squareSize == 49 || squareSize == 72)) {
1771            xpmPieceBitmap[i][(int)WhiteAngel]    = xpmPieceBitmap2[i][(int)WhiteFalcon];
1772            xpmPieceBitmap[i][(int)WhiteMarshall] = xpmPieceBitmap2[i][(int)WhiteAlfil];
1773         }
1774 #if !HAVE_LIBXPM
1775         // [HGM] why are thee ximMasks used at all? the ximPieceBitmaps seem to be never used!
1776         for(p=0; p<=(int)WhiteKing; p++)
1777            ximMaskPm[p] = ximMaskPm2[p]; // defaults
1778         if(gameInfo.variant == VariantShogi) {
1779            ximMaskPm[(int)WhiteCannon] = ximMaskPm2[(int)WhiteKing+1];
1780            ximMaskPm[(int)WhiteNightrider] = ximMaskPm2[(int)WhiteKing+2];
1781            ximMaskPm[(int)WhiteSilver] = ximMaskPm2[(int)WhiteKing+3];
1782            ximMaskPm[(int)WhiteGrasshopper] = ximMaskPm2[(int)WhiteKing+4];
1783            ximMaskPm[(int)WhiteQueen] = ximMaskPm2[(int)WhiteLance];
1784         }
1785 #ifdef GOTHIC
1786         if(gameInfo.variant == VariantGothic) {
1787            ximMaskPm[(int)WhiteMarshall] = ximMaskPm2[(int)WhiteSilver];
1788         }
1789 #endif
1790         if(gameInfo.variant == VariantSChess && (squareSize == 49 || squareSize == 72)) {
1791            ximMaskPm[(int)WhiteAngel]    = ximMaskPm2[(int)WhiteFalcon];
1792            ximMaskPm[(int)WhiteMarshall] = ximMaskPm2[(int)WhiteAlfil];
1793         }
1794 #endif
1795       }
1796     } else {
1797       for(i=0; i<2; i++) {
1798         int p;
1799         for(p=0; p<=(int)WhiteKing; p++)
1800            pieceBitmap[i][p] = pieceBitmap2[i][p]; // defaults
1801         if(gameInfo.variant == VariantShogi) {
1802            pieceBitmap[i][(int)WhiteCannon] = pieceBitmap2[i][(int)WhiteKing+1];
1803            pieceBitmap[i][(int)WhiteNightrider] = pieceBitmap2[i][(int)WhiteKing+2];
1804            pieceBitmap[i][(int)WhiteSilver] = pieceBitmap2[i][(int)WhiteKing+3];
1805            pieceBitmap[i][(int)WhiteGrasshopper] = pieceBitmap2[i][(int)WhiteKing+4];
1806            pieceBitmap[i][(int)WhiteQueen] = pieceBitmap2[i][(int)WhiteLance];
1807         }
1808 #ifdef GOTHIC
1809         if(gameInfo.variant == VariantGothic) {
1810            pieceBitmap[i][(int)WhiteMarshall] = pieceBitmap2[i][(int)WhiteSilver];
1811         }
1812 #endif
1813         if(gameInfo.variant == VariantSChess && (squareSize == 49 || squareSize == 72)) {
1814            pieceBitmap[i][(int)WhiteAngel]    = pieceBitmap2[i][(int)WhiteFalcon];
1815            pieceBitmap[i][(int)WhiteMarshall] = pieceBitmap2[i][(int)WhiteAlfil];
1816         }
1817       }
1818     }
1819 #if HAVE_LIBXPM
1820     CreateAnimVars();
1821 #endif
1822 }
1823 #endif
1824
1825 void ParseIcsTextColors()
1826 {   // [HGM] tken out of main(), so it can be called from ICS-Options dialog
1827     if (parse_cpair(ColorShout, appData.colorShout) < 0 ||
1828         parse_cpair(ColorSShout, appData.colorSShout) < 0 ||
1829         parse_cpair(ColorChannel1, appData.colorChannel1) < 0  ||
1830         parse_cpair(ColorChannel, appData.colorChannel) < 0  ||
1831         parse_cpair(ColorKibitz, appData.colorKibitz) < 0 ||
1832         parse_cpair(ColorTell, appData.colorTell) < 0 ||
1833         parse_cpair(ColorChallenge, appData.colorChallenge) < 0  ||
1834         parse_cpair(ColorRequest, appData.colorRequest) < 0  ||
1835         parse_cpair(ColorSeek, appData.colorSeek) < 0  ||
1836         parse_cpair(ColorNormal, appData.colorNormal) < 0)
1837       {
1838           if (appData.colorize) {
1839               fprintf(stderr,
1840                       _("%s: can't parse color names; disabling colorization\n"),
1841                       programName);
1842           }
1843           appData.colorize = FALSE;
1844       }
1845 }
1846
1847 int MakeColors()
1848 {   // [HGM] taken out of main(), so it can be called from BoardOptions dialog
1849     XrmValue vFrom, vTo;
1850     int forceMono = False;
1851
1852     if (!appData.monoMode) {
1853         vFrom.addr = (caddr_t) appData.lightSquareColor;
1854         vFrom.size = strlen(appData.lightSquareColor);
1855         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1856         if (vTo.addr == NULL) {
1857           appData.monoMode = True;
1858           forceMono = True;
1859         } else {
1860           lightSquareColor = *(Pixel *) vTo.addr;
1861         }
1862     }
1863     if (!appData.monoMode) {
1864         vFrom.addr = (caddr_t) appData.darkSquareColor;
1865         vFrom.size = strlen(appData.darkSquareColor);
1866         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1867         if (vTo.addr == NULL) {
1868           appData.monoMode = True;
1869           forceMono = True;
1870         } else {
1871           darkSquareColor = *(Pixel *) vTo.addr;
1872         }
1873     }
1874     if (!appData.monoMode) {
1875         vFrom.addr = (caddr_t) appData.whitePieceColor;
1876         vFrom.size = strlen(appData.whitePieceColor);
1877         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1878         if (vTo.addr == NULL) {
1879           appData.monoMode = True;
1880           forceMono = True;
1881         } else {
1882           whitePieceColor = *(Pixel *) vTo.addr;
1883         }
1884     }
1885     if (!appData.monoMode) {
1886         vFrom.addr = (caddr_t) appData.blackPieceColor;
1887         vFrom.size = strlen(appData.blackPieceColor);
1888         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1889         if (vTo.addr == NULL) {
1890           appData.monoMode = True;
1891           forceMono = True;
1892         } else {
1893           blackPieceColor = *(Pixel *) vTo.addr;
1894         }
1895     }
1896
1897     if (!appData.monoMode) {
1898         vFrom.addr = (caddr_t) appData.highlightSquareColor;
1899         vFrom.size = strlen(appData.highlightSquareColor);
1900         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1901         if (vTo.addr == NULL) {
1902           appData.monoMode = True;
1903           forceMono = True;
1904         } else {
1905           highlightSquareColor = *(Pixel *) vTo.addr;
1906         }
1907     }
1908
1909     if (!appData.monoMode) {
1910         vFrom.addr = (caddr_t) appData.premoveHighlightColor;
1911         vFrom.size = strlen(appData.premoveHighlightColor);
1912         XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
1913         if (vTo.addr == NULL) {
1914           appData.monoMode = True;
1915           forceMono = True;
1916         } else {
1917           premoveHighlightColor = *(Pixel *) vTo.addr;
1918         }
1919     }
1920     return forceMono;
1921 }
1922
1923 void
1924 CreateAnyPieces()
1925 {   // [HGM] taken out of main
1926 #if HAVE_LIBXPM
1927     if (appData.monoMode && // [HGM] no sense to go on to certain doom
1928        (appData.bitmapDirectory == NULL || appData.bitmapDirectory[0] == NULLCHAR))
1929             appData.bitmapDirectory = DEF_BITMAP_DIR;
1930
1931     if (appData.bitmapDirectory[0] != NULLCHAR) {
1932       CreatePieces();
1933     } else {
1934       CreateXPMPieces();
1935       CreateXPMBoard(appData.liteBackTextureFile, 1);
1936       CreateXPMBoard(appData.darkBackTextureFile, 0);
1937     }
1938 #else
1939     CreateXIMPieces();
1940     /* Create regular pieces */
1941     if (!useImages) CreatePieces();
1942 #endif
1943 }
1944
1945 int
1946 main(argc, argv)
1947      int argc;
1948      char **argv;
1949 {
1950     int i, j, clockFontPxlSize, coordFontPxlSize, fontPxlSize;
1951     XSetWindowAttributes window_attributes;
1952     Arg args[16];
1953     Dimension timerWidth, boardWidth, boardHeight, w, h, sep, bor, wr, hr;
1954     XrmValue vFrom, vTo;
1955     XtGeometryResult gres;
1956     char *p;
1957     XrmDatabase xdb;
1958     int forceMono = False;
1959
1960     srandom(time(0)); // [HGM] book: make random truly random
1961
1962     setbuf(stdout, NULL);
1963     setbuf(stderr, NULL);
1964     debugFP = stderr;
1965
1966     if(argc > 1 && (!strcmp(argv[1], "-v" ) || !strcmp(argv[1], "--version" ))) {
1967         printf("%s version %s\n", PACKAGE_NAME, PACKAGE_VERSION);
1968         exit(0);
1969     }
1970
1971     programName = strrchr(argv[0], '/');
1972     if (programName == NULL)
1973       programName = argv[0];
1974     else
1975       programName++;
1976
1977 #ifdef ENABLE_NLS
1978     XtSetLanguageProc(NULL, NULL, NULL);
1979     bindtextdomain(PACKAGE, LOCALEDIR);
1980     textdomain(PACKAGE);
1981 #endif
1982
1983     shellWidget =
1984       XtAppInitialize(&appContext, "XBoard", shellOptions,
1985                       XtNumber(shellOptions),
1986                       &argc, argv, xboardResources, NULL, 0);
1987     appData.boardSize = "";
1988     InitAppData(ConvertToLine(argc, argv));
1989     p = getenv("HOME");
1990     if (p == NULL) p = "/tmp";
1991     i = strlen(p) + strlen("/.xboardXXXXXx.pgn") + 1;
1992     gameCopyFilename = (char*) malloc(i);
1993     gamePasteFilename = (char*) malloc(i);
1994     snprintf(gameCopyFilename,i, "%s/.xboard%05uc.pgn", p, getpid());
1995     snprintf(gamePasteFilename,i, "%s/.xboard%05up.pgn", p, getpid());
1996
1997     XtGetApplicationResources(shellWidget, (XtPointer) &appData,
1998                               clientResources, XtNumber(clientResources),
1999                               NULL, 0);
2000
2001     { // [HGM] initstring: kludge to fix bad bug. expand '\n' characters in init string and computer string.
2002         static char buf[MSG_SIZ];
2003         EscapeExpand(buf, appData.firstInitString);
2004         appData.firstInitString = strdup(buf);
2005         EscapeExpand(buf, appData.secondInitString);
2006         appData.secondInitString = strdup(buf);
2007         EscapeExpand(buf, appData.firstComputerString);
2008         appData.firstComputerString = strdup(buf);
2009         EscapeExpand(buf, appData.secondComputerString);
2010         appData.secondComputerString = strdup(buf);
2011     }
2012
2013     if ((chessDir = (char *) getenv("CHESSDIR")) == NULL) {
2014         chessDir = ".";
2015     } else {
2016         if (chdir(chessDir) != 0) {
2017             fprintf(stderr, _("%s: can't cd to CHESSDIR: "), programName);
2018             perror(chessDir);
2019             exit(1);
2020         }
2021     }
2022
2023     if (appData.debugMode && appData.nameOfDebugFile && strcmp(appData.nameOfDebugFile, "stderr")) {
2024         /* [DM] debug info to file [HGM] make the filename a command-line option, and allow it to remain stderr */
2025         if ((debugFP = fopen(appData.nameOfDebugFile, "w")) == NULL)  {
2026            printf(_("Failed to open file '%s'\n"), appData.nameOfDebugFile);
2027            exit(errno);
2028         }
2029         setbuf(debugFP, NULL);
2030     }
2031
2032 #if ENABLE_NLS
2033     if (appData.debugMode) {
2034       fprintf(debugFP, "locale = %s\n", setlocale(LC_ALL, NULL));
2035     }
2036 #endif
2037
2038     /* [HGM,HR] make sure board size is acceptable */
2039     if(appData.NrFiles > BOARD_FILES ||
2040        appData.NrRanks > BOARD_RANKS   )
2041          DisplayFatalError(_("Recompile with larger BOARD_RANKS or BOARD_FILES to support this size"), 0, 2);
2042
2043 #if !HIGHDRAG
2044     /* This feature does not work; animation needs a rewrite */
2045     appData.highlightDragging = FALSE;
2046 #endif
2047     InitBackEnd1();
2048
2049     xDisplay = XtDisplay(shellWidget);
2050     xScreen = DefaultScreen(xDisplay);
2051     wm_delete_window = XInternAtom(xDisplay, "WM_DELETE_WINDOW", True);
2052
2053         gameInfo.variant = StringToVariant(appData.variant);
2054         InitPosition(FALSE);
2055
2056 #ifdef IDSIZE
2057     InitDrawingSizes(-1, 0); // [HGM] initsize: make this into a subroutine
2058 #else
2059     if (isdigit(appData.boardSize[0])) {
2060         i = sscanf(appData.boardSize, "%d,%d,%d,%d,%d,%d,%d", &squareSize,
2061                    &lineGap, &clockFontPxlSize, &coordFontPxlSize,
2062                    &fontPxlSize, &smallLayout, &tinyLayout);
2063         if (i == 0) {
2064             fprintf(stderr, _("%s: bad boardSize syntax %s\n"),
2065                     programName, appData.boardSize);
2066             exit(2);
2067         }
2068         if (i < 7) {
2069             /* Find some defaults; use the nearest known size */
2070             SizeDefaults *szd, *nearest;
2071             int distance = 99999;
2072             nearest = szd = sizeDefaults;
2073             while (szd->name != NULL) {
2074                 if (abs(szd->squareSize - squareSize) < distance) {
2075                     nearest = szd;
2076                     distance = abs(szd->squareSize - squareSize);
2077                     if (distance == 0) break;
2078                 }
2079                 szd++;
2080             }
2081             if (i < 2) lineGap = nearest->lineGap;
2082             if (i < 3) clockFontPxlSize = nearest->clockFontPxlSize;
2083             if (i < 4) coordFontPxlSize = nearest->coordFontPxlSize;
2084             if (i < 5) fontPxlSize = nearest->fontPxlSize;
2085             if (i < 6) smallLayout = nearest->smallLayout;
2086             if (i < 7) tinyLayout = nearest->tinyLayout;
2087         }
2088     } else {
2089         SizeDefaults *szd = sizeDefaults;
2090         if (*appData.boardSize == NULLCHAR) {
2091             while (DisplayWidth(xDisplay, xScreen) < szd->minScreenSize ||
2092                    DisplayHeight(xDisplay, xScreen) < szd->minScreenSize) {
2093               szd++;
2094             }
2095             if (szd->name == NULL) szd--;
2096             appData.boardSize = strdup(szd->name); // [HGM] settings: remember name for saving settings
2097         } else {
2098             while (szd->name != NULL &&
2099                    StrCaseCmp(szd->name, appData.boardSize) != 0) szd++;
2100             if (szd->name == NULL) {
2101                 fprintf(stderr, _("%s: unrecognized boardSize name %s\n"),
2102                         programName, appData.boardSize);
2103                 exit(2);
2104             }
2105         }
2106         squareSize = szd->squareSize;
2107         lineGap = szd->lineGap;
2108         clockFontPxlSize = szd->clockFontPxlSize;
2109         coordFontPxlSize = szd->coordFontPxlSize;
2110         fontPxlSize = szd->fontPxlSize;
2111         smallLayout = szd->smallLayout;
2112         tinyLayout = szd->tinyLayout;
2113         // [HGM] font: use defaults from settings file if available and not overruled
2114     }
2115     if(!fontIsSet[CLOCK_FONT] && fontValid[CLOCK_FONT][squareSize])
2116         appData.clockFont = fontTable[CLOCK_FONT][squareSize];
2117     if(!fontIsSet[MESSAGE_FONT] && fontValid[MESSAGE_FONT][squareSize])
2118         appData.font = fontTable[MESSAGE_FONT][squareSize];
2119     if(!fontIsSet[COORD_FONT] && fontValid[COORD_FONT][squareSize])
2120         appData.coordFont = fontTable[COORD_FONT][squareSize];
2121
2122     /* Now, using squareSize as a hint, find a good XPM/XIM set size */
2123     if (strlen(appData.pixmapDirectory) > 0) {
2124         p = ExpandPathName(appData.pixmapDirectory);
2125         if (!p) {
2126             fprintf(stderr, _("Error expanding path name \"%s\"\n"),
2127                    appData.pixmapDirectory);
2128             exit(1);
2129         }
2130         if (appData.debugMode) {
2131           fprintf(stderr, _("\
2132 XBoard square size (hint): %d\n\
2133 %s fulldir:%s:\n"), squareSize, IMAGE_EXT, p);
2134         }
2135         squareSize = xpm_closest_to(p, squareSize, IMAGE_EXT);
2136         if (appData.debugMode) {
2137             fprintf(stderr, _("Closest %s size: %d\n"), IMAGE_EXT, squareSize);
2138         }
2139     }
2140     defaultLineGap = lineGap;
2141     if(appData.overrideLineGap >= 0) lineGap = appData.overrideLineGap;
2142
2143     /* [HR] height treated separately (hacked) */
2144     boardWidth = lineGap + BOARD_WIDTH * (squareSize + lineGap);
2145     boardHeight = lineGap + BOARD_HEIGHT * (squareSize + lineGap);
2146     if (appData.showJail == 1) {
2147         /* Jail on top and bottom */
2148         XtSetArg(boardArgs[1], XtNwidth, boardWidth);
2149         XtSetArg(boardArgs[2], XtNheight,
2150                  boardHeight + 2*(lineGap + squareSize));
2151     } else if (appData.showJail == 2) {
2152         /* Jail on sides */
2153         XtSetArg(boardArgs[1], XtNwidth,
2154                  boardWidth + 2*(lineGap + squareSize));
2155         XtSetArg(boardArgs[2], XtNheight, boardHeight);
2156     } else {
2157         /* No jail */
2158         XtSetArg(boardArgs[1], XtNwidth, boardWidth);
2159         XtSetArg(boardArgs[2], XtNheight, boardHeight);
2160     }
2161
2162     /*
2163      * Determine what fonts to use.
2164      */
2165 #if ENABLE_NLS
2166     appData.font = InsertPxlSize(appData.font, fontPxlSize);
2167     appData.clockFont = InsertPxlSize(appData.clockFont, clockFontPxlSize);
2168     appData.coordFont = InsertPxlSize(appData.coordFont, coordFontPxlSize);
2169     fontSet = CreateFontSet(appData.font);
2170     clockFontSet = CreateFontSet(appData.clockFont);
2171     {
2172       /* For the coordFont, use the 0th font of the fontset. */
2173       XFontSet coordFontSet = CreateFontSet(appData.coordFont);
2174       XFontStruct **font_struct_list;
2175       char **font_name_list;
2176       XFontsOfFontSet(coordFontSet, &font_struct_list, &font_name_list);
2177       coordFontID = XLoadFont(xDisplay, font_name_list[0]);
2178       coordFontStruct = XQueryFont(xDisplay, coordFontID);
2179     }
2180 #else
2181     appData.font = FindFont(appData.font, fontPxlSize);
2182     appData.clockFont = FindFont(appData.clockFont, clockFontPxlSize);
2183     appData.coordFont = FindFont(appData.coordFont, coordFontPxlSize);
2184     clockFontID = XLoadFont(xDisplay, appData.clockFont);
2185     clockFontStruct = XQueryFont(xDisplay, clockFontID);
2186     coordFontID = XLoadFont(xDisplay, appData.coordFont);
2187     coordFontStruct = XQueryFont(xDisplay, coordFontID);
2188 #endif
2189     countFontID = coordFontID;  // [HGM] holdings
2190     countFontStruct = coordFontStruct;
2191
2192     xdb = XtDatabase(xDisplay);
2193 #if ENABLE_NLS
2194     XrmPutLineResource(&xdb, "*international: True");
2195     vTo.size = sizeof(XFontSet);
2196     vTo.addr = (XtPointer) &fontSet;
2197     XrmPutResource(&xdb, "*fontSet", XtRFontSet, &vTo);
2198 #else
2199     XrmPutStringResource(&xdb, "*font", appData.font);
2200 #endif
2201
2202     /*
2203      * Detect if there are not enough colors available and adapt.
2204      */
2205     if (DefaultDepth(xDisplay, xScreen) <= 2) {
2206       appData.monoMode = True;
2207     }
2208
2209     forceMono = MakeColors();
2210
2211     if (forceMono) {
2212       fprintf(stderr, _("%s: too few colors available; trying monochrome mode\n"),
2213               programName);
2214         appData.monoMode = True;
2215     }
2216
2217     if (appData.lowTimeWarning && !appData.monoMode) {
2218       vFrom.addr = (caddr_t) appData.lowTimeWarningColor;
2219       vFrom.size = strlen(appData.lowTimeWarningColor);
2220       XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
2221       if (vTo.addr == NULL)
2222                 appData.monoMode = True;
2223       else
2224                 lowTimeWarningColor = *(Pixel *) vTo.addr;
2225     }
2226
2227     if (appData.monoMode && appData.debugMode) {
2228         fprintf(stderr, _("white pixel = 0x%lx, black pixel = 0x%lx\n"),
2229                 (unsigned long) XWhitePixel(xDisplay, xScreen),
2230                 (unsigned long) XBlackPixel(xDisplay, xScreen));
2231     }
2232
2233     ParseIcsTextColors();
2234     textColors[ColorNone].fg = textColors[ColorNone].bg = -1;
2235     textColors[ColorNone].attr = 0;
2236
2237     XtAppAddActions(appContext, boardActions, XtNumber(boardActions));
2238
2239     /*
2240      * widget hierarchy
2241      */
2242     if (tinyLayout) {
2243         layoutName = "tinyLayout";
2244     } else if (smallLayout) {
2245         layoutName = "smallLayout";
2246     } else {
2247         layoutName = "normalLayout";
2248     }
2249     /* Outer layoutWidget is there only to provide a name for use in
2250        resources that depend on the layout style */
2251     layoutWidget =
2252       XtCreateManagedWidget(layoutName, formWidgetClass, shellWidget,
2253                             layoutArgs, XtNumber(layoutArgs));
2254     formWidget =
2255       XtCreateManagedWidget("form", formWidgetClass, layoutWidget,
2256                             formArgs, XtNumber(formArgs));
2257     XtSetArg(args[0], XtNdefaultDistance, &sep);
2258     XtGetValues(formWidget, args, 1);
2259
2260     j = 0;
2261     widgetList[j++] = menuBarWidget = CreateMenuBar(menuBar);
2262     XtSetArg(args[0], XtNtop,    XtChainTop);
2263     XtSetArg(args[1], XtNbottom, XtChainTop);
2264     XtSetArg(args[2], XtNright,  XtChainLeft);
2265     XtSetValues(menuBarWidget, args, 3);
2266
2267     widgetList[j++] = whiteTimerWidget =
2268       XtCreateWidget("whiteTime", labelWidgetClass,
2269                      formWidget, timerArgs, XtNumber(timerArgs));
2270 #if ENABLE_NLS
2271     XtSetArg(args[0], XtNfontSet, clockFontSet);
2272 #else
2273     XtSetArg(args[0], XtNfont, clockFontStruct);
2274 #endif
2275     XtSetArg(args[1], XtNtop,    XtChainTop);
2276     XtSetArg(args[2], XtNbottom, XtChainTop);
2277     XtSetValues(whiteTimerWidget, args, 3);
2278
2279     widgetList[j++] = blackTimerWidget =
2280       XtCreateWidget("blackTime", labelWidgetClass,
2281                      formWidget, timerArgs, XtNumber(timerArgs));
2282 #if ENABLE_NLS
2283     XtSetArg(args[0], XtNfontSet, clockFontSet);
2284 #else
2285     XtSetArg(args[0], XtNfont, clockFontStruct);
2286 #endif
2287     XtSetArg(args[1], XtNtop,    XtChainTop);
2288     XtSetArg(args[2], XtNbottom, XtChainTop);
2289     XtSetValues(blackTimerWidget, args, 3);
2290
2291     if (appData.titleInWindow) {
2292         widgetList[j++] = titleWidget =
2293           XtCreateWidget("title", labelWidgetClass, formWidget,
2294                          titleArgs, XtNumber(titleArgs));
2295         XtSetArg(args[0], XtNtop,    XtChainTop);
2296         XtSetArg(args[1], XtNbottom, XtChainTop);
2297         XtSetValues(titleWidget, args, 2);
2298     }
2299
2300     if (appData.showButtonBar) {
2301       widgetList[j++] = buttonBarWidget = CreateButtonBar(buttonBar);
2302       XtSetArg(args[0], XtNleft,  XtChainRight); // [HGM] glue to right window edge
2303       XtSetArg(args[1], XtNright, XtChainRight); //       for good run-time sizing
2304       XtSetArg(args[2], XtNtop,    XtChainTop);
2305       XtSetArg(args[3], XtNbottom, XtChainTop);
2306       XtSetValues(buttonBarWidget, args, 4);
2307     }
2308
2309     widgetList[j++] = messageWidget =
2310       XtCreateWidget("message", labelWidgetClass, formWidget,
2311                      messageArgs, XtNumber(messageArgs));
2312     XtSetArg(args[0], XtNtop,    XtChainTop);
2313     XtSetArg(args[1], XtNbottom, XtChainTop);
2314     XtSetValues(messageWidget, args, 2);
2315
2316     widgetList[j++] = boardWidget =
2317       XtCreateWidget("board", widgetClass, formWidget, boardArgs,
2318                      XtNumber(boardArgs));
2319
2320     XtManageChildren(widgetList, j);
2321
2322     timerWidth = (boardWidth - sep) / 2;
2323     XtSetArg(args[0], XtNwidth, timerWidth);
2324     XtSetValues(whiteTimerWidget, args, 1);
2325     XtSetValues(blackTimerWidget, args, 1);
2326
2327     XtSetArg(args[0], XtNbackground, &timerBackgroundPixel);
2328     XtSetArg(args[1], XtNforeground, &timerForegroundPixel);
2329     XtGetValues(whiteTimerWidget, args, 2);
2330
2331     if (appData.showButtonBar) {
2332       XtSetArg(args[0], XtNbackground, &buttonBackgroundPixel);
2333       XtSetArg(args[1], XtNforeground, &buttonForegroundPixel);
2334       XtGetValues(XtNameToWidget(buttonBarWidget, PAUSE_BUTTON), args, 2);
2335     }
2336
2337     /*
2338      * formWidget uses these constraints but they are stored
2339      * in the children.
2340      */
2341     i = 0;
2342     XtSetArg(args[i], XtNfromHoriz, 0); i++;
2343     XtSetValues(menuBarWidget, args, i);
2344     if (appData.titleInWindow) {
2345         if (smallLayout) {
2346             i = 0;
2347             XtSetArg(args[i], XtNfromVert, menuBarWidget); i++;
2348             XtSetValues(whiteTimerWidget, args, i);
2349             i = 0;
2350             XtSetArg(args[i], XtNfromVert, menuBarWidget); i++;
2351             XtSetArg(args[i], XtNfromHoriz, whiteTimerWidget); i++;
2352             XtSetValues(blackTimerWidget, args, i);
2353             i = 0;
2354             XtSetArg(args[i], XtNfromVert, whiteTimerWidget); i++;
2355             XtSetArg(args[i], XtNjustify, XtJustifyLeft); i++;
2356             XtSetValues(titleWidget, args, i);
2357             i = 0;
2358             XtSetArg(args[i], XtNfromVert, titleWidget); i++;
2359             XtSetArg(args[i], XtNresizable, (XtArgVal) True); i++;
2360             XtSetValues(messageWidget, args, i);
2361             if (appData.showButtonBar) {
2362               i = 0;
2363               XtSetArg(args[i], XtNfromVert, titleWidget); i++;
2364               XtSetArg(args[i], XtNfromHoriz, messageWidget); i++;
2365               XtSetValues(buttonBarWidget, args, i);
2366             }
2367         } else {
2368             i = 0;
2369             XtSetArg(args[i], XtNfromVert, titleWidget); i++;
2370             XtSetValues(whiteTimerWidget, args, i);
2371             i = 0;
2372             XtSetArg(args[i], XtNfromVert, titleWidget); i++;
2373             XtSetArg(args[i], XtNfromHoriz, whiteTimerWidget); i++;
2374             XtSetValues(blackTimerWidget, args, i);
2375             i = 0;
2376             XtSetArg(args[i], XtNfromHoriz, menuBarWidget); i++;
2377             XtSetValues(titleWidget, args, i);
2378             i = 0;
2379             XtSetArg(args[i], XtNfromVert, whiteTimerWidget); i++;
2380             XtSetArg(args[i], XtNresizable, (XtArgVal) True); i++;
2381             XtSetValues(messageWidget, args, i);
2382             if (appData.showButtonBar) {
2383               i = 0;
2384               XtSetArg(args[i], XtNfromVert, whiteTimerWidget); i++;
2385               XtSetArg(args[i], XtNfromHoriz, messageWidget); i++;
2386               XtSetValues(buttonBarWidget, args, i);
2387             }
2388         }
2389     } else {
2390         i = 0;
2391         XtSetArg(args[i], XtNfromVert, menuBarWidget); i++;
2392         XtSetValues(whiteTimerWidget, args, i);
2393         i = 0;
2394         XtSetArg(args[i], XtNfromVert, menuBarWidget); i++;
2395         XtSetArg(args[i], XtNfromHoriz, whiteTimerWidget); i++;
2396         XtSetValues(blackTimerWidget, args, i);
2397         i = 0;
2398         XtSetArg(args[i], XtNfromVert, whiteTimerWidget); i++;
2399         XtSetArg(args[i], XtNresizable, (XtArgVal) True); i++;
2400         XtSetValues(messageWidget, args, i);
2401         if (appData.showButtonBar) {
2402           i = 0;
2403           XtSetArg(args[i], XtNfromVert, whiteTimerWidget); i++;
2404           XtSetArg(args[i], XtNfromHoriz, messageWidget); i++;
2405           XtSetValues(buttonBarWidget, args, i);
2406         }
2407     }
2408     i = 0;
2409     XtSetArg(args[0], XtNfromVert, messageWidget);
2410     XtSetArg(args[1], XtNtop,    XtChainTop);
2411     XtSetArg(args[2], XtNbottom, XtChainBottom);
2412     XtSetArg(args[3], XtNleft,   XtChainLeft);
2413     XtSetArg(args[4], XtNright,  XtChainRight);
2414     XtSetValues(boardWidget, args, 5);
2415
2416     XtRealizeWidget(shellWidget);
2417
2418     if(wpMain.x > 0) {
2419       XtSetArg(args[0], XtNx, wpMain.x);
2420       XtSetArg(args[1], XtNy, wpMain.y);
2421       XtSetValues(shellWidget, args, 2);
2422     }
2423
2424     /*
2425      * Correct the width of the message and title widgets.
2426      * It is not known why some systems need the extra fudge term.
2427      * The value "2" is probably larger than needed.
2428      */
2429     XawFormDoLayout(formWidget, False);
2430
2431 #define WIDTH_FUDGE 2
2432     i = 0;
2433     XtSetArg(args[i], XtNborderWidth, &bor);  i++;
2434     XtSetArg(args[i], XtNheight, &h);  i++;
2435     XtGetValues(messageWidget, args, i);
2436     if (appData.showButtonBar) {
2437       i = 0;
2438       XtSetArg(args[i], XtNwidth, &w);  i++;
2439       XtGetValues(buttonBarWidget, args, i);
2440       w = boardWidth - w - sep - 2*bor - WIDTH_FUDGE;
2441     } else {
2442       w = boardWidth - 2*bor + 1; /*!! +1 compensates for kludge below */
2443     }
2444
2445     gres = XtMakeResizeRequest(messageWidget, w, h, &wr, &hr);
2446     if (gres != XtGeometryYes && appData.debugMode) {
2447       fprintf(stderr, _("%s: messageWidget geometry error %d %d %d %d %d\n"),
2448               programName, gres, w, h, wr, hr);
2449     }
2450
2451     /* !! Horrible hack to work around bug in XFree86 4.0.1 (X11R6.4.3) */
2452     /* The size used for the child widget in layout lags one resize behind
2453        its true size, so we resize a second time, 1 pixel smaller.  Yeech! */
2454     w--;
2455     gres = XtMakeResizeRequest(messageWidget, w, h, &wr, &hr);
2456     if (gres != XtGeometryYes && appData.debugMode) {
2457       fprintf(stderr, _("%s: messageWidget geometry error %d %d %d %d %d\n"),
2458               programName, gres, w, h, wr, hr);
2459     }
2460     /* !! end hack */
2461     XtSetArg(args[0], XtNleft,  XtChainLeft);  // [HGM] glue ends for good run-time sizing
2462     XtSetArg(args[1], XtNright, XtChainRight);
2463     XtSetValues(messageWidget, args, 2);
2464
2465     if (appData.titleInWindow) {
2466         i = 0;
2467         XtSetArg(args[i], XtNborderWidth, &bor); i++;
2468         XtSetArg(args[i], XtNheight, &h);  i++;
2469         XtGetValues(titleWidget, args, i);
2470         if (smallLayout) {
2471             w = boardWidth - 2*bor;
2472         } else {
2473             XtSetArg(args[0], XtNwidth, &w);
2474             XtGetValues(menuBarWidget, args, 1);
2475             w = boardWidth - w - sep - 2*bor - WIDTH_FUDGE;
2476         }
2477
2478         gres = XtMakeResizeRequest(titleWidget, w, h, &wr, &hr);
2479         if (gres != XtGeometryYes && appData.debugMode) {
2480             fprintf(stderr,
2481                     _("%s: titleWidget geometry error %d %d %d %d %d\n"),
2482                     programName, gres, w, h, wr, hr);
2483         }
2484     }
2485     XawFormDoLayout(formWidget, True);
2486
2487     xBoardWindow = XtWindow(boardWidget);
2488
2489     // [HGM] it seems the layout code ends here, but perhaps the color stuff is size independent and would
2490     //       not need to go into InitDrawingSizes().
2491 #endif
2492
2493     /*
2494      * Create X checkmark bitmap and initialize option menu checks.
2495      */
2496     ReadBitmap(&xMarkPixmap, "checkmark.bm",
2497                checkmark_bits, checkmark_width, checkmark_height);
2498     XtSetArg(args[0], XtNleftBitmap, xMarkPixmap);
2499 #ifndef OPTIONSDIALOG
2500     if (appData.alwaysPromoteToQueen) {
2501         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Always Queen"),
2502                     args, 1);
2503     }
2504     if (appData.animateDragging) {
2505         XtSetValues(XtNameToWidget(menuBarWidget,
2506                                    "menuOptions.Animate Dragging"),
2507                     args, 1);
2508     }
2509     if (appData.animate) {
2510         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Animate Moving"),
2511                     args, 1);
2512     }
2513     if (appData.autoCallFlag) {
2514         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Auto Flag"),
2515                     args, 1);
2516     }
2517     if (appData.autoFlipView) {
2518         XtSetValues(XtNameToWidget(menuBarWidget,"menuOptions.Auto Flip View"),
2519                     args, 1);
2520     }
2521     if (appData.blindfold) {
2522         XtSetValues(XtNameToWidget(menuBarWidget,
2523                                    "menuOptions.Blindfold"), args, 1);
2524     }
2525     if (appData.flashCount > 0) {
2526         XtSetValues(XtNameToWidget(menuBarWidget,
2527                                    "menuOptions.Flash Moves"),
2528                     args, 1);
2529     }
2530 #if HIGHDRAG
2531     if (appData.highlightDragging) {
2532         XtSetValues(XtNameToWidget(menuBarWidget,
2533                                    "menuOptions.Highlight Dragging"),
2534                     args, 1);
2535     }
2536 #endif
2537     if (appData.highlightLastMove) {
2538         XtSetValues(XtNameToWidget(menuBarWidget,
2539                                    "menuOptions.Highlight Last Move"),
2540                     args, 1);
2541     }
2542     if (appData.highlightMoveWithArrow) {
2543         XtSetValues(XtNameToWidget(menuBarWidget,
2544                                    "menuOptions.Arrow"),
2545                     args, 1);
2546     }
2547 //    if (appData.icsAlarm) {
2548 //      XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.ICS Alarm"),
2549 //                  args, 1);
2550 //    }
2551     if (appData.ringBellAfterMoves) {
2552         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Move Sound"),
2553                     args, 1);
2554     }
2555     if (appData.oneClick) {
2556         XtSetValues(XtNameToWidget(menuBarWidget,
2557                                    "menuOptions.OneClick"), args, 1);
2558     }
2559     if (appData.periodicUpdates) {
2560         XtSetValues(XtNameToWidget(menuBarWidget,
2561                                    "menuOptions.Periodic Updates"), args, 1);
2562     }
2563     if (appData.ponderNextMove) {
2564         XtSetValues(XtNameToWidget(menuBarWidget,
2565                                    "menuOptions.Ponder Next Move"), args, 1);
2566     }
2567     if (appData.popupExitMessage) {
2568         XtSetValues(XtNameToWidget(menuBarWidget,
2569                                    "menuOptions.Popup Exit Message"), args, 1);
2570     }
2571     if (appData.popupMoveErrors) {
2572         XtSetValues(XtNameToWidget(menuBarWidget,
2573                                    "menuOptions.Popup Move Errors"), args, 1);
2574     }
2575 //    if (appData.premove) {
2576 //      XtSetValues(XtNameToWidget(menuBarWidget,
2577 //                                 "menuOptions.Premove"), args, 1);
2578 //    }
2579     if (appData.showCoords) {
2580         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Show Coords"),
2581                     args, 1);
2582     }
2583     if (appData.hideThinkingFromHuman) {
2584         XtSetValues(XtNameToWidget(menuBarWidget, "menuOptions.Hide Thinking"),
2585                     args, 1);
2586     }
2587     if (appData.testLegality) {
2588         XtSetValues(XtNameToWidget(menuBarWidget,"menuOptions.Test Legality"),
2589                     args, 1);
2590     }
2591 #endif
2592     if (saveSettingsOnExit) {
2593         XtSetValues(XtNameToWidget(menuBarWidget,"menuOptions.Save Settings on Exit"),
2594                     args, 1);
2595     }
2596
2597     /*
2598      * Create an icon.
2599      */
2600     ReadBitmap(&wIconPixmap, "icon_white.bm",
2601                icon_white_bits, icon_white_width, icon_white_height);
2602     ReadBitmap(&bIconPixmap, "icon_black.bm",
2603                icon_black_bits, icon_black_width, icon_black_height);
2604     iconPixmap = wIconPixmap;
2605     i = 0;
2606     XtSetArg(args[i], XtNiconPixmap, iconPixmap);  i++;
2607     XtSetValues(shellWidget, args, i);
2608
2609     /*
2610      * Create a cursor for the board widget.
2611      */
2612     window_attributes.cursor = XCreateFontCursor(xDisplay, XC_hand2);
2613     XChangeWindowAttributes(xDisplay, xBoardWindow,
2614                             CWCursor, &window_attributes);
2615
2616     /*
2617      * Inhibit shell resizing.
2618      */
2619     shellArgs[0].value = (XtArgVal) &w;
2620     shellArgs[1].value = (XtArgVal) &h;
2621     XtGetValues(shellWidget, shellArgs, 2);
2622     shellArgs[4].value = shellArgs[2].value = w;
2623     shellArgs[5].value = shellArgs[3].value = h;
2624     XtSetValues(shellWidget, &shellArgs[2], 4);
2625     marginW =  w - boardWidth; // [HGM] needed to set new shellWidget size when we resize board
2626     marginH =  h - boardHeight;
2627
2628     CatchDeleteWindow(shellWidget, "QuitProc");
2629
2630     CreateGCs(False);
2631     CreateGrid();
2632     CreateAnyPieces();
2633
2634     CreatePieceMenus();
2635
2636     if (appData.animate || appData.animateDragging)
2637       CreateAnimVars();
2638
2639     XtAugmentTranslations(formWidget,
2640                           XtParseTranslationTable(globalTranslations));
2641     XtAugmentTranslations(boardWidget,
2642                           XtParseTranslationTable(boardTranslations));
2643     XtAugmentTranslations(whiteTimerWidget,
2644                           XtParseTranslationTable(whiteTranslations));
2645     XtAugmentTranslations(blackTimerWidget,
2646                           XtParseTranslationTable(blackTranslations));
2647
2648     /* Why is the following needed on some versions of X instead
2649      * of a translation? */
2650     XtAddEventHandler(boardWidget, ExposureMask|PointerMotionMask, False,
2651                       (XtEventHandler) EventProc, NULL);
2652     /* end why */
2653     XtAddEventHandler(formWidget, KeyPressMask, False,
2654                       (XtEventHandler) MoveTypeInProc, NULL);
2655
2656     /* [AS] Restore layout */
2657     if( wpMoveHistory.visible ) {
2658       HistoryPopUp();
2659     }
2660
2661     if( wpEvalGraph.visible )
2662       {
2663         EvalGraphPopUp();
2664       };
2665
2666     if( wpEngineOutput.visible ) {
2667       EngineOutputPopUp();
2668     }
2669
2670     InitBackEnd2();
2671
2672     if (errorExitStatus == -1) {
2673         if (appData.icsActive) {
2674             /* We now wait until we see "login:" from the ICS before
2675                sending the logon script (problems with timestamp otherwise) */
2676             /*ICSInitScript();*/
2677             if (appData.icsInputBox) ICSInputBoxPopUp();
2678         }
2679
2680     #ifdef SIGWINCH
2681     signal(SIGWINCH, TermSizeSigHandler);
2682     #endif
2683         signal(SIGINT, IntSigHandler);
2684         signal(SIGTERM, IntSigHandler);
2685         if (*appData.cmailGameName != NULLCHAR) {
2686             signal(SIGUSR1, CmailSigHandler);
2687         }
2688     }
2689     gameInfo.boardWidth = 0; // [HGM] pieces: kludge to ensure InitPosition() calls InitDrawingSizes()
2690     InitPosition(TRUE);
2691 //    XtSetKeyboardFocus(shellWidget, formWidget);
2692     XSetInputFocus(xDisplay, XtWindow(formWidget), RevertToPointerRoot, CurrentTime);
2693
2694     XtAppMainLoop(appContext);
2695     if (appData.debugMode) fclose(debugFP); // [DM] debug
2696     return 0;
2697 }
2698
2699 void
2700 ShutDownFrontEnd()
2701 {
2702     if (appData.icsActive && oldICSInteractionTitle != NULL) {
2703         DisplayIcsInteractionTitle(oldICSInteractionTitle);
2704     }
2705     if (saveSettingsOnExit) SaveSettings(settingsFileName);
2706     unlink(gameCopyFilename);
2707     unlink(gamePasteFilename);
2708 }
2709
2710 RETSIGTYPE TermSizeSigHandler(int sig)
2711 {
2712     update_ics_width();
2713 }
2714
2715 RETSIGTYPE
2716 IntSigHandler(sig)
2717      int sig;
2718 {
2719     ExitEvent(sig);
2720 }
2721
2722 RETSIGTYPE
2723 CmailSigHandler(sig)
2724      int sig;
2725 {
2726     int dummy = 0;
2727     int error;
2728
2729     signal(SIGUSR1, SIG_IGN);   /* suspend handler     */
2730
2731     /* Activate call-back function CmailSigHandlerCallBack()             */
2732     OutputToProcess(cmailPR, (char *)(&dummy), sizeof(int), &error);
2733
2734     signal(SIGUSR1, CmailSigHandler); /* re-activate handler */
2735 }
2736
2737 void
2738 CmailSigHandlerCallBack(isr, closure, message, count, error)
2739      InputSourceRef isr;
2740      VOIDSTAR closure;
2741      char *message;
2742      int count;
2743      int error;
2744 {
2745     BoardToTop();
2746     ReloadCmailMsgEvent(TRUE);  /* Reload cmail msg  */
2747 }
2748 /**** end signal code ****/
2749
2750
2751 void
2752 ICSInitScript()
2753 {
2754   /* try to open the icsLogon script, either in the location given
2755    * or in the users HOME directory
2756    */
2757
2758   FILE *f;
2759   char buf[MSG_SIZ];
2760   char *homedir;
2761
2762   f = fopen(appData.icsLogon, "r");
2763   if (f == NULL)
2764     {
2765       homedir = getenv("HOME");
2766       if (homedir != NULL)
2767         {
2768           safeStrCpy(buf, homedir, sizeof(buf)/sizeof(buf[0]) );
2769           strncat(buf, "/", MSG_SIZ - strlen(buf) - 1);
2770           strncat(buf, appData.icsLogon,  MSG_SIZ - strlen(buf) - 1);
2771           f = fopen(buf, "r");
2772         }
2773     }
2774
2775   if (f != NULL)
2776     ProcessICSInitScript(f);
2777   else
2778     printf("Warning: Couldn't open icsLogon file (checked %s and %s).\n", appData.icsLogon, buf);
2779
2780   return;
2781 }
2782
2783 void
2784 ResetFrontEnd()
2785 {
2786     CommentPopDown();
2787     TagsPopDown();
2788     return;
2789 }
2790
2791 typedef struct {
2792     char *name;
2793     Boolean value;
2794 } Enables;
2795
2796 void
2797 GreyRevert(grey)
2798      Boolean grey;
2799 {
2800     Widget w;
2801     if (!menuBarWidget) return;
2802     w = XtNameToWidget(menuBarWidget, "menuEdit.Revert");
2803     if (w == NULL) {
2804       DisplayError("menuEdit.Revert", 0);
2805     } else {
2806       XtSetSensitive(w, !grey);
2807     }
2808     w = XtNameToWidget(menuBarWidget, "menuEdit.Annotate");
2809     if (w == NULL) {
2810       DisplayError("menuEdit.Annotate", 0);
2811     } else {
2812       XtSetSensitive(w, !grey);
2813     }
2814 }
2815
2816 void
2817 SetMenuEnables(enab)
2818      Enables *enab;
2819 {
2820   Widget w;
2821   if (!menuBarWidget) return;
2822   while (enab->name != NULL) {
2823     w = XtNameToWidget(menuBarWidget, enab->name);
2824     if (w == NULL) {
2825       DisplayError(enab->name, 0);
2826     } else {
2827       XtSetSensitive(w, enab->value);
2828     }
2829     enab++;
2830   }
2831 }
2832
2833 Enables icsEnables[] = {
2834     { "menuFile.Mail Move", False },
2835     { "menuFile.Reload CMail Message", False },
2836     { "menuMode.Machine Black", False },
2837     { "menuMode.Machine White", False },
2838     { "menuMode.Analysis Mode", False },
2839     { "menuMode.Analyze File", False },
2840     { "menuMode.Two Machines", False },
2841     { "menuMode.Machine Match", False },
2842 #ifndef ZIPPY
2843     { "menuEngine.Hint", False },
2844     { "menuEngine.Book", False },
2845     { "menuEngine.Move Now", False },
2846 #ifndef OPTIONSDIALOG
2847     { "menuOptions.Periodic Updates", False },
2848     { "menuOptions.Hide Thinking", False },
2849     { "menuOptions.Ponder Next Move", False },
2850 #endif
2851 #endif
2852     { "menuEngine.Engine #1 Settings", False },
2853     { "menuEngine.Engine #2 Settings", False },
2854     { "menuEngine.Load Engine", False },
2855     { "menuEdit.Annotate", False },
2856     { "menuOptions.Match", False },
2857     { NULL, False }
2858 };
2859
2860 Enables ncpEnables[] = {
2861     { "menuFile.Mail Move", False },
2862     { "menuFile.Reload CMail Message", False },
2863     { "menuMode.Machine White", False },
2864     { "menuMode.Machine Black", False },
2865     { "menuMode.Analysis Mode", False },
2866     { "menuMode.Analyze File", False },
2867     { "menuMode.Two Machines", False },
2868     { "menuMode.Machine Match", False },
2869     { "menuMode.ICS Client", False },
2870     { "menuView.ICStex", False },
2871     { "menuView.ICS Input Box", False },
2872     { "Action", False },
2873     { "menuEdit.Revert", False },
2874     { "menuEdit.Annotate", False },
2875     { "menuEngine.Engine #1 Settings", False },
2876     { "menuEngine.Engine #2 Settings", False },
2877     { "menuEngine.Move Now", False },
2878     { "menuEngine.Retract Move", False },
2879     { "menuOptions.ICS", False },
2880 #ifndef OPTIONSDIALOG
2881     { "menuOptions.Auto Flag", False },
2882     { "menuOptions.Auto Flip View", False },
2883 //    { "menuOptions.ICS Alarm", False },
2884     { "menuOptions.Move Sound", False },
2885     { "menuOptions.Hide Thinking", False },
2886     { "menuOptions.Periodic Updates", False },
2887     { "menuOptions.Ponder Next Move", False },
2888 #endif
2889     { "menuEngine.Hint", False },
2890     { "menuEngine.Book", False },
2891     { NULL, False }
2892 };
2893
2894 Enables gnuEnables[] = {
2895     { "menuMode.ICS Client", False },
2896     { "menuView.ICStex", False },
2897     { "menuView.ICS Input Box", False },
2898     { "menuAction.Accept", False },
2899     { "menuAction.Decline", False },
2900     { "menuAction.Rematch", False },
2901     { "menuAction.Adjourn", False },
2902     { "menuAction.Stop Examining", False },
2903     { "menuAction.Stop Observing", False },
2904     { "menuAction.Upload to Examine", False },
2905     { "menuEdit.Revert", False },
2906     { "menuEdit.Annotate", False },
2907     { "menuOptions.ICS", False },
2908
2909     /* The next two options rely on SetCmailMode being called *after*    */
2910     /* SetGNUMode so that when GNU is being used to give hints these     */
2911     /* menu options are still available                                  */
2912
2913     { "menuFile.Mail Move", False },
2914     { "menuFile.Reload CMail Message", False },
2915     // [HGM] The following have been added to make a switch from ncp to GNU mode possible
2916     { "menuMode.Machine White", True },
2917     { "menuMode.Machine Black", True },
2918     { "menuMode.Analysis Mode", True },
2919     { "menuMode.Analyze File", True },
2920     { "menuMode.Two Machines", True },
2921     { "menuMode.Machine Match", True },
2922     { "menuEngine.Engine #1 Settings", True },
2923     { "menuEngine.Engine #2 Settings", True },
2924     { "menuEngine.Hint", True },
2925     { "menuEngine.Book", True },
2926     { "menuEngine.Move Now", True },
2927     { "menuEngine.Retract Move", True },
2928     { "Action", True },
2929     { NULL, False }
2930 };
2931
2932 Enables cmailEnables[] = {
2933     { "Action", True },
2934     { "menuAction.Call Flag", False },
2935     { "menuAction.Draw", True },
2936     { "menuAction.Adjourn", False },
2937     { "menuAction.Abort", False },
2938     { "menuAction.Stop Observing", False },
2939     { "menuAction.Stop Examining", False },
2940     { "menuFile.Mail Move", True },
2941     { "menuFile.Reload CMail Message", True },
2942     { NULL, False }
2943 };
2944
2945 Enables trainingOnEnables[] = {
2946   { "menuMode.Edit Comment", False },
2947   { "menuMode.Pause", False },
2948   { "menuEdit.Forward", False },
2949   { "menuEdit.Backward", False },
2950   { "menuEdit.Forward to End", False },
2951   { "menuEdit.Back to Start", False },
2952   { "menuEngine.Move Now", False },
2953   { "menuEdit.Truncate Game", False },
2954   { NULL, False }
2955 };
2956
2957 Enables trainingOffEnables[] = {
2958   { "menuMode.Edit Comment", True },
2959   { "menuMode.Pause", True },
2960   { "menuEdit.Forward", True },
2961   { "menuEdit.Backward", True },
2962   { "menuEdit.Forward to End", True },
2963   { "menuEdit.Back to Start", True },
2964   { "menuEngine.Move Now", True },
2965   { "menuEdit.Truncate Game", True },
2966   { NULL, False }
2967 };
2968
2969 Enables machineThinkingEnables[] = {
2970   { "menuFile.Load Game", False },
2971 //  { "menuFile.Load Next Game", False },
2972 //  { "menuFile.Load Previous Game", False },
2973 //  { "menuFile.Reload Same Game", False },
2974   { "menuEdit.Paste Game", False },
2975   { "menuFile.Load Position", False },
2976 //  { "menuFile.Load Next Position", False },
2977 //  { "menuFile.Load Previous Position", False },
2978 //  { "menuFile.Reload Same Position", False },
2979   { "menuEdit.Paste Position", False },
2980   { "menuMode.Machine White", False },
2981   { "menuMode.Machine Black", False },
2982   { "menuMode.Two Machines", False },
2983 //  { "menuMode.Machine Match", False },
2984   { "menuEngine.Retract Move", False },
2985   { NULL, False }
2986 };
2987
2988 Enables userThinkingEnables[] = {
2989   { "menuFile.Load Game", True },
2990 //  { "menuFile.Load Next Game", True },
2991 //  { "menuFile.Load Previous Game", True },
2992 //  { "menuFile.Reload Same Game", True },
2993   { "menuEdit.Paste Game", True },
2994   { "menuFile.Load Position", True },
2995 //  { "menuFile.Load Next Position", True },
2996 //  { "menuFile.Load Previous Position", True },
2997 //  { "menuFile.Reload Same Position", True },
2998   { "menuEdit.Paste Position", True },
2999   { "menuMode.Machine White", True },
3000   { "menuMode.Machine Black", True },
3001   { "menuMode.Two Machines", True },
3002 //  { "menuMode.Machine Match", True },
3003   { "menuEngine.Retract Move", True },
3004   { NULL, False }
3005 };
3006
3007 void SetICSMode()
3008 {
3009   SetMenuEnables(icsEnables);
3010
3011 #if ZIPPY
3012   if (appData.zippyPlay && !appData.noChessProgram) { /* [DM] icsEngineAnalyze */
3013      XtSetSensitive(XtNameToWidget(menuBarWidget, "menuMode.Analysis Mode"), True);
3014      XtSetSensitive(XtNameToWidget(menuBarWidget, "menuEngine.Engine #1 Settings"), True);
3015   }
3016 #endif
3017 }
3018
3019 void
3020 SetNCPMode()
3021 {
3022   SetMenuEnables(ncpEnables);
3023 }
3024
3025 void
3026 SetGNUMode()
3027 {
3028   SetMenuEnables(gnuEnables);
3029 }
3030
3031 void
3032 SetCmailMode()
3033 {
3034   SetMenuEnables(cmailEnables);
3035 }
3036
3037 void
3038 SetTrainingModeOn()
3039 {
3040   SetMenuEnables(trainingOnEnables);
3041   if (appData.showButtonBar) {
3042     XtSetSensitive(buttonBarWidget, False);
3043   }
3044   CommentPopDown();
3045 }
3046
3047 void
3048 SetTrainingModeOff()
3049 {
3050   SetMenuEnables(trainingOffEnables);
3051   if (appData.showButtonBar) {
3052     XtSetSensitive(buttonBarWidget, True);
3053   }
3054 }
3055
3056 void
3057 SetUserThinkingEnables()
3058 {
3059   if (appData.noChessProgram) return;
3060   SetMenuEnables(userThinkingEnables);
3061 }
3062
3063 void
3064 SetMachineThinkingEnables()
3065 {
3066   if (appData.noChessProgram) return;
3067   SetMenuEnables(machineThinkingEnables);
3068   switch (gameMode) {
3069   case MachinePlaysBlack:
3070   case MachinePlaysWhite:
3071   case TwoMachinesPlay:
3072     XtSetSensitive(XtNameToWidget(menuBarWidget,
3073                                   ModeToWidgetName(gameMode)), True);
3074     break;
3075   default:
3076     break;
3077   }
3078 }
3079
3080 // [HGM] code borrowed from winboard.c (which should thus go to backend.c!)
3081 #define HISTORY_SIZE 64
3082 static char *history[HISTORY_SIZE];
3083 int histIn = 0, histP = 0;
3084
3085 void
3086 SaveInHistory(char *cmd)
3087 {
3088   if (history[histIn] != NULL) {
3089     free(history[histIn]);
3090     history[histIn] = NULL;
3091   }
3092   if (*cmd == NULLCHAR) return;
3093   history[histIn] = StrSave(cmd);
3094   histIn = (histIn + 1) % HISTORY_SIZE;
3095   if (history[histIn] != NULL) {
3096     free(history[histIn]);
3097     history[histIn] = NULL;
3098   }
3099   histP = histIn;
3100 }
3101
3102 char *
3103 PrevInHistory(char *cmd)
3104 {
3105   int newhp;
3106   if (histP == histIn) {
3107     if (history[histIn] != NULL) free(history[histIn]);
3108     history[histIn] = StrSave(cmd);
3109   }
3110   newhp = (histP - 1 + HISTORY_SIZE) % HISTORY_SIZE;
3111   if (newhp == histIn || history[newhp] == NULL) return NULL;
3112   histP = newhp;
3113   return history[histP];
3114 }
3115
3116 char *
3117 NextInHistory()
3118 {
3119   if (histP == histIn) return NULL;
3120   histP = (histP + 1) % HISTORY_SIZE;
3121   return history[histP];   
3122 }
3123 // end of borrowed code
3124
3125 #define Abs(n) ((n)<0 ? -(n) : (n))
3126
3127 #ifdef ENABLE_NLS
3128 char *
3129 InsertPxlSize(pattern, targetPxlSize)
3130      char *pattern;
3131      int targetPxlSize;
3132 {
3133     char *base_fnt_lst, strInt[12], *p, *q;
3134     int alternatives, i, len, strIntLen;
3135
3136     /*
3137      * Replace the "*" (if present) in the pixel-size slot of each
3138      * alternative with the targetPxlSize.
3139      */
3140     p = pattern;
3141     alternatives = 1;
3142     while ((p = strchr(p, ',')) != NULL) {
3143       alternatives++;
3144       p++;
3145     }
3146     snprintf(strInt, sizeof(strInt), "%d", targetPxlSize);
3147     strIntLen = strlen(strInt);
3148     base_fnt_lst = calloc(1, strlen(pattern) + strIntLen * alternatives + 1);
3149
3150     p = pattern;
3151     q = base_fnt_lst;
3152     while (alternatives--) {
3153       char *comma = strchr(p, ',');
3154       for (i=0; i<14; i++) {
3155         char *hyphen = strchr(p, '-');
3156         if (!hyphen) break;
3157         if (comma && hyphen > comma) break;
3158         len = hyphen + 1 - p;
3159         if (i == 7 && *p == '*' && len == 2) {
3160           p += len;
3161           memcpy(q, strInt, strIntLen);
3162           q += strIntLen;
3163           *q++ = '-';
3164         } else {
3165           memcpy(q, p, len);
3166           p += len;
3167           q += len;
3168         }
3169       }
3170       if (!comma) break;
3171       len = comma + 1 - p;
3172       memcpy(q, p, len);
3173       p += len;
3174       q += len;
3175     }
3176     strcpy(q, p);
3177
3178     return base_fnt_lst;
3179 }
3180
3181 XFontSet
3182 CreateFontSet(base_fnt_lst)
3183      char *base_fnt_lst;
3184 {
3185     XFontSet fntSet;
3186     char **missing_list;
3187     int missing_count;
3188     char *def_string;
3189
3190     fntSet = XCreateFontSet(xDisplay, base_fnt_lst,
3191                             &missing_list, &missing_count, &def_string);
3192     if (appData.debugMode) {
3193       int i, count;
3194       XFontStruct **font_struct_list;
3195       char **font_name_list;
3196       fprintf(debugFP, "Requested font set for list %s\n", base_fnt_lst);
3197       if (fntSet) {
3198         fprintf(debugFP, " got list %s, locale %s\n",
3199                 XBaseFontNameListOfFontSet(fntSet),
3200                 XLocaleOfFontSet(fntSet));
3201         count = XFontsOfFontSet(fntSet, &font_struct_list, &font_name_list);
3202         for (i = 0; i < count; i++) {
3203           fprintf(debugFP, " got charset %s\n", font_name_list[i]);
3204         }
3205       }
3206       for (i = 0; i < missing_count; i++) {
3207         fprintf(debugFP, " missing charset %s\n", missing_list[i]);
3208       }
3209     }
3210     if (fntSet == NULL) {
3211       fprintf(stderr, _("Unable to create font set for %s.\n"), base_fnt_lst);
3212       exit(2);
3213     }
3214     return fntSet;
3215 }
3216 #else // not ENABLE_NLS
3217 /*
3218  * Find a font that matches "pattern" that is as close as
3219  * possible to the targetPxlSize.  Prefer fonts that are k
3220  * pixels smaller to fonts that are k pixels larger.  The
3221  * pattern must be in the X Consortium standard format,
3222  * e.g. "-*-helvetica-bold-r-normal--*-*-*-*-*-*-*-*".
3223  * The return value should be freed with XtFree when no
3224  * longer needed.
3225  */
3226 char *
3227 FindFont(pattern, targetPxlSize)
3228      char *pattern;
3229      int targetPxlSize;
3230 {
3231     char **fonts, *p, *best, *scalable, *scalableTail;
3232     int i, j, nfonts, minerr, err, pxlSize;
3233
3234     fonts = XListFonts(xDisplay, pattern, 999999, &nfonts);
3235     if (nfonts < 1) {
3236         fprintf(stderr, _("%s: no fonts match pattern %s\n"),
3237                 programName, pattern);
3238         exit(2);
3239     }
3240
3241     best = fonts[0];
3242     scalable = NULL;
3243     minerr = 999999;
3244     for (i=0; i<nfonts; i++) {
3245         j = 0;
3246         p = fonts[i];
3247         if (*p != '-') continue;
3248         while (j < 7) {
3249             if (*p == NULLCHAR) break;
3250             if (*p++ == '-') j++;
3251         }
3252         if (j < 7) continue;
3253         pxlSize = atoi(p);
3254         if (pxlSize == 0) {
3255             scalable = fonts[i];
3256             scalableTail = p;
3257         } else {
3258             err = pxlSize - targetPxlSize;
3259             if (Abs(err) < Abs(minerr) ||
3260                 (minerr > 0 && err < 0 && -err == minerr)) {
3261                 best = fonts[i];
3262                 minerr = err;
3263             }
3264         }
3265     }
3266     if (scalable && Abs(minerr) > appData.fontSizeTolerance) {
3267         /* If the error is too big and there is a scalable font,
3268            use the scalable font. */
3269         int headlen = scalableTail - scalable;
3270         p = (char *) XtMalloc(strlen(scalable) + 10);
3271         while (isdigit(*scalableTail)) scalableTail++;
3272         sprintf(p, "%.*s%d%s", headlen, scalable, targetPxlSize, scalableTail);
3273     } else {
3274         p = (char *) XtMalloc(strlen(best) + 2);
3275         safeStrCpy(p, best, strlen(best)+1 );
3276     }
3277     if (appData.debugMode) {
3278         fprintf(debugFP, _("resolved %s at pixel size %d\n  to %s\n"),
3279                 pattern, targetPxlSize, p);
3280     }
3281     XFreeFontNames(fonts);
3282     return p;
3283 }
3284 #endif
3285
3286 void DeleteGCs()
3287 {   // [HGM] deletes GCs that are to be remade, to prevent resource leak;
3288     // must be called before all non-first callse to CreateGCs()
3289     XtReleaseGC(shellWidget, highlineGC);
3290     XtReleaseGC(shellWidget, lightSquareGC);
3291     XtReleaseGC(shellWidget, darkSquareGC);
3292     XtReleaseGC(shellWidget, lineGC);
3293     if (appData.monoMode) {
3294         if (DefaultDepth(xDisplay, xScreen) == 1) {
3295             XtReleaseGC(shellWidget, wbPieceGC);
3296         } else {
3297             XtReleaseGC(shellWidget, bwPieceGC);
3298         }
3299     } else {
3300         XtReleaseGC(shellWidget, prelineGC);
3301         XtReleaseGC(shellWidget, jailSquareGC);
3302         XtReleaseGC(shellWidget, wdPieceGC);
3303         XtReleaseGC(shellWidget, wlPieceGC);
3304         XtReleaseGC(shellWidget, wjPieceGC);
3305         XtReleaseGC(shellWidget, bdPieceGC);
3306         XtReleaseGC(shellWidget, blPieceGC);
3307         XtReleaseGC(shellWidget, bjPieceGC);
3308     }
3309 }
3310
3311 void CreateGCs(int redo)
3312 {
3313     XtGCMask value_mask = GCLineWidth | GCLineStyle | GCForeground
3314       | GCBackground | GCFunction | GCPlaneMask;
3315     XGCValues gc_values;
3316     GC copyInvertedGC;
3317
3318     gc_values.plane_mask = AllPlanes;
3319     gc_values.line_width = lineGap;
3320     gc_values.line_style = LineSolid;
3321     gc_values.function = GXcopy;
3322
3323   if(redo) {
3324     DeleteGCs(); // called a second time; clean up old GCs first
3325   } else { // [HGM] grid and font GCs created on first call only
3326     gc_values.foreground = XBlackPixel(xDisplay, xScreen);
3327     gc_values.background = XWhitePixel(xDisplay, xScreen);
3328     coordGC = XtGetGC(shellWidget, value_mask, &gc_values);
3329     XSetFont(xDisplay, coordGC, coordFontID);
3330
3331     // [HGM] make font for holdings counts (white on black)
3332     gc_values.foreground = XWhitePixel(xDisplay, xScreen);
3333     gc_values.background = XBlackPixel(xDisplay, xScreen);
3334     countGC = XtGetGC(shellWidget, value_mask, &gc_values);
3335     XSetFont(xDisplay, countGC, countFontID);
3336   }
3337     gc_values.foreground = XBlackPixel(xDisplay, xScreen);
3338     gc_values.background = XBlackPixel(xDisplay, xScreen);
3339     lineGC = XtGetGC(shellWidget, value_mask, &gc_values);
3340
3341     if (appData.monoMode) {
3342         gc_values.foreground = XWhitePixel(xDisplay, xScreen);
3343         gc_values.background = XWhitePixel(xDisplay, xScreen);
3344         highlineGC = XtGetGC(shellWidget, value_mask, &gc_values);
3345
3346         gc_values.foreground = XWhitePixel(xDisplay, xScreen);
3347         gc_values.background = XBlackPixel(xDisplay, xScreen);
3348         lightSquareGC = wbPieceGC
3349           = XtGetGC(shellWidget, value_mask, &gc_values);
3350
3351         gc_values.foreground = XBlackPixel(xDisplay, xScreen);
3352         gc_values.background = XWhitePixel(xDisplay, xScreen);
3353         darkSquareGC = bwPieceGC
3354           = XtGetGC(shellWidget, value_mask, &gc_values);
3355
3356         if (DefaultDepth(xDisplay, xScreen) == 1) {
3357             /* Avoid XCopyPlane on 1-bit screens to work around Sun bug */
3358             gc_values.function = GXcopyInverted;
3359             copyInvertedGC = XtGetGC(shellWidget, value_mask, &gc_values);
3360             gc_values.function = GXcopy;
3361             if (XBlackPixel(xDisplay, xScreen) == 1) {
3362                 bwPieceGC = darkSquareGC;
3363                 wbPieceGC = copyInvertedGC;
3364             } else {
3365                 bwPieceGC = copyInvertedGC;
3366                 wbPieceGC = lightSquareGC;
3367             }
3368         }
3369     } else {
3370         gc_values.foreground = highlightSquareColor;
3371         gc_values.background = highlightSquareColor;
3372         highlineGC = XtGetGC(shellWidget, value_mask, &gc_values);
3373
3374         gc_values.foreground = premoveHighlightColor;
3375         gc_values.background = premoveHighlightColor;
3376         prelineGC = XtGetGC(shellWidget, value_mask, &gc_values);
3377
3378         gc_values.foreground = lightSquareColor;
3379         gc_values.background = darkSquareColor;
3380         lightSquareGC = XtGetGC(shellWidget, value_mask, &gc_values);
3381
3382         gc_values.foreground = darkSquareColor;
3383         gc_values.background = lightSquareColor;
3384         darkSquareGC = XtGetGC(shellWidget, value_mask, &gc_values);
3385
3386         gc_values.foreground = jailSquareColor;
3387         gc_values.background = jailSquareColor;
3388         jailSquareGC = XtGetGC(shellWidget, value_mask, &gc_values);
3389
3390         gc_values.foreground = whitePieceColor;
3391         gc_values.background = darkSquareColor;
3392         wdPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3393
3394         gc_values.foreground = whitePieceColor;
3395         gc_values.background = lightSquareColor;
3396         wlPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3397
3398         gc_values.foreground = whitePieceColor;
3399         gc_values.background = jailSquareColor;
3400         wjPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3401
3402         gc_values.foreground = blackPieceColor;
3403         gc_values.background = darkSquareColor;
3404         bdPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3405
3406         gc_values.foreground = blackPieceColor;
3407         gc_values.background = lightSquareColor;
3408         blPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3409
3410         gc_values.foreground = blackPieceColor;
3411         gc_values.background = jailSquareColor;
3412         bjPieceGC = XtGetGC(shellWidget, value_mask, &gc_values);
3413     }
3414 }
3415
3416 void loadXIM(xim, xmask, filename, dest, mask)
3417      XImage *xim;
3418      XImage *xmask;
3419      char *filename;
3420      Pixmap *dest;
3421      Pixmap *mask;
3422 {
3423     int x, y, w, h, p;
3424     FILE *fp;
3425     Pixmap temp;
3426     XGCValues   values;
3427     GC maskGC;
3428
3429     fp = fopen(filename, "rb");
3430     if (!fp) {
3431         fprintf(stderr, _("%s: error loading XIM!\n"), programName);
3432         exit(1);
3433     }
3434
3435     w = fgetc(fp);
3436     h = fgetc(fp);
3437
3438     for (y=0; y<h; ++y) {
3439         for (x=0; x<h; ++x) {
3440             p = fgetc(fp);
3441
3442             switch (p) {
3443               case 0:
3444                 XPutPixel(xim, x, y, blackPieceColor);
3445                 if (xmask)
3446                   XPutPixel(xmask, x, y, WhitePixel(xDisplay,xScreen));
3447                 break;
3448               case 1:
3449                 XPutPixel(xim, x, y, darkSquareColor);
3450                 if (xmask)
3451                   XPutPixel(xmask, x, y, BlackPixel(xDisplay,xScreen));
3452                 break;
3453               case 2:
3454                 XPutPixel(xim, x, y, whitePieceColor);
3455                 if (xmask)
3456                   XPutPixel(xmask, x, y, WhitePixel(xDisplay,xScreen));
3457                 break;
3458               case 3:
3459                 XPutPixel(xim, x, y, lightSquareColor);
3460                 if (xmask)
3461                   XPutPixel(xmask, x, y, BlackPixel(xDisplay,xScreen));
3462                 break;
3463             }
3464         }
3465     }
3466
3467     fclose(fp);
3468
3469     /* create Pixmap of piece */
3470     *dest = XCreatePixmap(xDisplay, DefaultRootWindow(xDisplay),
3471                           w, h, xim->depth);
3472     XPutImage(xDisplay, *dest, lightSquareGC, xim,
3473               0, 0, 0, 0, w, h);
3474
3475     /* create Pixmap of clipmask
3476        Note: We assume the white/black pieces have the same
3477              outline, so we make only 6 masks. This is okay
3478              since the XPM clipmask routines do the same. */
3479     if (xmask) {
3480       temp = XCreatePixmap(xDisplay, DefaultRootWindow(xDisplay),
3481                             w, h, xim->depth);
3482       XPutImage(xDisplay, temp, lightSquareGC, xmask,
3483               0, 0, 0, 0, w, h);
3484
3485       /* now create the 1-bit version */
3486       *mask = XCreatePixmap(xDisplay, DefaultRootWindow(xDisplay),
3487                           w, h, 1);
3488
3489       values.foreground = 1;
3490       values.background = 0;
3491
3492       /* Don't use XtGetGC, not read only */
3493       maskGC = XCreateGC(xDisplay, *mask,
3494                     GCForeground | GCBackground, &values);
3495       XCopyPlane(xDisplay, temp, *mask, maskGC,
3496                   0, 0, squareSize, squareSize, 0, 0, 1);
3497       XFreePixmap(xDisplay, temp);
3498     }
3499 }
3500
3501
3502 char pieceBitmapNames[] = "pnbrqfeacwmohijgdvlsukpnsl";
3503
3504 void CreateXIMPieces()
3505 {
3506     int piece, kind;
3507     char buf[MSG_SIZ];
3508     u_int ss;
3509     static char *ximkind[] = { "ll", "ld", "dl", "dd" };
3510     XImage *ximtemp;
3511
3512     ss = squareSize;
3513
3514     /* The XSynchronize calls were copied from CreatePieces.
3515        Not sure if needed, but can't hurt */
3516     XSynchronize(xDisplay, True); /* Work-around for xlib/xt
3517                                      buffering bug */
3518
3519     /* temp needed by loadXIM() */
3520     ximtemp = XGetImage(xDisplay, DefaultRootWindow(xDisplay),
3521                  0, 0, ss, ss, AllPlanes, XYPixmap);
3522
3523     if (strlen(appData.pixmapDirectory) == 0) {
3524       useImages = 0;
3525     } else {
3526         useImages = 1;
3527         if (appData.monoMode) {
3528           DisplayFatalError(_("XIM pieces cannot be used in monochrome mode"),
3529                             0, 2);
3530           ExitEvent(2);
3531         }
3532         fprintf(stderr, _("\nLoading XIMs...\n"));
3533         /* Load pieces */
3534         for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++) {
3535             fprintf(stderr, "%d", piece+1);
3536             for (kind=0; kind<4; kind++) {
3537                 fprintf(stderr, ".");
3538                 snprintf(buf, sizeof(buf), "%s/%s%c%s%u.xim",
3539                         ExpandPathName(appData.pixmapDirectory),
3540                         piece <= (int) WhiteKing ? "" : "w",
3541                         pieceBitmapNames[piece],
3542                         ximkind[kind], ss);
3543                 ximPieceBitmap[kind][piece] =
3544                   XGetImage(xDisplay, DefaultRootWindow(xDisplay),
3545                             0, 0, ss, ss, AllPlanes, XYPixmap);
3546                 if (appData.debugMode)
3547                   fprintf(stderr, _("(File:%s:) "), buf);
3548                 loadXIM(ximPieceBitmap[kind][piece],
3549                         ximtemp, buf,
3550                         &(xpmPieceBitmap2[kind][piece]),
3551                         &(ximMaskPm2[piece]));
3552                 if(piece <= (int)WhiteKing)
3553                     xpmPieceBitmap[kind][piece] = xpmPieceBitmap2[kind][piece];
3554             }
3555             fprintf(stderr," ");
3556         }
3557         /* Load light and dark squares */
3558         /* If the LSQ and DSQ pieces don't exist, we will
3559            draw them with solid squares. */
3560         snprintf(buf,sizeof(buf), "%s/lsq%u.xim", ExpandPathName(appData.pixmapDirectory), ss);
3561         if (access(buf, 0) != 0) {
3562             useImageSqs = 0;
3563         } else {
3564             useImageSqs = 1;
3565             fprintf(stderr, _("light square "));
3566             ximLightSquare=
3567               XGetImage(xDisplay, DefaultRootWindow(xDisplay),
3568                         0, 0, ss, ss, AllPlanes, XYPixmap);
3569             if (appData.debugMode)
3570               fprintf(stderr, _("(File:%s:) "), buf);
3571
3572             loadXIM(ximLightSquare, NULL, buf, &xpmLightSquare, NULL);
3573             fprintf(stderr, _("dark square "));
3574             snprintf(buf,sizeof(buf), "%s/dsq%u.xim",
3575                     ExpandPathName(appData.pixmapDirectory), ss);
3576             if (appData.debugMode)
3577               fprintf(stderr, _("(File:%s:) "), buf);
3578             ximDarkSquare=
3579               XGetImage(xDisplay, DefaultRootWindow(xDisplay),
3580                         0, 0, ss, ss, AllPlanes, XYPixmap);
3581             loadXIM(ximDarkSquare, NULL, buf, &xpmDarkSquare, NULL);
3582             xpmJailSquare = xpmLightSquare;
3583         }
3584         fprintf(stderr, _("Done.\n"));
3585     }
3586     XSynchronize(xDisplay, False); /* Work-around for xlib/xt buffering bug */
3587 }
3588
3589 static VariantClass oldVariant = (VariantClass) -1; // [HGM] pieces: redo every time variant changes
3590
3591 #if HAVE_LIBXPM
3592 void CreateXPMBoard(char *s, int kind)
3593 {
3594     XpmAttributes attr;
3595     attr.valuemask = 0;
3596     if(s == NULL || *s == 0 || *s == '*') { useTexture &= ~(kind+1); return; }
3597     if (XpmReadFileToPixmap(xDisplay, xBoardWindow, s, &(xpmBoardBitmap[kind]), NULL, &attr) == 0) {
3598         useTexture |= kind + 1; textureW[kind] = attr.width; textureH[kind] = attr.height;
3599     }
3600 }
3601
3602 void FreeXPMPieces()
3603 {   // [HGM] to prevent resoucre leak on calling CreaeXPMPieces() a second time,
3604     // thisroutine has to be called t free the old piece pixmaps
3605     int piece, kind;
3606     for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++)
3607         for (kind=0; kind<4; kind++) XFreePixmap(xDisplay, xpmPieceBitmap2[kind][piece]);
3608     if(useImageSqs) {
3609         XFreePixmap(xDisplay, xpmLightSquare);
3610         XFreePixmap(xDisplay, xpmDarkSquare);
3611     }
3612 }
3613
3614 void CreateXPMPieces()
3615 {
3616     int piece, kind, r;
3617     char buf[MSG_SIZ];
3618     u_int ss = squareSize;
3619     XpmAttributes attr;
3620     static char *xpmkind[] = { "ll", "ld", "dl", "dd" };
3621     XpmColorSymbol symbols[4];
3622     static int redo = False;
3623
3624     if(redo) FreeXPMPieces(); else redo = 1;
3625
3626     /* The XSynchronize calls were copied from CreatePieces.
3627        Not sure if needed, but can't hurt */
3628     XSynchronize(xDisplay, True); /* Work-around for xlib/xt buffering bug */
3629
3630     /* Setup translations so piece colors match square colors */
3631     symbols[0].name = "light_piece";
3632     symbols[0].value = appData.whitePieceColor;
3633     symbols[1].name = "dark_piece";
3634     symbols[1].value = appData.blackPieceColor;
3635     symbols[2].name = "light_square";
3636     symbols[2].value = appData.lightSquareColor;
3637     symbols[3].name = "dark_square";
3638     symbols[3].value = appData.darkSquareColor;
3639
3640     attr.valuemask = XpmColorSymbols;
3641     attr.colorsymbols = symbols;
3642     attr.numsymbols = 4;
3643
3644     if (appData.monoMode) {
3645       DisplayFatalError(_("XPM pieces cannot be used in monochrome mode"),
3646                         0, 2);
3647       ExitEvent(2);
3648     }
3649     if (strlen(appData.pixmapDirectory) == 0) {
3650         XpmPieces* pieces = builtInXpms;
3651         useImages = 1;
3652         /* Load pieces */
3653         while (pieces->size != squareSize && pieces->size) pieces++;
3654         if (!pieces->size) {
3655           fprintf(stderr, _("No builtin XPM pieces of size %d\n"), squareSize);
3656           exit(1);
3657         }
3658         for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++) {
3659             for (kind=0; kind<4; kind++) {
3660
3661                 if ((r=XpmCreatePixmapFromData(xDisplay, xBoardWindow,
3662                                                pieces->xpm[piece][kind],
3663                                                &(xpmPieceBitmap2[kind][piece]),
3664                                                NULL, &attr)) != 0) {
3665                   fprintf(stderr, _("Error %d loading XPM image \"%s\"\n"),
3666                           r, buf);
3667                   exit(1);
3668                 }
3669                 if(piece <= (int) WhiteKing)
3670                     xpmPieceBitmap[kind][piece] = xpmPieceBitmap2[kind][piece];
3671             }
3672         }
3673         useImageSqs = 0;
3674         xpmJailSquare = xpmLightSquare;
3675     } else {
3676         useImages = 1;
3677
3678         fprintf(stderr, _("\nLoading XPMs...\n"));
3679
3680         /* Load pieces */
3681         for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++) {
3682             fprintf(stderr, "%d ", piece+1);
3683             for (kind=0; kind<4; kind++) {
3684               snprintf(buf, sizeof(buf), "%s/%s%c%s%u.xpm",
3685                         ExpandPathName(appData.pixmapDirectory),
3686                         piece > (int) WhiteKing ? "w" : "",
3687                         pieceBitmapNames[piece],
3688                         xpmkind[kind], ss);
3689                 if (appData.debugMode) {
3690                     fprintf(stderr, _("(File:%s:) "), buf);
3691                 }
3692                 if ((r=XpmReadFileToPixmap(xDisplay, xBoardWindow, buf,
3693                                            &(xpmPieceBitmap2[kind][piece]),
3694                                            NULL, &attr)) != 0) {
3695                     if(piece != (int)WhiteKing && piece > (int)WhiteQueen) {
3696                       // [HGM] missing: read of unorthodox piece failed; substitute King.
3697                       snprintf(buf, sizeof(buf), "%s/k%s%u.xpm",
3698                                 ExpandPathName(appData.pixmapDirectory),
3699                                 xpmkind[kind], ss);
3700                         if (appData.debugMode) {
3701                             fprintf(stderr, _("(Replace by File:%s:) "), buf);
3702                         }
3703                         r=XpmReadFileToPixmap(xDisplay, xBoardWindow, buf,
3704                                                 &(xpmPieceBitmap2[kind][piece]),
3705                                                 NULL, &attr);
3706                     }
3707                     if (r != 0) {
3708                         fprintf(stderr, _("Error %d loading XPM file \"%s\"\n"),
3709                                 r, buf);
3710                         exit(1);
3711                     }
3712                 }
3713                 if(piece <= (int) WhiteKing)
3714                     xpmPieceBitmap[kind][piece] = xpmPieceBitmap2[kind][piece];
3715             }
3716         }
3717         /* Load light and dark squares */
3718         /* If the LSQ and DSQ pieces don't exist, we will
3719            draw them with solid squares. */
3720         fprintf(stderr, _("light square "));
3721         snprintf(buf, sizeof(buf), "%s/lsq%u.xpm", ExpandPathName(appData.pixmapDirectory), ss);
3722         if (access(buf, 0) != 0) {
3723             useImageSqs = 0;
3724         } else {
3725             useImageSqs = 1;
3726             if (appData.debugMode)
3727               fprintf(stderr, _("(File:%s:) "), buf);
3728
3729             if ((r=XpmReadFileToPixmap(xDisplay, xBoardWindow, buf,
3730                                        &xpmLightSquare, NULL, &attr)) != 0) {
3731                 fprintf(stderr, _("Error %d loading XPM file \"%s\"\n"), r, buf);
3732                 exit(1);
3733             }
3734             fprintf(stderr, _("dark square "));
3735             snprintf(buf, sizeof(buf), "%s/dsq%u.xpm",
3736                     ExpandPathName(appData.pixmapDirectory), ss);
3737             if (appData.debugMode) {
3738                 fprintf(stderr, _("(File:%s:) "), buf);
3739             }
3740             if ((r=XpmReadFileToPixmap(xDisplay, xBoardWindow, buf,
3741                                        &xpmDarkSquare, NULL, &attr)) != 0) {
3742                 fprintf(stderr, _("Error %d loading XPM file \"%s\"\n"), r, buf);
3743                 exit(1);
3744             }
3745         }
3746         xpmJailSquare = xpmLightSquare;
3747         fprintf(stderr, _("Done.\n"));
3748     }
3749     oldVariant = -1; // kludge to force re-makig of animation masks
3750     XSynchronize(xDisplay, False); /* Work-around for xlib/xt
3751                                       buffering bug */
3752 }
3753 #endif /* HAVE_LIBXPM */
3754
3755 #if HAVE_LIBXPM
3756 /* No built-in bitmaps */
3757 void CreatePieces()
3758 {
3759     int piece, kind;
3760     char buf[MSG_SIZ];
3761     u_int ss = squareSize;
3762
3763     XSynchronize(xDisplay, True); /* Work-around for xlib/xt
3764                                      buffering bug */
3765
3766     for (kind = SOLID; kind <= (appData.monoMode ? OUTLINE : SOLID); kind++) {
3767         for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++) {
3768           snprintf(buf, MSG_SIZ, "%s%c%u%c.bm", piece > (int)WhiteKing ? "w" : "",
3769                    pieceBitmapNames[piece],
3770                    ss, kind == SOLID ? 's' : 'o');
3771           ReadBitmap(&pieceBitmap2[kind][piece], buf, NULL, ss, ss);
3772           if(piece <= (int)WhiteKing)
3773             pieceBitmap[kind][piece] = pieceBitmap2[kind][piece];
3774         }
3775     }
3776
3777     XSynchronize(xDisplay, False); /* Work-around for xlib/xt
3778                                       buffering bug */
3779 }
3780 #else
3781 /* With built-in bitmaps */
3782 void CreatePieces()
3783 {
3784     BuiltInBits* bib = builtInBits;
3785     int piece, kind;
3786     char buf[MSG_SIZ];
3787     u_int ss = squareSize;
3788
3789     XSynchronize(xDisplay, True); /* Work-around for xlib/xt
3790                                      buffering bug */
3791
3792     while (bib->squareSize != ss && bib->squareSize != 0) bib++;
3793
3794     for (kind = SOLID; kind <= (appData.monoMode ? OUTLINE : SOLID); kind++) {
3795         for (piece = (int) WhitePawn; piece <= (int) WhiteKing + 4; piece++) {
3796           snprintf(buf, MSG_SIZ, "%s%c%u%c.bm", piece > (int)WhiteKing ? "w" : "",
3797                    pieceBitmapNames[piece],
3798                    ss, kind == SOLID ? 's' : 'o');
3799           ReadBitmap(&pieceBitmap2[kind][piece], buf,
3800                      bib->bits[kind][piece], ss, ss);
3801           if(piece <= (int)WhiteKing)
3802             pieceBitmap[kind][piece] = pieceBitmap2[kind][piece];
3803         }
3804     }
3805
3806     XSynchronize(xDisplay, False); /* Work-around for xlib/xt
3807                                       buffering bug */
3808 }
3809 #endif
3810
3811 void ReadBitmap(pm, name, bits, wreq, hreq)
3812      Pixmap *pm;
3813      String name;
3814      unsigned char bits[];
3815      u_int wreq, hreq;
3816 {
3817     int x_hot, y_hot;
3818     u_int w, h;
3819     int errcode;
3820     char msg[MSG_SIZ], fullname[MSG_SIZ];
3821
3822     if (*appData.bitmapDirectory != NULLCHAR) {
3823       safeStrCpy(fullname, appData.bitmapDirectory, sizeof(fullname)/sizeof(fullname[0]) );
3824       strncat(fullname, "/", MSG_SIZ - strlen(fullname) - 1);
3825       strncat(fullname, name, MSG_SIZ - strlen(fullname) - 1);
3826       errcode = XReadBitmapFile(xDisplay, xBoardWindow, fullname,
3827                                 &w, &h, pm, &x_hot, &y_hot);
3828       fprintf(stderr, "load %s\n", name);
3829         if (errcode != BitmapSuccess) {
3830             switch (errcode) {
3831               case BitmapOpenFailed:
3832                 snprintf(msg, sizeof(msg), _("Can't open bitmap file %s"), fullname);
3833                 break;
3834               case BitmapFileInvalid:
3835                 snprintf(msg, sizeof(msg), _("Invalid bitmap in file %s"), fullname);
3836                 break;
3837               case BitmapNoMemory:
3838                 snprintf(msg, sizeof(msg), _("Ran out of memory reading bitmap file %s"),
3839                         fullname);
3840                 break;
3841               default:
3842                 snprintf(msg, sizeof(msg), _("Unknown XReadBitmapFile error %d on file %s"),
3843                         errcode, fullname);
3844                 break;
3845             }
3846             fprintf(stderr, _("%s: %s...using built-in\n"),
3847                     programName, msg);
3848         } else if (w != wreq || h != hreq) {
3849             fprintf(stderr,
3850                     _("%s: Bitmap %s is %dx%d, not %dx%d...using built-in\n"),
3851                     programName, fullname, w, h, wreq, hreq);
3852         } else {
3853             return;
3854         }
3855     }
3856     if (bits != NULL) {
3857         *pm = XCreateBitmapFromData(xDisplay, xBoardWindow, (char *) bits,
3858                                     wreq, hreq);
3859     }
3860 }
3861
3862 void CreateGrid()
3863 {
3864     int i, j;
3865
3866     if (lineGap == 0) return;
3867
3868     /* [HR] Split this into 2 loops for non-square boards. */
3869
3870     for (i = 0; i < BOARD_HEIGHT + 1; i++) {
3871         gridSegments[i].x1 = 0;
3872         gridSegments[i].x2 =
3873           lineGap + BOARD_WIDTH * (squareSize + lineGap);
3874         gridSegments[i].y1 = gridSegments[i].y2
3875           = lineGap / 2 + (i * (squareSize + lineGap));
3876     }
3877
3878     for (j = 0; j < BOARD_WIDTH + 1; j++) {
3879         gridSegments[j + i].y1 = 0;
3880         gridSegments[j + i].y2 =
3881           lineGap + BOARD_HEIGHT * (squareSize + lineGap);
3882         gridSegments[j + i].x1 = gridSegments[j + i].x2
3883           = lineGap / 2 + (j * (squareSize + lineGap));
3884     }
3885 }
3886
3887 static void MenuBarSelect(w, addr, index)
3888      Widget w;
3889      caddr_t addr;
3890      caddr_t index;
3891 {
3892     XtActionProc proc = (XtActionProc) addr;
3893
3894     (proc)(NULL, NULL, NULL, NULL);
3895 }
3896
3897 void CreateMenuBarPopup(parent, name, mb)
3898      Widget parent;
3899      String name;
3900      Menu *mb;
3901 {
3902     int j;
3903     Widget menu, entry;
3904     MenuItem *mi;
3905     Arg args[16];
3906
3907     menu = XtCreatePopupShell(name, simpleMenuWidgetClass,
3908                               parent, NULL, 0);
3909     j = 0;
3910     XtSetArg(args[j], XtNleftMargin, 20);   j++;
3911     XtSetArg(args[j], XtNrightMargin, 20);  j++;
3912     mi = mb->mi;
3913     while (mi->string != NULL) {
3914         if (strcmp(mi->string, "----") == 0) {
3915           entry = XtCreateManagedWidget(_(mi->string), smeLineObjectClass,
3916                                           menu, args, j);
3917         } else {
3918           XtSetArg(args[j], XtNlabel, XtNewString(_(mi->string)));
3919             entry = XtCreateManagedWidget(mi->ref, smeBSBObjectClass,
3920                                           menu, args, j+1);
3921             XtAddCallback(entry, XtNcallback,
3922                           (XtCallbackProc) MenuBarSelect,
3923                           (caddr_t) mi->proc);
3924         }
3925         mi++;
3926     }
3927 }
3928
3929 Widget CreateMenuBar(mb)
3930      Menu *mb;
3931 {
3932     int j;
3933     Widget anchor, menuBar;
3934     Arg args[16];
3935     char menuName[MSG_SIZ];
3936
3937     j = 0;
3938     XtSetArg(args[j], XtNorientation, XtorientHorizontal);  j++;
3939     XtSetArg(args[j], XtNvSpace, 0);                        j++;
3940     XtSetArg(args[j], XtNborderWidth, 0);                   j++;
3941     menuBar = XtCreateWidget("menuBar", boxWidgetClass,
3942                              formWidget, args, j);
3943
3944     while (mb->name != NULL) {
3945         safeStrCpy(menuName, "menu", sizeof(menuName)/sizeof(menuName[0]) );
3946         strncat(menuName, mb->ref, MSG_SIZ - strlen(menuName) - 1);
3947         j = 0;
3948         XtSetArg(args[j], XtNmenuName, XtNewString(menuName));  j++;
3949         if (tinyLayout) {
3950             char shortName[2];
3951             shortName[0] = mb->name[0];
3952             shortName[1] = NULLCHAR;
3953             XtSetArg(args[j], XtNlabel, XtNewString(shortName)); j++;
3954         }
3955       else {
3956         XtSetArg(args[j], XtNlabel, XtNewString(_(mb->name))); j++;
3957       }
3958
3959         XtSetArg(args[j], XtNborderWidth, 0);                   j++;
3960         anchor = XtCreateManagedWidget(mb->name, menuButtonWidgetClass,
3961                                        menuBar, args, j);
3962         CreateMenuBarPopup(menuBar, menuName, mb);
3963         mb++;
3964     }
3965     return menuBar;
3966 }
3967
3968 Widget CreateButtonBar(mi)
3969      MenuItem *mi;
3970 {
3971     int j;
3972     Widget button, buttonBar;
3973     Arg args[16];
3974
3975     j = 0;
3976     XtSetArg(args[j], XtNorientation, XtorientHorizontal); j++;
3977     if (tinyLayout) {
3978         XtSetArg(args[j], XtNhSpace, 0); j++;
3979     }
3980     XtSetArg(args[j], XtNborderWidth, 0); j++;
3981     XtSetArg(args[j], XtNvSpace, 0);                        j++;
3982     buttonBar = XtCreateWidget("buttonBar", boxWidgetClass,
3983                                formWidget, args, j);
3984
3985     while (mi->string != NULL) {
3986         j = 0;
3987         if (tinyLayout) {
3988             XtSetArg(args[j], XtNinternalWidth, 2); j++;
3989             XtSetArg(args[j], XtNborderWidth, 0); j++;
3990         }
3991       XtSetArg(args[j], XtNlabel, XtNewString(_(mi->string))); j++;
3992         button = XtCreateManagedWidget(mi->string, commandWidgetClass,
3993                                        buttonBar, args, j);
3994         XtAddCallback(button, XtNcallback,
3995                       (XtCallbackProc) MenuBarSelect,
3996                       (caddr_t) mi->proc);
3997         mi++;
3998     }
3999     return buttonBar;
4000 }
4001
4002 Widget
4003 CreatePieceMenu(name, color)
4004      char *name;
4005      int color;
4006 {
4007     int i;
4008     Widget entry, menu;
4009     Arg args[16];
4010     ChessSquare selection;
4011
4012     menu = XtCreatePopupShell(name, simpleMenuWidgetClass,
4013                               boardWidget, args, 0);
4014
4015     for (i = 0; i < PIECE_MENU_SIZE; i++) {
4016         String item = pieceMenuStrings[color][i];
4017
4018         if (strcmp(item, "----") == 0) {
4019             entry = XtCreateManagedWidget(item, smeLineObjectClass,
4020                                           menu, NULL, 0);
4021         } else {
4022           XtSetArg(args[0], XtNlabel, XtNewString(_(item)));
4023             entry = XtCreateManagedWidget(item, smeBSBObjectClass,
4024                                 menu, args, 1);
4025             selection = pieceMenuTranslation[color][i];
4026             XtAddCallback(entry, XtNcallback,
4027                           (XtCallbackProc) PieceMenuSelect,
4028                           (caddr_t) selection);
4029             if (selection == WhitePawn || selection == BlackPawn) {
4030                 XtSetArg(args[0], XtNpopupOnEntry, entry);
4031                 XtSetValues(menu, args, 1);
4032             }
4033         }
4034     }
4035     return menu;
4036 }
4037
4038 void
4039 CreatePieceMenus()
4040 {
4041     int i;
4042     Widget entry;
4043     Arg args[16];
4044     ChessSquare selection;
4045
4046     whitePieceMenu = CreatePieceMenu("menuW", 0);
4047     blackPieceMenu = CreatePieceMenu("menuB", 1);
4048
4049     XtRegisterGrabAction(PieceMenuPopup, True,
4050                          (unsigned)(ButtonPressMask|ButtonReleaseMask),
4051                          GrabModeAsync, GrabModeAsync);
4052
4053     XtSetArg(args[0], XtNlabel, _("Drop"));
4054     dropMenu = XtCreatePopupShell("menuD", simpleMenuWidgetClass,
4055                                   boardWidget, args, 1);
4056     for (i = 0; i < DROP_MENU_SIZE; i++) {
4057         String item = dropMenuStrings[i];
4058
4059         if (strcmp(item, "----") == 0) {
4060             entry = XtCreateManagedWidget(item, smeLineObjectClass,
4061                                           dropMenu, NULL, 0);
4062         } else {
4063           XtSetArg(args[0], XtNlabel, XtNewString(_(item)));
4064             entry = XtCreateManagedWidget(item, smeBSBObjectClass,
4065                                 dropMenu, args, 1);
4066             selection = dropMenuTranslation[i];
4067             XtAddCallback(entry, XtNcallback,
4068                           (XtCallbackProc) DropMenuSelect,
4069                           (caddr_t) selection);
4070         }
4071     }
4072 }
4073
4074 void SetupDropMenu()
4075 {
4076     int i, j, count;
4077     char label[32];
4078     Arg args[16];
4079     Widget entry;
4080     char* p;
4081
4082     for (i=0; i<sizeof(dmEnables)/sizeof(DropMenuEnables); i++) {
4083         entry = XtNameToWidget(dropMenu, dmEnables[i].widget);
4084         p = strchr(gameMode == IcsPlayingWhite ? white_holding : black_holding,
4085                    dmEnables[i].piece);
4086         XtSetSensitive(entry, p != NULL || !appData.testLegality
4087                        /*!!temp:*/ || (gameInfo.variant == VariantCrazyhouse
4088                                        && !appData.icsActive));
4089         count = 0;
4090         while (p && *p++ == dmEnables[i].piece) count++;
4091         snprintf(label, sizeof(label), "%s  %d", dmEnables[i].widget, count);
4092         j = 0;
4093         XtSetArg(args[j], XtNlabel, label); j++;
4094         XtSetValues(entry, args, j);
4095     }
4096 }
4097
4098 void PieceMenuPopup(w, event, params, num_params)
4099      Widget w;
4100      XEvent *event;
4101      String *params;
4102      Cardinal *num_params;
4103 {
4104     String whichMenu; int menuNr = -2;
4105     shiftKey = strcmp(params[0], "menuW"); // used to indicate black
4106     if (event->type == ButtonRelease)
4107         menuNr = RightClick(Release, event->xbutton.x, event->xbutton.y, &pmFromX, &pmFromY);
4108     else if (event->type == ButtonPress)
4109         menuNr = RightClick(Press,   event->xbutton.x, event->xbutton.y, &pmFromX, &pmFromY);
4110     switch(menuNr) {
4111       case 0: whichMenu = params[0]; break;
4112       case 1: SetupDropMenu(); whichMenu = "menuD"; break;
4113       case 2:
4114       case -1: if (errorUp) ErrorPopDown();
4115       default: return;
4116     }
4117     XtPopupSpringLoaded(XtNameToWidget(boardWidget, whichMenu));
4118 }
4119
4120 static void PieceMenuSelect(w, piece, junk)
4121      Widget w;
4122      ChessSquare piece;
4123      caddr_t junk;
4124 {
4125     if (pmFromX < 0 || pmFromY < 0) return;
4126     EditPositionMenuEvent(piece, pmFromX, pmFromY);
4127 }
4128
4129 static void DropMenuSelect(w, piece, junk)
4130      Widget w;
4131      ChessSquare piece;
4132      caddr_t junk;
4133 {
4134     if (pmFromX < 0 || pmFromY < 0) return;
4135     DropMenuEvent(piece, pmFromX, pmFromY);
4136 }
4137
4138 void WhiteClock(w, event, prms, nprms)
4139      Widget w;
4140      XEvent *event;
4141      String *prms;
4142      Cardinal *nprms;
4143 {
4144     ClockClick(0);
4145 }
4146
4147 void BlackClock(w, event, prms, nprms)
4148      Widget w;
4149      XEvent *event;
4150      String *prms;
4151      Cardinal *nprms;
4152 {
4153     ClockClick(1);
4154 }
4155
4156
4157 /*
4158  * If the user selects on a border boundary, return -1; if off the board,
4159  *   return -2.  Otherwise map the event coordinate to the square.
4160  */
4161 int EventToSquare(x, limit)
4162      int x;
4163 {
4164     if (x <= 0)
4165       return -2;
4166     if (x < lineGap)
4167       return -1;
4168     x -= lineGap;
4169     if ((x % (squareSize + lineGap)) >= squareSize)
4170       return -1;
4171     x /= (squareSize + lineGap);
4172     if (x >= limit)
4173       return -2;
4174     return x;
4175 }
4176
4177 static void do_flash_delay(msec)
4178      unsigned long msec;
4179 {
4180     TimeDelay(msec);
4181 }
4182
4183 static void drawHighlight(file, rank, gc)
4184      int file, rank;
4185      GC gc;
4186 {
4187     int x, y;
4188
4189     if (lineGap == 0) return;
4190
4191     if (flipView) {
4192         x = lineGap/2 + ((BOARD_WIDTH-1)-file) *
4193           (squareSize + lineGap);
4194         y = lineGap/2 + rank * (squareSize + lineGap);
4195     } else {
4196         x = lineGap/2 + file * (squareSize + lineGap);
4197         y = lineGap/2 + ((BOARD_HEIGHT-1)-rank) *
4198           (squareSize + lineGap);
4199     }
4200
4201     XDrawRectangle(xDisplay, xBoardWindow, gc, x, y,
4202                    squareSize+lineGap, squareSize+lineGap);
4203 }
4204
4205 int hi1X = -1, hi1Y = -1, hi2X = -1, hi2Y = -1;
4206 int pm1X = -1, pm1Y = -1, pm2X = -1, pm2Y = -1;
4207
4208 void
4209 SetHighlights(fromX, fromY, toX, toY)
4210      int fromX, fromY, toX, toY;
4211 {
4212     if (hi1X != fromX || hi1Y != fromY) {
4213         if (hi1X >= 0 && hi1Y >= 0) {
4214             drawHighlight(hi1X, hi1Y, lineGC);
4215         }
4216     } // [HGM] first erase both, then draw new!
4217     if (hi2X != toX || hi2Y != toY) {
4218         if (hi2X >= 0 && hi2Y >= 0) {
4219             drawHighlight(hi2X, hi2Y, lineGC);
4220         }
4221     }
4222     if (hi1X != fromX || hi1Y != fromY) {
4223         if (fromX >= 0 && fromY >= 0) {
4224             drawHighlight(fromX, fromY, highlineGC);
4225         }
4226     }
4227     if (hi2X != toX || hi2Y != toY) {
4228         if (toX >= 0 && toY >= 0) {
4229             drawHighlight(toX, toY, highlineGC);
4230         }
4231     }
4232     hi1X = fromX;
4233     hi1Y = fromY;
4234     hi2X = toX;
4235     hi2Y = toY;
4236 }
4237
4238 void
4239 ClearHighlights()
4240 {
4241     SetHighlights(-1, -1, -1, -1);
4242 }
4243
4244
4245 void
4246 SetPremoveHighlights(fromX, fromY, toX, toY)
4247      int fromX, fromY, toX, toY;
4248 {
4249     if (pm1X != fromX || pm1Y != fromY) {
4250         if (pm1X >= 0 && pm1Y >= 0) {
4251             drawHighlight(pm1X, pm1Y, lineGC);
4252         }
4253         if (fromX >= 0 && fromY >= 0) {
4254             drawHighlight(fromX, fromY, prelineGC);
4255         }
4256     }
4257     if (pm2X != toX || pm2Y != toY) {
4258         if (pm2X >= 0 && pm2Y >= 0) {
4259             drawHighlight(pm2X, pm2Y, lineGC);
4260         }