Adjudicate Xiangqi material draws with Advisor-less Cannons
[xboard.git] / xengineoutput.c
1 /*
2  * Engine output (PV)
3  *
4  * Author: Alessandro Scotti (Dec 2005)
5  *
6  * Copyright 2005 Alessandro Scotti
7  *
8  * Enhancements Copyright 2009, 2010 Free Software Foundation, Inc.
9  *
10  * ------------------------------------------------------------------------
11  *
12  * GNU XBoard is free software: you can redistribute it and/or modify
13  * it under the terms of the GNU General Public License as published by
14  * the Free Software Foundation, either version 3 of the License, or (at
15  * your option) any later version.
16  *
17  * GNU XBoard is distributed in the hope that it will be useful, but
18  * WITHOUT ANY WARRANTY; without even the implied warranty of
19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20  * General Public License for more details.
21  *
22  * You should have received a copy of the GNU General Public License
23  * along with this program. If not, see http://www.gnu.org/licenses/.
24  *
25  * ------------------------------------------------------------------------
26  ** See the file ChangeLog for a revision history.  */
27
28 #include "config.h"
29
30 #include <stdio.h>
31 #include <ctype.h>
32 #include <errno.h>
33 #include <sys/types.h>
34
35 #if STDC_HEADERS
36 # include <stdlib.h>
37 # include <string.h>
38 #else /* not STDC_HEADERS */
39 extern char *getenv();
40 # if HAVE_STRING_H
41 #  include <string.h>
42 # else /* not HAVE_STRING_H */
43 #  include <strings.h>
44 # endif /* not HAVE_STRING_H */
45 #endif /* not STDC_HEADERS */
46
47 #if HAVE_UNISTD_H
48 # include <unistd.h>
49 #endif
50
51 #include <X11/Intrinsic.h>
52 #include <X11/StringDefs.h>
53 #include <X11/Shell.h>
54 #include <X11/Xaw/Dialog.h>
55 #include <X11/Xaw/Form.h>
56 #include <X11/Xaw/List.h>
57 #include <X11/Xaw/Label.h>
58 #include <X11/Xaw/SimpleMenu.h>
59 #include <X11/Xaw/SmeBSB.h>
60 #include <X11/Xaw/SmeLine.h>
61 #include <X11/Xaw/Box.h>
62 #include <X11/Xaw/Paned.h>
63 #include <X11/Xaw/MenuButton.h>
64 #include <X11/cursorfont.h>
65 #include <X11/Xaw/Text.h>
66 #include <X11/Xaw/AsciiText.h>
67 #include <X11/Xaw/Viewport.h>
68 #include <X11/Xatom.h>
69 #include <X11/Xmu/Atoms.h>
70
71 #include "common.h"
72 #include "frontend.h"
73 #include "backend.h"
74 #include "xboard.h"
75 #include "engineoutput.h"
76 #include "gettext.h"
77
78 #ifdef ENABLE_NLS
79 # define  _(s) gettext (s)
80 # define N_(s) gettext_noop (s)
81 #else
82 # define  _(s) (s)
83 # define N_(s)  s
84 #endif
85
86 #include <X11/xpm.h>
87
88 // [HGM] pixmaps of some ICONS used in the engine-outut window
89 #include "pixmaps/WHITE_14.xpm"
90 #include "pixmaps/BLACK_14.xpm"
91 #include "pixmaps/CLEAR_14.xpm"
92 #include "pixmaps/UNKNOWN_14.xpm"
93 #include "pixmaps/THINKING_14.xpm"
94 #include "pixmaps/PONDER_14.xpm"
95 #include "pixmaps/ANALYZING_14.xpm"
96
97 #ifdef SNAP
98 #include "wsnap.h"
99 #endif
100
101 #define _LL_ 100
102
103 // imports from xboard.c
104 extern Widget formWidget, shellWidget, boardWidget, menuBarWidget;
105 extern Display *xDisplay;
106 extern Window xBoardWindow;
107 extern int squareSize;
108 extern Pixmap xMarkPixmap, wIconPixmap, bIconPixmap;
109 extern char *layoutName;
110
111 Pixmap icons[8]; // [HGM] this front-end array translates back-end icon indicator to handle
112 Widget outputField[2][7]; // [HGM] front-end array to translate output field to window handle
113
114 void EngineOutputPopDown();
115 void engineOutputPopUp();
116 int  EngineOutputIsUp();
117 void SetEngineColorIcon( int which );
118
119 /* Imports from backend.c */
120 extern int opponentKibitzes;
121
122 /* Imports from xboard.c */
123 extern Arg layoutArgs[2], formArgs[2], messageArgs[4];
124
125 //extern WindowPlacement wpEngineOutput;
126
127 Position engineOutputX = -1, engineOutputY = -1;
128 Dimension engineOutputW, engineOutputH;
129 Widget engineOutputShell;
130 static int engineOutputDialogUp;
131
132 /* Module variables */
133 int  windowMode = 1;
134 static int currentPV, highTextStart[2], highTextEnd[2];
135
136 typedef struct {
137     char * name;
138     int which;
139     int depth;
140     u64 nodes;
141     int score;
142     int time;
143     char * pv;
144     char * hint;
145     int an_move_index;
146     int an_move_count;
147 } EngineOutputData;
148
149 //static void UpdateControls( EngineOutputData * ed );
150
151 void ReadIcon(char *pixData[], int iconNr)
152 {
153     int r;
154
155         if ((r=XpmCreatePixmapFromData(xDisplay, XtWindow(outputField[0][nColorIcon]),
156                                        pixData,
157                                        &(icons[iconNr]),
158                                        NULL, NULL /*&attr*/)) != 0) {
159           fprintf(stderr, _("Error %d loading icon image\n"), r);
160           exit(1); 
161         }       
162 }
163
164 static void InitializeEngineOutput()
165 { int i;
166
167         ReadIcon(WHITE_14,   nColorWhite);
168         ReadIcon(BLACK_14,   nColorBlack);
169         ReadIcon(UNKNOWN_14, nColorUnknown);
170
171         ReadIcon(CLEAR_14,   nClear);
172         ReadIcon(PONDER_14,  nPondering);
173         ReadIcon(THINK_14,   nThinking);
174         ReadIcon(ANALYZE_14, nAnalyzing);
175 }
176
177 void DoSetWindowText(int which, int field, char *s_label)
178
179         Arg arg;
180
181         XtSetArg(arg, XtNlabel, (XtArgVal) s_label);
182         XtSetValues(outputField[which][field], &arg, 1);
183 }
184
185 void InsertIntoMemo( int which, char * text, int where )
186 {
187         Arg arg; XawTextBlock t; Widget edit;
188
189         /* the backend adds \r\n, which is needed for winboard, 
190          * for xboard we delete them again over here */
191         if(t.ptr = strchr(text, '\r')) *t.ptr = ' ';
192
193         t.ptr = text; t.firstPos = 0; t.length = strlen(text); t.format = XawFmt8Bit;
194         edit = XtNameToWidget(engineOutputShell, which ? "*form2.text" : "*form.text");
195         XawTextReplace(edit, where, where, &t);
196         if(where < highTextStart[which]) { // [HGM] multiPVdisplay: move highlighting
197             int len = strlen(text);
198             highTextStart[which] += len; highTextEnd[which] += len;
199             XawTextSetSelection( outputField[which][nMemo], highTextStart[which], highTextEnd[which] );
200         }
201 }
202
203 void SetIcon( int which, int field, int nIcon )
204 {
205     Arg arg;
206
207     if( nIcon != 0 ) {
208         XtSetArg(arg, XtNleftBitmap, (XtArgVal) icons[nIcon]);
209         XtSetValues(outputField[which][field], &arg, 1);
210     }
211 }
212
213 void DoClearMemo(int which)
214
215     Arg args[16];
216     int j;
217     Widget edit;
218
219         edit = XtNameToWidget(engineOutputShell, which ? "*form2.text" : "*form.text");
220         XtCallActionProc(edit, "select-all", NULL, NULL, 0);
221         XtCallActionProc(edit, "kill-selection", NULL, NULL, 0);
222 }
223
224 // cloned from CopyPositionProc. Abuse selected_fen_position to hold selection
225
226 extern char *selected_fen_position;
227
228 Boolean SendPositionSelection(Widget w, Atom *selection, Atom *target,
229                  Atom *type_return, XtPointer *value_return,
230                  unsigned long *length_return, int *format_return); // from xboard.c
231 void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b); // from xoptions.c
232
233 char memoTranslations[] =
234 ":Ctrl<Key>c: CopyMemoProc() \n \
235 <Btn3Motion>: HandlePV() \n \
236 <Btn3Down>: select-start() SelectPV() \n \
237 <Btn3Up>: extend-end() StopPV() \n";
238
239 void
240 SelectPV (Widget w, XEvent * event, String * params, Cardinal * nParams)
241 {       // [HGM] pv: translate click to PV line, and load it for display
242         String val;
243         int start, end, memo, j;
244         XawTextPosition index, dummy;
245         int x, y;
246         Arg arg;
247
248         x = event->xmotion.x; y = event->xmotion.y;
249         currentPV = (w == outputField[1][nMemo]);
250         XawTextGetSelectionPos(w, &index, &dummy);
251         XtSetArg(arg, XtNstring, &val);
252         XtGetValues(w, &arg, 1);
253         if(LoadMultiPV(x, y, val, index, &start, &end)) {
254             XawTextSetSelection( outputField[currentPV][nMemo], start, end );
255             highTextStart[currentPV] = start; highTextEnd[currentPV] = end;
256         }
257 }
258
259 void
260 StopPV (Widget w, XEvent * event, String * params, Cardinal * nParams)
261 {       // [HGM] pv: on right-button release, stop displaying PV
262         XawTextUnsetSelection( w );
263         highTextStart[currentPV] = highTextEnd[currentPV] = 0;
264         UnLoadPV();
265 }
266
267 static void
268 MemoCB(Widget w, XtPointer client_data, Atom *selection,
269            Atom *type, XtPointer value, unsigned long *len, int *format)
270 {
271   if (value==NULL || *len==0) return; /* nothing had been selected to copy */
272   selected_fen_position = value;
273   selected_fen_position[*len]='\0'; /* normally this string is terminated, but be safe */
274     XtOwnSelection(menuBarWidget, XA_CLIPBOARD(xDisplay),
275                    CurrentTime,
276                    SendPositionSelection,
277                    NULL/* lose_ownership_proc */ ,
278                    NULL/* transfer_done_proc */);
279 }
280
281 void CopyMemoProc(w, event, prms, nprms)
282   Widget w;
283   XEvent *event;
284   String *prms;
285   Cardinal *nprms;
286 {
287     if(appData.pasteSelection) return;
288     if (selected_fen_position) free(selected_fen_position);
289     XtGetSelectionValue(menuBarWidget, 
290       XA_PRIMARY, XA_STRING,
291       /* (XtSelectionCallbackProc) */ MemoCB,
292       NULL, /* client_data passed to PastePositionCB */
293
294       /* better to use the time field from the event that triggered the
295        * call to this function, but that isn't trivial to get
296        */
297       CurrentTime
298     );
299 }
300
301 // The following routines are mutated clones of the commentPopUp routines
302
303 void PositionControlSet(which, shell, form, bw_width)
304      int which;
305      Widget shell, form;
306      Dimension bw_width;
307 {
308     Arg args[16];
309     Widget edit, NameWidget, ColorWidget, ModeWidget, MoveWidget, NodesWidget;
310     int j, mutable=1;
311     j = 0;
312     XtSetArg(args[j], XtNborderWidth, (XtArgVal) 0); j++;
313     XtSetArg(args[j], XtNlabel,     (XtArgVal) ""); j++;
314     XtSetArg(args[j], XtNtop,       XtChainTop); j++;
315     XtSetArg(args[j], XtNbottom,    XtChainTop); j++;
316     XtSetArg(args[j], XtNleft,      XtChainLeft); j++;
317     XtSetArg(args[j], XtNright,     XtChainLeft); j++;
318     XtSetArg(args[j], XtNheight,    (XtArgVal) 16); j++;
319     XtSetArg(args[j], XtNwidth,     (XtArgVal) 17); j++;
320     outputField[which][nColorIcon] = ColorWidget =
321       XtCreateManagedWidget("Color", labelWidgetClass,
322                      form, args, j);
323
324     j = 0;
325     XtSetArg(args[j], XtNborderWidth, (XtArgVal) 0); j++;
326     XtSetArg(args[j], XtNjustify,   (XtArgVal) XtJustifyLeft); j++;
327     XtSetArg(args[j], XtNfromHoriz, (XtArgVal) ColorWidget); j++;
328     XtSetArg(args[j], XtNtop,       XtChainTop); j++;
329     XtSetArg(args[j], XtNbottom,    XtChainTop); j++;
330     XtSetArg(args[j], XtNleft,      XtChainLeft); j++;
331     XtSetArg(args[j], XtNheight,    (XtArgVal) 16); j++;
332     XtSetArg(args[j], XtNwidth,     (XtArgVal) bw_width/2 - 57); j++;
333     outputField[which][nLabel] = NameWidget =
334       XtCreateManagedWidget("Engine", labelWidgetClass,
335                      form, args, j);
336
337     j = 0;
338     XtSetArg(args[j], XtNborderWidth, (XtArgVal) 0); j++;
339     XtSetArg(args[j], XtNlabel,     (XtArgVal) ""); j++;
340     XtSetArg(args[j], XtNfromHoriz, (XtArgVal) NameWidget); j++;
341     XtSetArg(args[j], XtNtop,       XtChainTop); j++;
342     XtSetArg(args[j], XtNbottom,    XtChainTop); j++;
343     XtSetArg(args[j], XtNheight,    (XtArgVal) 16); j++;
344     XtSetArg(args[j], XtNwidth,     (XtArgVal) 20); j++;
345     outputField[which][nStateIcon] = ModeWidget =
346       XtCreateManagedWidget("Mode", labelWidgetClass,
347                      form, args, j);
348
349     j = 0;
350     XtSetArg(args[j], XtNborderWidth, (XtArgVal) 0); j++;
351     XtSetArg(args[j], XtNjustify,   (XtArgVal) XtJustifyLeft); j++;
352     XtSetArg(args[j], XtNlabel,     (XtArgVal) ""); j++;
353     XtSetArg(args[j], XtNfromHoriz, (XtArgVal) ModeWidget); j++;
354     XtSetArg(args[j], XtNtop,       XtChainTop); j++;
355     XtSetArg(args[j], XtNbottom,    XtChainTop); j++;
356     XtSetArg(args[j], XtNright,     XtChainRight); j++;
357     XtSetArg(args[j], XtNheight,    (XtArgVal) 16); j++;
358     XtSetArg(args[j], XtNwidth,     (XtArgVal) bw_width/2 - 102); j++;
359     outputField[which][nStateData] = MoveWidget =
360       XtCreateManagedWidget("Move", labelWidgetClass,
361                      form, args, j);
362
363     j = 0;
364     XtSetArg(args[j], XtNborderWidth, (XtArgVal) 0); j++;
365     XtSetArg(args[j], XtNjustify,   (XtArgVal) XtJustifyRight); j++;
366     XtSetArg(args[j], XtNlabel,     (XtArgVal) _("NPS")); j++;
367     XtSetArg(args[j], XtNfromHoriz, (XtArgVal) MoveWidget); j++;
368     XtSetArg(args[j], XtNtop,       XtChainTop); j++;
369     XtSetArg(args[j], XtNbottom,    XtChainTop); j++;
370     XtSetArg(args[j], XtNleft,      XtChainRight); j++;
371     XtSetArg(args[j], XtNright,     XtChainRight); j++;
372     XtSetArg(args[j], XtNheight,    (XtArgVal) 16); j++;
373     XtSetArg(args[j], XtNwidth,     (XtArgVal) 100); j++;
374     outputField[which][nLabelNPS] = NodesWidget =
375       XtCreateManagedWidget("Nodes", labelWidgetClass,
376                      form, args, j);
377
378     // create "text" within "form"
379     j = 0;
380     if (mutable) {
381         XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
382         XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
383     }
384     XtSetArg(args[j], XtNstring, "");  j++;
385     XtSetArg(args[j], XtNdisplayCaret, False);  j++;
386     XtSetArg(args[j], XtNtop, XtChainTop);  j++;
387     XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
388     XtSetArg(args[j], XtNleft, XtChainLeft);  j++;
389     XtSetArg(args[j], XtNright, XtChainRight);  j++;
390     XtSetArg(args[j], XtNresizable, True);  j++;
391     XtSetArg(args[j], XtNwidth, bw_width);  j++; /*force wider than buttons*/
392     /* !!Work around an apparent bug in XFree86 4.0.1 (X11R6.4.3) */
393     XtSetArg(args[j], XtNscrollVertical, XawtextScrollAlways);  j++;
394     XtSetArg(args[j], XtNscrollHorizontal, XawtextScrollWhenNeeded);  j++;
395 //    XtSetArg(args[j], XtNautoFill, True);  j++;
396 //    XtSetArg(args[j], XtNwrap, XawtextWrapWord); j++;
397     outputField[which][nMemo] = edit =
398       XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j);
399
400     XtOverrideTranslations(edit, XtParseTranslationTable(memoTranslations));
401     XtAddEventHandler(edit, ButtonPressMask, False, SetFocus, (XtPointer) shell);
402
403     j = 0;
404     XtSetArg(args[j], XtNfromVert, ColorWidget); j++;
405 //    XtSetArg(args[j], XtNresizable, (XtArgVal) True); j++;
406     XtSetValues(edit, args, j);
407 }
408
409 Widget EngineOutputCreate(name, text)
410      char *name, *text;
411 {
412     Arg args[16];
413     Widget shell, layout, form, form2, edit;
414     Dimension bw_width, bw_height;
415     int j;
416
417     // get board width
418     j = 0;
419     XtSetArg(args[j], XtNwidth,  &bw_width);  j++;
420     XtSetArg(args[j], XtNheight, &bw_height);  j++;
421     XtGetValues(boardWidget, args, j);
422
423     // define form within layout within shell.
424     j = 0;
425     XtSetArg(args[j], XtNresizable, True);  j++;
426     shell =
427 #if TOPLEVEL 
428      XtCreatePopupShell(name, topLevelShellWidgetClass,
429 #else
430       XtCreatePopupShell(name, transientShellWidgetClass,
431 #endif
432                          shellWidget, args, j);
433     layout =
434       XtCreateManagedWidget(layoutName, formWidgetClass, shell,
435                             layoutArgs, XtNumber(layoutArgs));
436     // divide window vertically into two equal parts, by creating two forms
437     form =
438       XtCreateManagedWidget("form", formWidgetClass, layout,
439                             formArgs, XtNumber(formArgs));
440     form2 =
441       XtCreateManagedWidget("form2", formWidgetClass, layout,
442                             formArgs, XtNumber(formArgs));
443     j = 0;
444     XtSetArg(args[j], XtNfromVert,  (XtArgVal) form); j++;
445     XtSetValues(form2, args, j);
446     // make sure width is known in advance, for better placement of child widgets
447     j = 0;
448     XtSetArg(args[j], XtNwidth,     (XtArgVal) bw_width-16); j++;
449     XtSetArg(args[j], XtNheight,    (XtArgVal) bw_height/2); j++;
450     XtSetValues(shell, args, j);
451
452     // fill up both forms with control elements
453     PositionControlSet(0, shell, form,  bw_width);
454     PositionControlSet(1, shell, form2, bw_width);
455
456     XtRealizeWidget(shell);
457
458     if(wpEngineOutput.width > 0) {
459       engineOutputW = wpEngineOutput.width;
460       engineOutputH = wpEngineOutput.height;
461       engineOutputX = wpEngineOutput.x;
462       engineOutputY = wpEngineOutput.y;
463     }
464
465     if (engineOutputX == -1) {
466         int xx, yy;
467         Window junk;
468         Dimension pw_height;
469         Dimension ew_height;
470         engineOutputH = bw_height/2;
471         engineOutputW = bw_width-16;
472
473         XSync(xDisplay, False);
474 #ifdef NOTDEF
475         /* This code seems to tickle an X bug if it is executed too soon
476            after xboard starts up.  The coordinates get transformed as if
477            the main window was positioned at (0, 0).
478            */
479         XtTranslateCoords(shellWidget,
480                           (bw_width - engineOutputW) / 2, 0 - engineOutputH / 2,
481                           &engineOutputX, &engineOutputY);
482 #else  /*!NOTDEF*/
483         XTranslateCoordinates(xDisplay, XtWindow(shellWidget),
484                               RootWindowOfScreen(XtScreen(shellWidget)),
485                               (bw_width - engineOutputW) / 2, 0 - engineOutputH / 2,
486                               &xx, &yy, &junk);
487         engineOutputX = xx;
488         engineOutputY = yy;
489 #endif /*!NOTDEF*/
490         if (engineOutputY < 0) engineOutputY = 0; /*avoid positioning top offscreen*/
491     }
492     j = 0;
493     XtSetArg(args[j], XtNheight, engineOutputH);  j++;
494     XtSetArg(args[j], XtNwidth, engineOutputW);  j++;
495     XtSetArg(args[j], XtNx, engineOutputX);  j++;
496     XtSetArg(args[j], XtNy, engineOutputY);  j++;
497     XtSetValues(shell, args, j);
498 //    XtSetKeyboardFocus(shell, edit);
499
500     return shell;
501 }
502
503 void ResizeWindowControls(mode)
504         int mode;
505 {
506     Widget form1, form2;
507     Arg args[16];
508     int j;
509     Dimension ew_height, tmp;
510     Widget shell = engineOutputShell;
511
512     form1 = XtNameToWidget(shell, "*form");
513     form2 = XtNameToWidget(shell, "*form2");
514
515     j = 0;
516     XtSetArg(args[j], XtNheight, (XtArgVal) &ew_height); j++;
517     XtGetValues(form1, args, j);
518     j = 0;
519     XtSetArg(args[j], XtNheight, (XtArgVal) &tmp); j++;
520     XtGetValues(form2, args, j);
521     ew_height += tmp; // total height
522
523     if(mode==0) {
524         j = 0;
525         XtSetArg(args[j], XtNheight, (XtArgVal) 5); j++;
526         XtSetValues(form2, args, j);
527         j = 0;
528         XtSetArg(args[j], XtNheight, (XtArgVal) (ew_height-5)); j++;
529         XtSetValues(form1, args, j);
530     } else {
531         j = 0;
532         XtSetArg(args[j], XtNheight, (XtArgVal) (ew_height/2)); j++;
533         XtSetValues(form1, args, j);
534         j = 0;
535         XtSetArg(args[j], XtNheight, (XtArgVal) (ew_height/2)); j++;
536         XtSetValues(form2, args, j);
537     }
538 }
539
540 void 
541 EngineOutputPopUp()
542 {
543     Arg args[16];
544     int j;
545     Widget edit;
546     static int  needInit = TRUE;
547     static char *title = _("Engine output"), *text = _("This feature is experimental");
548
549     if (engineOutputShell == NULL) {
550         engineOutputShell =
551           EngineOutputCreate(title, text);
552         XtRealizeWidget(engineOutputShell);
553         CatchDeleteWindow(engineOutputShell, "EngineOutputPopDown");
554         if( needInit ) {
555             InitializeEngineOutput();
556             needInit = FALSE;
557         }
558         SetEngineColorIcon( 0 );
559         SetEngineColorIcon( 1 );
560         SetEngineState( 0, STATE_IDLE, "" );
561         SetEngineState( 1, STATE_IDLE, "" );
562     } else {
563         edit = XtNameToWidget(engineOutputShell, "*form.text");
564         j = 0;
565         XtSetArg(args[j], XtNstring, text); j++;
566         XtSetValues(edit, args, j);
567         j = 0;
568         XtSetArg(args[j], XtNiconName, (XtArgVal) title);   j++;
569         XtSetArg(args[j], XtNtitle, (XtArgVal) title);      j++;
570         XtSetValues(engineOutputShell, args, j);
571     }
572
573     XtPopup(engineOutputShell, XtGrabNone);
574     XSync(xDisplay, False);
575
576     j=0;
577     XtSetArg(args[j], XtNleftBitmap, xMarkPixmap); j++;
578     XtSetValues(XtNameToWidget(menuBarWidget, "menuMode.Show Engine Output"),
579                 args, j);
580
581     engineOutputDialogUp = True;
582     ShowThinkingEvent(); // [HGM] thinking: might need to prompt engine for thinking output
583 }
584
585 void EngineOutputPopDown()
586 {
587     Arg args[16];
588     int j;
589
590     if (!engineOutputDialogUp) return;
591     DoClearMemo(1);
592     j = 0;
593     XtSetArg(args[j], XtNx, &engineOutputX); j++;
594     XtSetArg(args[j], XtNy, &engineOutputY); j++;
595     XtSetArg(args[j], XtNwidth, &engineOutputW); j++;
596     XtSetArg(args[j], XtNheight, &engineOutputH); j++;
597     XtGetValues(engineOutputShell, args, j);
598     wpEngineOutput.x = engineOutputX - 4;
599     wpEngineOutput.y = engineOutputY - 23;
600     wpEngineOutput.width = engineOutputW;
601     wpEngineOutput.height = engineOutputH;
602     XtPopdown(engineOutputShell);
603     XSync(xDisplay, False);
604     j=0;
605     XtSetArg(args[j], XtNleftBitmap, None); j++;
606     XtSetValues(XtNameToWidget(menuBarWidget, "menuMode.Show Engine Output"),
607                 args, j);
608
609     engineOutputDialogUp = False;
610     ShowThinkingEvent(); // [HGM] thinking: might need to shut off thinking output
611 }
612
613 int EngineOutputIsUp()
614 {
615     return engineOutputDialogUp;
616 }
617
618 int EngineOutputDialogExists()
619 {
620     return engineOutputShell != NULL;
621 }
622
623 void
624 EngineOutputProc(w, event, prms, nprms)
625      Widget w;
626      XEvent *event;
627      String *prms;
628      Cardinal *nprms;
629 {
630   if (engineOutputDialogUp) {
631     EngineOutputPopDown();
632   } else {
633     EngineOutputPopUp();
634   }
635 }