xhistory.c

   1 /*
   2  * New (WinBoard-style) Move history for XBoard
   3  *
   4  * ------------------------------------------------------------------------
   5  *
   6  * GNU XBoard is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or (at
   9  * your option) any later version.
  10  *
  11  * GNU XBoard is distributed in the hope that it will be useful, but
  12  * WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14  * General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program. If not, see http://www.gnu.org/licenses/.
  18  *
  19  * ------------------------------------------------------------------------
  20  ** See the file ChangeLog for a revision history.  */
  21
  22 #include "config.h"
  23
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <malloc.h>
  27
  28 #include <X11/Intrinsic.h>
  29 #include <X11/StringDefs.h>
  30 #include <X11/Shell.h>
  31 #include <X11/Xaw/Dialog.h>
  32 #include <X11/Xaw/Form.h>
  33 #include <X11/Xaw/List.h>
  34 #include <X11/Xaw/Label.h>
  35 #include <X11/Xaw/SimpleMenu.h>
  36 #include <X11/Xaw/SmeBSB.h>
  37 #include <X11/Xaw/SmeLine.h>
  38 #include <X11/Xaw/Box.h>
  39 #include <X11/Xaw/Paned.h>
  40 #include <X11/Xaw/MenuButton.h>
  41 #include <X11/cursorfont.h>
  42 #include <X11/Xaw/Text.h>
  43 #include <X11/Xaw/AsciiText.h>
  44 #include <X11/Xaw/Viewport.h>
  45 #include <X11/Xatom.h>
  46 #include <X11/Xmu/Atoms.h>
  47
  48 #include "common.h"
  49 #include "frontend.h"
  50 #include "backend.h"
  51 #include "gettext.h"
  52
  53 #ifdef ENABLE_NLS
  54 # define  _(s) gettext (s)
  55 # define N_(s) gettext_noop (s)
  56 #else
  57 # define  _(s) (s)
  58 # define N_(s)  s
  59 #endif
  60
  61 // templates for calls into back-end
  62 void RefreshMemoContent P((void));
  63 void MemoContentUpdated P((void));
  64 void FindMoveByCharIndex P(( int char_index ));
  65
  66 void AppendText P((Option *opt, char *s));
  67 int GenericPopUp P((Option *option, char *title, int dlgNr));
  68 void MarkMenu P((char *item, int dlgNr));
  69 void GetWidgetText P((Option *opt, char **buf));
  70
  71 extern Option historyOptions[];
  72 extern Widget shells[10];
  73 extern Boolean shellUp[10];
  74
  75 // ------------- low-level front-end actions called by MoveHistory back-end -----------------
  76
  77 void HighlightMove( int from, int to, Boolean highlight )
  78 {
  79     if(!highlight) from = to = 0;
  80     XawTextSetSelection( historyOptions[0].handle, from, to ); // for lack of a better method, use selection for highighting
  81 }
  82
  83 void ClearHistoryMemo()
  84 {
  85     ClearTextWidget(&historyOptions[0]);
  86 }
  87
  88 // the bold argument says 0 = normal, 1 = bold typeface
  89 // the colorNr argument says 0 = font-default, 1 = gray
  90 int AppendToHistoryMemo( char * text, int bold, int colorNr )
  91 {
  92     Arg args[10];
  93     char *s;
  94     GetWidgetText(&historyOptions[0], &s);
  95     AppendText(&historyOptions[0], text); // for now ignore bold & color stuff, as Xaw cannot handle that
  96     return strlen(s);
  97 }
  98
  99 void ScrollToCurrent(int caretPos)
 100 {
 101     Arg args[10];
 102     char *s;
 103     GetWidgetText(&historyOptions[0], &s);
 104     if(caretPos < 0) caretPos = strlen(s);
 105     XtSetArg(args[0], XtNdisplayCaret, False);
 106     XtSetArg(args[1], XtNinsertPosition, caretPos); // this triggers scrolling in Xaw
 107     XtSetValues(historyOptions[0].handle, args, 2);
 108 }
 109
 110
 111 // ------------------------------ callbacks --------------------------
 112
 113 char *historyText;
 114 char historyTranslations[] =
 115 "<Btn3Down>: select-start() \n \
 116 <Btn3Up>: extend-end() SelectMove() \n";
 117
 118 void
 119 SelectMove (Widget w, XEvent * event, String * params, Cardinal * nParams)
 120 {
 121         XawTextPosition index, dummy;
 122
 123         XawTextGetSelectionPos(w, &index, &dummy);
 124         FindMoveByCharIndex( index ); // [HGM] also does the actual moving to it, now
 125 }
 126
 127 Option historyOptions[] = {
 128 { 0xD, 200, 400, NULL, (void*) &historyText, "", NULL, TextBox, "" },
 129 {   0,  2,    0, NULL, (void*) NULL, "", NULL, EndMark , "" }
 130 };
 131
 132 // ------------ standard entry points into MoveHistory code -----------
 133
 134 Boolean MoveHistoryIsUp()
 135 {
 136     return shellUp[7];
 137 }
 138
 139 Boolean MoveHistoryDialogExists()
 140 {
 141     return shells[7] != NULL;
 142 }
 143
 144 void HistoryPopUp()
 145 {
 146     if(GenericPopUp(historyOptions, _("Move list"), 7))
 147         XtOverrideTranslations(historyOptions[0].handle, XtParseTranslationTable(historyTranslations));
 148     MarkMenu("menuView.Show Move History", 7);
 149 }
 150
 151 void
 152 HistoryShowProc(w, event, prms, nprms)
 153      Widget w;
 154      XEvent *event;
 155      String *prms;
 156      Cardinal *nprms;
 157 {
 158   if (!shellUp[7]) {
 159     ASSIGN(historyText, "");
 160     HistoryPopUp();
 161     RefreshMemoContent();
 162     MemoContentUpdated();
 163   } else PopDown(7);
 164   ToNrEvent(currentMove);
 165 }
 166
 167 // duplicate of code in winboard.c, so an move to back-end!
 168 void
 169 HistorySet( char movelist[][2*MOVE_LEN], int first, int last, int current )
 170 {
 171     MoveHistorySet( movelist, first, last, current, pvInfoList );
 172
 173     EvalGraphSet( first, last, current, pvInfoList );
 174 }
 175