Transfer most available gtk-xt code to xoptions.c
[xboard.git] / xoptions.c
index c1ae427..b771b4d 100644 (file)
@@ -1,7 +1,7 @@
 /*
  * xoptions.c -- Move list window, part of X front end for XBoard
  *
- * Copyright 2000, 2009, 2010, 2011 Free Software Foundation, Inc.
+ * Copyright 2000, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
  * ------------------------------------------------------------------------
  *
  * GNU XBoard is free software: you can redistribute it and/or modify
@@ -47,29 +47,16 @@ extern char *getenv();
 #endif
 #include <stdint.h>
 
-#include <X11/Intrinsic.h>
-#include <X11/StringDefs.h>
-#include <X11/Shell.h>
-#include <X11/Xatom.h>
-#include <X11/Xaw/Dialog.h>
-#include <X11/Xaw/Form.h>
-#include <X11/Xaw/List.h>
-#include <X11/Xaw/Label.h>
-#include <X11/Xaw/SimpleMenu.h>
-#include <X11/Xaw/SmeBSB.h>
-#include <X11/Xaw/SmeLine.h>
-#include <X11/Xaw/Box.h>
-#include <X11/Xaw/Paned.h>
-#include <X11/Xaw/MenuButton.h>
-#include <X11/cursorfont.h>
-#include <X11/Xaw/Text.h>
-#include <X11/Xaw/AsciiText.h>
-#include <X11/Xaw/Viewport.h>
-#include <X11/Xaw/Toggle.h>
+#include <cairo/cairo.h>
+#include <cairo/cairo-xlib.h>
+#include <gtk/gtk.h>
 
 #include "common.h"
 #include "backend.h"
 #include "xboard.h"
+#include "xboard2.h"
+#include "dialogs.h"
+#include "menus.h"
 #include "gettext.h"
 
 #ifdef ENABLE_NLS
@@ -82,18 +69,35 @@ extern char *getenv();
 
 // [HGM] the following code for makng menu popups was cloned from the FileNamePopUp routines
 
+#ifdef TODO_GTK
 static Widget previous = NULL;
+#endif
+static Option *currentOption;
+static Boolean browserUp;
 
-void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b)
+void
+UnCaret ()
 {
+#ifdef TODO_GTK
     Arg args[2];
-    char *s;
-    int j;
 
     if(previous) {
        XtSetArg(args[0], XtNdisplayCaret, False);
        XtSetValues(previous, args, 1);
     }
+    previous = NULL;
+#endif
+}
+
+#ifdef TODO_GTK
+void
+SetFocus (Widget w, XtPointer data, XEvent *event, Boolean *b)
+{
+    Arg args[2];
+    char *s;
+    int j;
+
+    UnCaret();
     XtSetArg(args[0], XtNstring, &s);
     XtGetValues(w, args, 1);
     j = 1;
@@ -103,175 +107,525 @@ void SetFocus(Widget w, XtPointer data, XEvent *event, Boolean *b)
     XtSetKeyboardFocus((Widget) data, w);
     previous = w;
 }
+#endif
+
+void
+BoardFocus ()
+{
+#ifdef TODO_GTK
+    XtSetKeyboardFocus(shellWidget, formWidget);
+#endif
+}
 
 //--------------------------- Engine-specific options menu ----------------------------------
 
-typedef void ButtonCallback(int n);
-typedef int OKCallback(int n);
+int dialogError;
+Option *dialogOptions[NrOfDialogs];
 
-int values[MAX_OPTIONS];
-ChessProgramState *currentCps;
-static Option *currentOption;
-static Boolean browserUp;
-ButtonCallback *comboCallback;
+#ifdef TODO_GTK
+static Arg layoutArgs[] = {
+    { XtNborderWidth, 0 },
+    { XtNdefaultDistance, 0 },
+};
+
+static Arg formArgs[] = {
+    { XtNborderWidth, 0 },
+    { XtNresizable, (XtArgVal) True },
+};
+#endif
 
-void GetWidgetText(Option *opt, char **buf)
+void
+MarkMenuItem (char *menuRef, int state)
 {
+    MenuItem *item = MenuNameToItem(menuRef);
+
+#ifdef TODO_GTK
+    if(item) {
+       Arg args[2];
+       XtSetArg(args[0], XtNleftBitmap, state ? xMarkPixmap : None);
+       XtSetValues(item->handle, args, 1);
+    }
+#endif
+}
+
+void GetWidgetTextGTK(GtkWidget *w, char **buf)
+{        
+    GtkTextIter start;
+    GtkTextIter end;    
+
+    if (GTK_IS_TEXT_BUFFER(w)) {
+        gtk_text_buffer_get_start_iter(GTK_TEXT_BUFFER(w), &start);
+        gtk_text_buffer_get_end_iter(GTK_TEXT_BUFFER(w), &end);
+        *buf = gtk_text_buffer_get_text(GTK_TEXT_BUFFER(w), &start, &end, FALSE);
+    }
+    else {
+        printf("error in GetWidgetText, invalid widget\n");
+        *buf = NULL; 
+    }
+}
+
+void
+GetWidgetText (Option *opt, char **buf)
+{
+    int x;
+    static char val[12];
+    switch(opt->type) {
+      case Fractional:
+      case FileName:
+      case PathName:
+      case TextBox: GetWidgetTextGTK((GtkWidget *) opt->handle, buf); break;
+      case Spin:
+       x = gtk_spin_button_get_value (GTK_SPIN_BUTTON(opt->handle));                   
+       snprintf(val, 12, "%d", x); *buf = val;
+       break;
+      default:
+       printf("unexpected case (%d) in GetWidgetText\n", opt->type);
+       *buf = NULL;
+    }
+}
+
+void SetSpinValue(Option *opt, int val, int n)
+{    
+    if (opt->type == Spin)
+      {
+        if (val == -1)
+           gtk_widget_set_sensitive(opt->handle, FALSE);
+        else
+          {
+            gtk_widget_set_sensitive(opt->handle, TRUE);      
+            gtk_spin_button_set_value(opt->handle, val);
+          }
+      }
+    else
+      printf("error in SetSpinValue, unknown type %d\n", opt->type);    
+}
+
+void SetWidgetTextGTK(GtkWidget *w, char *text)
+{
+    if (!GTK_IS_TEXT_BUFFER(w)) {
+        printf("error: SetWidgetTextGTK arg is not a GtkTextBuffer\n");
+        return;
+    }    
+    gtk_text_buffer_set_text(GTK_TEXT_BUFFER(w), text, -1);
+}
+
+void
+SetWidgetText (Option *opt, char *buf, int n)
+{
+    switch(opt->type) {
+      case Fractional:
+      case FileName:
+      case PathName:
+      case TextBox: SetWidgetTextGTK((GtkWidget *) opt->handle, buf); break;
+      case Spin: SetSpinValue(opt, atoi(buf), n); break;
+      default:
+       printf("unexpected case (%d) in GetWidgetText\n", opt->type);
+    }
+#ifdef TODO_GTK
+// focus is automatic in GTK?
+    if(n >= 0) SetFocus(opt->handle, shells[n], NULL, False);
+#endif
+}
+
+void
+GetWidgetState (Option *opt, int *state)
+{
+#ifdef TODO_GTK
     Arg arg;
-    XtSetArg(arg, XtNstring, buf);
+    XtSetArg(arg, XtNstate, state);
     XtGetValues(opt->handle, &arg, 1);
+#endif
 }
 
-void SetWidgetText(Option *opt, char *buf, int n)
+void
+SetWidgetState (Option *opt, int state)
 {
+#ifdef TODO_GTK
     Arg arg;
-    XtSetArg(arg, XtNstring, buf);
+    XtSetArg(arg, XtNstate, state);
     XtSetValues(opt->handle, &arg, 1);
-    SetFocus(opt->handle, shells[n], NULL, False);
+#endif
 }
 
-void SetWidgetState(Option *opt, int state)
+void
+SetWidgetLabel (Option *opt, char *buf)
 {
+#ifdef TODO_GTK
     Arg arg;
-    XtSetArg(arg, XtNstate, state);
+    XtSetArg(arg, XtNlabel, (XtArgVal) buf);
     XtSetValues(opt->handle, &arg, 1);
+#endif
 }
 
-void CheckCallback(Widget ww, XtPointer data, XEvent *event, Boolean *b)
+void
+SetDialogTitle (DialogClass dlg, char *title)
 {
-    Widget w = currentOption[(int)(intptr_t)data].handle;
-    Boolean s;
+#ifdef TODO_GTK
     Arg args[16];
+    XtSetArg(args[0], XtNtitle, title);
+    XtSetValues(shells[dlg], args, 1);
+#endif
+}
 
-    XtSetArg(args[0], XtNstate, &s);
-    XtGetValues(w, args, 1);
-    SetWidgetState(&currentOption[(int)(intptr_t)data], !s);
+void
+LoadListBox (Option *opt, char *emptyText, int n1, int n2)
+{
+#ifdef TODO_GTK
+    static char *dummyList[2];
+    dummyList[0] = emptyText; // empty listboxes tend to crash X, so display user-supplied warning string instead
+    XawListChange(opt->handle, *(char*)opt->target ? opt->target : dummyList, 0, 0, True);
+#endif
+}
+
+int
+ReadScroll (Option *opt, float *top, float *bottom)
+{   // retreives fractions of top and bottom of thumb
+#ifdef TODO_GTK
+    Arg args[16];
+    Widget w = XtParent(opt->handle); // viewport
+    Widget v = XtNameToWidget(w, "vertical");
+    int j=0;
+    float h;
+    if(!v) return FALSE; // no scroll bar
+    XtSetArg(args[j], XtNshown, &h); j++;
+    XtSetArg(args[j], XtNtopOfThumb, top); j++;
+    XtGetValues(v, args, j);
+    *bottom = *top + h;
+#endif
+    return TRUE;
 }
 
-void SpinCallback(w, client_data, call_data)
-     Widget w;
-     XtPointer client_data, call_data;
+void
+SetScroll (Option *opt, float f)
+{   // sets top of thumb to given fraction
+#ifdef TODO_GTK
+    static char *params[3] = { "", "Continuous", "Proportional" };
+    static XEvent event;
+    Widget w = XtParent(opt->handle); // viewport
+    Widget v = XtNameToWidget(w, "vertical");
+    if(!v) return; // no scroll bar
+    XtCallActionProc(v, "StartScroll", &event, params+1, 1);
+    XawScrollbarSetThumb(v, f, -1.0);
+    XtCallActionProc(v, "NotifyThumb", &event, params, 0);
+//    XtCallActionProc(v, "NotifyScroll", &event, params+2, 1);
+    XtCallActionProc(v, "EndScroll", &event, params, 0);
+#endif
+}
+
+void
+HighlightListBoxItem (Option *opt, int nr)
+{
+#ifdef TODO_GTK
+    XawListHighlight(opt->handle, nr);
+#endif
+}
+
+void
+HighlightWithScroll (Option *opt, int sel, int max)
+{
+#ifdef TODO_GTK
+    float top, bottom, f, g;
+    HighlightListBoxItem(opt, sel);
+    if(!ReadScroll(opt, &top, &bottom)) return; // no scroll bar
+    bottom = bottom*max - 1.f;
+    f = g = top;
+    top *= max;
+    if(sel > (top + 3*bottom)/4) f = (sel - 0.75f*(bottom-top))/max; else
+    if(sel < (3*top + bottom)/4) f = (sel - 0.25f*(bottom-top))/max;
+    if(f < 0.f) f = 0.; if(f + 1.f/max > 1.f) f = 1. - 1./max;
+    if(f != g) SetScroll(opt, f);
+#endif
+}
+
+int
+SelectedListBoxItem (Option *opt)
+{
+#ifdef TODO_GTK
+    XawListReturnStruct *rs;
+    rs = XawListShowCurrent(opt->handle);
+    return rs->list_index;
+#else
+    return 0;
+#endif
+}
+
+void
+FocusOnWidget (Option *opt, DialogClass dlg)
+{
+    UnCaret();
+#ifdef TODO_GTK
+    XtSetKeyboardFocus(shells[dlg], opt->handle);
+#endif
+}
+
+void
+SetIconName (DialogClass dlg, char *name)
+{
+#ifdef TODO_GTK
+       Arg args[16];
+       int j = 0;
+       XtSetArg(args[j], XtNiconName, (XtArgVal) name);  j++;
+//     XtSetArg(args[j], XtNtitle, (XtArgVal) name);  j++;
+       XtSetValues(shells[dlg], args, j);
+#endif
+}
+
+#ifdef TODO_GTK
+static void
+CheckCallback (Widget ww, XtPointer client_data, XEvent *event, Boolean *b)
+{
+    int s, data = (intptr_t) client_data;
+    Option *opt = dialogOptions[data >> 8] + (data & 255);
+
+    if(opt->type == Label) { ((ButtonCallback*) opt->target)(data&255); return; }
+
+    GetWidgetState(opt, &s);
+    SetWidgetState(opt, !s);
+}
+#endif
+
+#ifdef TODO_GTK
+static void
+SpinCallback (Widget w, XtPointer client_data, XtPointer call_data)
 {
     String name, val;
     Arg args[16];
     char buf[MSG_SIZ], *p;
-    int j;
+    int j = 0; // Initialisation is necessary because the text value may be non-numeric causing the scanf conversion to fail
     int data = (intptr_t) client_data;
+    Option *opt = dialogOptions[data >> 8] + (data & 255);
 
     XtSetArg(args[0], XtNlabel, &name);
     XtGetValues(w, args, 1);
 
-    GetWidgetText(&currentOption[data], &val);
+    GetWidgetText(opt, &val);
     sscanf(val, "%d", &j);
     if (strcmp(name, _("browse")) == 0) {
        char *q=val, *r;
        for(r = ""; *q; q++) if(*q == '.') r = q; else if(*q == '/') r = ""; // last dot after last slash
-       if(!strcmp(r, "") && !currentCps && currentOption[data].type == FileName && currentOption[data].textValue)
-               r = currentOption[data].textValue;
-       browserUp = True;
-       if(XsraSelFile(shells[0], currentOption[data].name, NULL, NULL, "", "", r,
-                                 currentOption[data].type == PathName ? "p" : "f", NULL, &p)) {
-               int len = strlen(p);
-               if(len && p[len-1] == '/') p[len-1] = NULLCHAR;
-               XtSetArg(args[0], XtNstring, p);
-               XtSetValues(currentOption[data].handle, args, 1);
-       }
-       browserUp = False;
-       SetFocus(currentOption[data].handle, shells[0], (XEvent*) NULL, False);
+       if(!strcmp(r, "") && !currentCps && opt->type == FileName && opt->textValue)
+               r = opt->textValue;
+       Browse(data>>8, opt->name, NULL, r, opt->type == PathName, "", &p, (FILE**) opt);
        return;
     } else
     if (strcmp(name, "+") == 0) {
-       if(++j > currentOption[data].max) return;
+       if(++j > opt->max) return;
     } else
     if (strcmp(name, "-") == 0) {
-       if(--j < currentOption[data].min) return;
+       if(--j < opt->min) return;
     } else return;
     snprintf(buf, MSG_SIZ,  "%d", j);
-    SetWidgetText(&currentOption[data], buf, 0);
+    SetWidgetText(opt, buf, TransientDlg);
+}
+#endif
+
+void ComboSelect(GtkWidget *widget, gpointer addr)
+{
+    Option *opt = dialogOptions[((intptr_t)addr)>>8]; // applicable option list
+    gint i = ((intptr_t)addr) & 255; // option number
+    gint g;
+
+    g = gtk_combo_box_get_active(GTK_COMBO_BOX(widget));    
+    values[i] = g; // store in temporary, for transfer at OK
+
+#if TODO_GTK
+// Note: setting text on button is probably automatic
+// Is this still needed? Could be all comboboxes that needed a callbak are now listboxes!
+#endif
+    if(opt[i].type == Graph || opt[i].min & COMBO_CALLBACK && (!currentCps || shellUp[BrowserDlg])) {
+       ((ButtonCallback*) opt[i].target)(i);
+       return;
+    }
 }
 
-void ComboSelect(w, addr, index) // callback for all combo items
-     Widget w;
-     caddr_t addr;
-     caddr_t index;
+#ifdef TODO_GTK
+Widget
+CreateMenuItem (Widget menu, char *msg, XtCallbackProc CB, int n)
 {
+    int j=0;
+    Widget entry;
     Arg args[16];
-    int i = ((intptr_t)addr)>>8;
-    int j = 255 & (intptr_t) addr;
+    XtSetArg(args[j], XtNleftMargin, 20);   j++;
+    XtSetArg(args[j], XtNrightMargin, 20);  j++;
+    if(!strcmp(msg, "----")) { XtCreateManagedWidget(msg, smeLineObjectClass, menu, args, j); return NULL; }
+    XtSetArg(args[j], XtNlabel, msg);
+    entry = XtCreateManagedWidget("item", smeBSBObjectClass, menu, args, j+1);
+    XtAddCallback(entry, XtNcallback, CB, (caddr_t)(intptr_t) n);
+    return entry;
+}
+#endif
 
-    values[i] = j; // store in temporary, for transfer at OK
+#ifdef TODO_GTK
+static Widget
+CreateComboPopup (Widget parent, Option *opt, int n, int fromList, int def)
+{   // fromList determines if the item texts are taken from a list of strings, or from a menu table
+    int i;
+    Widget menu, entry;
+    Arg arg;
+    MenuItem *mb = (MenuItem *) opt->choice;
+    char **list = (char **) opt->choice;
 
-    if(currentOption[i].min & NO_GETTEXT)
-      XtSetArg(args[0], XtNlabel, ((char**)currentOption[i].textValue)[j]);
-    else
-      XtSetArg(args[0], XtNlabel, _(((char**)currentOption[i].textValue)[j]));
+    if(list[0] == NULL) return NULL; // avoid empty menus, as they cause crash
+    menu = XtCreatePopupShell(opt->name, simpleMenuWidgetClass, parent, NULL, 0);
 
-    XtSetValues(currentOption[i].handle, args, 1);
+    for (i=0; 1; i++) 
+      {
+       char *msg = fromList ? list[i] : mb[i].string;
+       if(!msg) break;
+       entry = CreateMenuItem(menu, opt->min & NO_GETTEXT ? msg : _(msg), (XtCallbackProc) ComboSelect, (n<<16)+i);
+       if(!fromList) mb[i].handle = (void*) entry; // save item ID, for enabling / checkmarking
+       if(i==def) {
+           XtSetArg(arg, XtNpopupOnEntry, entry);
+           XtSetValues(menu, &arg, 1);
+       }
+      }
+      return menu;
+}
+#else
+static void
+MenuSelect (gpointer addr) // callback for all combo items
+{
+    Option *opt = dialogOptions[((intptr_t)addr)>>24]; // applicable option list
+    int i = ((intptr_t)addr)>>16 & 255; // option number
+    int j = 0xFFFF & (intptr_t) addr;
 
-    if(currentOption[i].min & COMBO_CALLBACK && !currentCps && comboCallback) (comboCallback)(i);
+    values[i] = j; // store selected value in Option struct, for retrieval at OK
+    ((ButtonCallback*) opt[i].target)(i);
 }
 
-void CreateComboPopup(parent, option, n)
-     Widget parent;
-     Option *option;
-     int n;
-{
-    int i=0, j;
-    Widget menu, entry;
-    Arg args[16];
+static GtkWidget *
+CreateMenuPopup (Option *opt, int n, int def)
+{   // fromList determines if the item texts are taken from a list of strings, or from a menu table
+    int i;
+    GtkWidget *menu, *entry;
+    MenuItem *mb = (MenuItem *) opt->choice;
 
-    menu = XtCreatePopupShell(option->name, simpleMenuWidgetClass,
-                             parent, NULL, 0);
-    j = 0;
-    XtSetArg(args[j], XtNwidth, 100);  j++;
-//    XtSetArg(args[j], XtNright, XtChainRight);  j++;
-    char **mb = (char **) option->textValue;
-    while (mb[i] != NULL) 
+    menu = gtk_menu_new();
+//    menu = XtCreatePopupShell(opt->name, simpleMenuWidgetClass, parent, NULL, 0);
+    for (i=0; 1; i++) 
       {
-       if (option->min & NO_GETTEXT)
-         XtSetArg(args[j], XtNlabel, mb[i]);
-       else
-         XtSetArg(args[j], XtNlabel, _(mb[i]));
-       entry = XtCreateManagedWidget((String) mb[i], smeBSBObjectClass,
-                                     menu, args, j+1);
-       XtAddCallback(entry, XtNcallback,
-                     (XtCallbackProc) ComboSelect,
-                     (caddr_t)(intptr_t) (256*n+i));
-       i++;
+       char *msg = mb[i].string;
+       if(!msg) break;
+       if(strcmp(msg, "----")) { // 
+         if(!(opt->min & NO_GETTEXT)) msg = _(msg);
+         if(mb[i].handle) {
+           entry = gtk_check_menu_item_new_with_label(msg); // should be used for items that can be checkmarked
+           if(mb[i].handle == RADIO) gtk_check_menu_item_set_draw_as_radio(entry, True);
+         } else
+           entry = gtk_menu_item_new_with_label(msg);
+         gtk_signal_connect_object (GTK_OBJECT (entry), "activate", GTK_SIGNAL_FUNC(MenuSelect), (gpointer) (n<<16)+i);
+         gtk_widget_show(entry);
+       } else entry = gtk_separator_menu_item_new();
+       gtk_menu_append(GTK_MENU (menu), entry);
+//CreateMenuItem(menu, opt->min & NO_GETTEXT ? msg : _(msg), (XtCallbackProc) ComboSelect, (n<<16)+i);
+       mb[i].handle = (void*) entry; // save item ID, for enabling / checkmarking
+//     if(i==def) {
+//         XtSetArg(arg, XtNpopupOnEntry, entry);
+//         XtSetValues(menu, &arg, 1);
+//     }
       }
+      return menu;
 }
+#endif
 
+char moveTypeInTranslations[] =
+    "<Key>Return: TypeInProc(1) \n"
+    "<Key>Escape: TypeInProc(0) \n";
+extern char filterTranslations[];
+extern char gameListTranslations[];
+extern char memoTranslations[];
+
+
+char *translationTable[] = { // beware: order is essential!
+   historyTranslations, commentTranslations, moveTypeInTranslations, ICSInputTranslations,
+   filterTranslations, gameListTranslations, memoTranslations
+};
+
+void
+AddHandler (Option *opt, int nr)
+{
+#ifdef TODO_GTK
+    XtOverrideTranslations(opt->handle, XtParseTranslationTable(translationTable[nr]));
+#endif
+}
 
 //----------------------------Generic dialog --------------------------------------------
 
 // cloned from Engine Settings dialog (and later merged with it)
 
-extern WindowPlacement wpComment, wpTags, wpMoveHistory;
-char *trialSound;
-static int oldCores, oldPonder;
-int MakeColors P((void));
-void CreateGCs P((int redo));
-void CreateAnyPieces P((void));
-int GenericReadout P((int selected));
-Widget shells[10];
-Widget marked[10];
-Boolean shellUp[10];
-WindowPlacement *wp[10] = { NULL, &wpComment, &wpTags, NULL, NULL, NULL, NULL, &wpMoveHistory };
-Option *dialogOptions[10];
-
-void MarkMenu(char *item, int dlgNr)
+GtkWidget *shells[NrOfDialogs];
+DialogClass parents[NrOfDialogs];
+WindowPlacement *wp[NrOfDialogs] = { // Beware! Order must correspond to DialogClass enum
+    NULL, &wpComment, &wpTags, NULL, NULL, NULL, NULL, &wpMoveHistory, &wpGameList, &wpEngineOutput, &wpEvalGraph,
+    NULL, NULL, NULL, NULL, /*&wpMain*/ NULL
+};
+
+int
+DialogExists (DialogClass n)
+{   // accessor for use in back-end
+    return shells[n] != NULL;
+}
+
+void
+RaiseWindow (DialogClass dlg)
+{
+#ifdef TODO_GTK
+    static XEvent xev;
+    Window root = RootWindow(xDisplay, DefaultScreen(xDisplay));
+    Atom atom = XInternAtom (xDisplay, "_NET_ACTIVE_WINDOW", False);
+
+    xev.xclient.type = ClientMessage;
+    xev.xclient.serial = 0;
+    xev.xclient.send_event = True;
+    xev.xclient.display = xDisplay;
+    xev.xclient.window = XtWindow(shells[dlg]);
+    xev.xclient.message_type = atom;
+    xev.xclient.format = 32;
+    xev.xclient.data.l[0] = 1;
+    xev.xclient.data.l[1] = CurrentTime;
+
+    XSendEvent (xDisplay,
+          root, False,
+          SubstructureRedirectMask | SubstructureNotifyMask,
+          &xev);
+
+    XFlush(xDisplay); 
+    XSync(xDisplay, False);
+#endif
+}
+
+/* Sets a check box on (True) or off (False) in the menu */
+void SetCheckMenuItemActive(gchar *name, int menuDlgNr, gboolean active)
 {
-    Arg args[2];
-    XtSetArg(args[0], XtNleftBitmap, xMarkPixmap);
-    XtSetValues(marked[dlgNr] = XtNameToWidget(menuBarWidget, item), args, 1);
+#ifdef TODO_GTK
+// This doesn't work anymore, as we don't use builder
+    gchar menuItemName[50];
+
+    if (name != NULL)
+        strcpy(menuItemName, name);
+    else
+        GetMenuItemName(menuDlgNr, menuItemName);
+    
+    if (strcmp(menuItemName, "") == 0) return;
+
+    GtkCheckMenuItem *chk;
+    chk = GTK_CHECK_MENU_ITEM(gtk_builder_get_object(GTK_BUILDER(builder), menuItemName));
+    if (chk == NULL) {
+        printf("Error: failed to get check menu item %s from builder\n", menuItemName);
+        return;        
+    }
+    chk->active = active;   // set the check box without emitting any signals
+#endif
 }
 
-int PopDown(int n)
+int
+PopDown (DialogClass n)
 {
-    int j;
-    Arg args[10];
-    Dimension windowH, windowW; Position windowX, windowY;
-    if (!shellUp[n]) return 0;
+    //Arg args[10];    
+    
+    if (!shellUp[n] || !shells[n]) return 0;    
+#ifdef TODO_GTK
+// Not sure this is still used
     if(n && wp[n]) { // remember position
        j = 0;
        XtSetArg(args[j], XtNx, &windowX); j++;
@@ -284,661 +638,758 @@ int PopDown(int n)
        wp[n]->width  = windowW;
        wp[n]->height = windowH;
     }
-    previous = NULL;
-    XtPopdown(shells[n]);
-    if(n == 0) XtDestroyWidget(shells[n]);
-    shellUp[n] = False;
+#endif
+    
+    gtk_widget_hide(shells[n]);
+    shellUp[n]--; // count rather than clear
+    if(n == 0 || n >= PromoDlg) {
+        gtk_widget_destroy(shells[n]);
+        shells[n] = NULL;
+    }    
+#ifdef TODO_GTK
     if(marked[n]) {
-       XtSetArg(args[0], XtNleftBitmap, None);
-       XtSetValues(marked[n], args, 1);
+       MarkMenuItem(marked[n], False);
+       marked[n] = NULL;
     }
+#else
+    // when popping down uncheck the check box of the menu item
+    SetCheckMenuItemActive(NULL, n, False);    
+#endif
     if(!n) currentCps = NULL; // if an Engine Settings dialog was up, we must be popping it down now
+    currentOption = dialogOptions[TransientDlg]; // just in case a transient dialog was up (to allow its check and combo callbacks to work)
+#ifdef TODO_GTK
+    RaiseWindow(parents[n]); // automatic in GTK?
+    if(parents[n] == BoardWindow) XtSetKeyboardFocus(shellWidget, formWidget); // also automatic???
+#endif
     return 1;
 }
 
-void GenericPopDown(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
+gboolean GenericPopDown(w, event, gdata)
+     GtkWidget *w;
+     GdkEvent  *event;
+     gpointer  gdata; 
 {
-    if(browserUp) return; // prevent closing dialog when it has an open file-browse daughter
-    PopDown(prms[0][0] - '0');
+    int dlg = (intptr_t) gdata; /* dialog number dlgnr */
+    
+#ifdef TODO_GTK
+// I guess BrowserDlg will be abandoned, as GTK has a better browser of its own
+    if(shellUp[BrowserDlg] && dlg != BrowserDlg || dialogError) return; // prevent closing dialog when it has an open file-browse daughter
+#else
+    if(browserUp || dialogError) return True; // prevent closing dialog when it has an open file-browse daughter
+#endif
+    GtkWidget *sh = shells[dlg];
+printf("popdown %d\n", dlg);
+    shells[dlg] = w; // make sure we pop down the right one in case of multiple instances
+    PopDown(dlg);
+    shells[dlg] = sh; // restore
+    if(dlg == BoardWindow) ExitEvent(0);
+    return True; /* don't propagate to default handler */
 }
 
-char *engineName, *engineDir, *engineChoice, *engineLine, *nickName, *params, *tfName;
-Boolean isUCI, hasBook, storeVariant, v1, addToList, useNick;
-extern Option installOptions[], matchOptions[];
-char *engineNr[] = { N_("First Engine"), N_("Second Engine"), NULL };
-char *engineList[100] = {" "}, *engineMnemonic[100] = {""};
-
 int AppendText(Option *opt, char *s)
-{
-    XawTextBlock t;
+{    
     char *v;
     int len;
-    GetWidgetText(opt, &v);
+    GtkTextIter end;    
+  
+    GetWidgetTextGTK(opt->handle, &v);
     len = strlen(v);
-    t.ptr = s; t.firstPos = 0; t.length = strlen(s); t.format = XawFmt8Bit;
-    XawTextReplace(opt->handle, len, len, &t);
+    g_free(v);
+    gtk_text_buffer_get_end_iter(GTK_TEXT_BUFFER(opt->handle), &end);
+    gtk_text_buffer_insert(opt->handle, &end, s, -1);
+
     return len;
 }
 
-void AddLine(Option *opt, char *s)
-{
-    AppendText(opt, s);
-    AppendText(opt, "\n");
+void
+SetColor (char *colorName, Option *box)
+{       // sets the color of a widget
+#ifdef TODO_GTK
+       Arg args[5];
+       Pixel buttonColor;
+       XrmValue vFrom, vTo;
+       if (!appData.monoMode) {
+           vFrom.addr = (caddr_t) colorName;
+           vFrom.size = strlen(colorName);
+           XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
+           if (vTo.addr == NULL) {
+               buttonColor = (Pixel) -1;
+           } else {
+               buttonColor = *(Pixel *) vTo.addr;
+           }
+       } else buttonColor = timerBackgroundPixel;
+       XtSetArg(args[0], XtNbackground, buttonColor);;
+       XtSetValues(box->handle, args, 1);
+#endif
 }
 
-void AddToTourney(int n)
-{
-    GenericReadout(4);  // selected engine
-    AddLine(&matchOptions[3], engineChoice);
+#ifdef TODO_GTK
+void
+ColorChanged (Widget w, XtPointer data, XEvent *event, Boolean *b)
+{   // for detecting a typed change in color
+    char buf[10];
+    if ( (XLookupString(&(event->xkey), buf, 2, NULL, NULL) == 1) && *buf == '\r' )
+       RefreshColor((int)(intptr_t) data, 0);
 }
+#endif
 
-int MatchOK(int n)
-{
-    ASSIGN(appData.participants, engineName);
-    if(!CreateTourney(tfName) || matchMode) return matchMode || !appData.participants[0];
-    PopDown(0); // early popdown to prevent FreezeUI called through MatchEvent from causing XtGrab warning
-    MatchEvent(2); // start tourney
-    return 1;
+#ifdef TODO_GTK
+static void
+GraphEventProc(Widget widget, caddr_t client_data, XEvent *event)
+{   // handle expose and mouse events on Graph widget
+    Dimension w, h;
+    Arg args[16];
+    int j, button=10, f=1, sizing=0;
+    Option *opt, *graph = (Option *) client_data;
+    PointerCallback *userHandler = graph->target;
+
+    if (!XtIsRealized(widget)) return;
+
+    switch(event->type) {
+       case Expose: // make handling of expose events generic, just copying from memory buffer (->choice) to display (->textValue)
+           /* Get window size */
+           j = 0;
+           XtSetArg(args[j], XtNwidth, &w); j++;
+           XtSetArg(args[j], XtNheight, &h); j++;
+           XtGetValues(widget, args, j);
+
+           if(w < graph->max || w > graph->max + 1 || h != graph->value) { // use width fudge of 1 pixel
+               if(((XExposeEvent*)event)->count >= 0) { // suppress sizing on expose for ordered redraw in response to sizing.
+                   sizing = 1;
+                   graph->max = w; graph->value = h; // note: old values are kept if we we don't exceed width fudge
+               }
+           } else w = graph->max;
+
+           if(sizing && ((XExposeEvent*)event)->count > 0) { graph->max = 0; return; } // don't bother if further exposure is pending during resize
+           if(!graph->textValue || sizing) { // create surfaces of new size for display widget
+               if(graph->textValue) cairo_surface_destroy((cairo_surface_t *)graph->textValue);
+               graph->textValue = (char*) cairo_xlib_surface_create(xDisplay, XtWindow(widget), DefaultVisual(xDisplay, 0), w, h);
+           }
+           if(sizing) { // the memory buffer was already created in GenericPopup(),
+                        // to give drawing routines opportunity to use it before first expose event
+                        // (which are only processed when main gets to the event loop, so after all init!)
+                        // so only change when size is no longer good
+               if(graph->choice) cairo_surface_destroy((cairo_surface_t *) graph->choice);
+               graph->choice = (char**) cairo_image_surface_create (CAIRO_FORMAT_ARGB32, w, h);
+               break;
+           }
+           w = ((XExposeEvent*)event)->width;
+           if(((XExposeEvent*)event)->x + w > graph->max) w--; // cut off fudge pixel
+           if(w) ExposeRedraw(graph, ((XExposeEvent*)event)->x, ((XExposeEvent*)event)->y, w, ((XExposeEvent*)event)->height);
+           return;
+       case MotionNotify:
+           f = 0;
+           w = ((XButtonEvent*)event)->x; h = ((XButtonEvent*)event)->y;
+           break;
+       case ButtonRelease:
+           f = -1; // release indicated by negative button numbers
+       case ButtonPress:
+           w = ((XButtonEvent*)event)->x; h = ((XButtonEvent*)event)->y;
+           switch(((XButtonEvent*)event)->button) {
+               case Button1: button = 1; break;
+               case Button2: button = 2; break;
+               case Button3: button = 3; break;
+               case Button4: button = 4; break;
+               case Button5: button = 5; break;
+           }
+    }
+    button *= f;
+    opt = userHandler(button, w, h);
+    if(opt) { // user callback specifies a context menu; pop it up
+       XUngrabPointer(xDisplay, CurrentTime);
+       XtCallActionProc(widget, "XawPositionSimpleMenu", event, &(opt->name), 1);
+       XtPopupSpringLoaded(opt->handle);
+    }
+    XSync(xDisplay, False);
 }
+#endif
 
-void ReplaceParticipant()
+void
+GraphExpose (Option *opt, int x, int y, int w, int h)
 {
-    GenericReadout(3);
-    Substitute(strdup(engineName), True);
+#ifdef TODO_GTK
+  XExposeEvent e;
+  if(!opt->handle) return;
+  e.x = x; e.y = y; e.width = w; e.height = h; e.count = -1; e.type = Expose; // count = -1: kludge to suppress sizing
+  GraphEventProc(opt->handle, (caddr_t) opt, (XEvent *) &e); // fake expose event
+#endif
 }
 
-void UpgradeParticipant()
+/* GTK callback used when OK/cancel clicked in genericpopup for non-modal dialog */
+void GenericPopUpCallback(w, resptype, gdata)
+     GtkWidget *w;
+     GtkResponseType  resptype;
+     gpointer  gdata;
 {
-    GenericReadout(3);
-    Substitute(strdup(engineName), False);
-}
+    int data = (intptr_t) gdata; /* dialog number dlgnr */
+    DialogClass dlg;
 
-Option matchOptions[] = {
-{ 0,  0,          0, NULL, (void*) &tfName, ".trn", NULL, FileName, N_("Tournament file:") },
-{ 0,  0,          0, NULL, (void*) &appData.roundSync, "", NULL, CheckBox, N_("Sync after round    (for concurrent playing of a single") },
-{ 0,  0,          0, NULL, (void*) &appData.cycleSync, "", NULL, CheckBox, N_("Sync after cycle      tourney with multiple XBoards)") },
-{ 0xD, 150,       0, NULL, (void*) &engineName, "", NULL, TextBox, N_("Tourney participants:") },
-{ 0,  COMBO_CALLBACK | NO_GETTEXT,
-                 0, NULL, (void*) &engineChoice, (char*) (engineMnemonic+1), (engineMnemonic+1), ComboBox, N_("Select Engine:") },
-{ 0,  0,         10, NULL, (void*) &appData.tourneyType, "", NULL, Spin, N_("Tourney type (0 = round-robin, 1 = gauntlet):") },
-{ 0,  1, 1000000000, NULL, (void*) &appData.tourneyCycles, "", NULL, Spin, N_("Number of tourney cycles (or Swiss rounds):") },
-{ 0,  1, 1000000000, NULL, (void*) &appData.defaultMatchGames, "", NULL, Spin, N_("Default Number of Games in Match (or Pairing):") },
-{ 0,  0, 1000000000, NULL, (void*) &appData.matchPause, "", NULL, Spin, N_("Pause between Match Games (msec):") },
-{ 0,  0,          0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName, N_("Save Tourney Games on:") },
-{ 0,  0,          0, NULL, (void*) &appData.loadGameFile, ".pgn", NULL, FileName, N_("Game File with Opening Lines:") },
-{ 0, -2, 1000000000, NULL, (void*) &appData.loadGameIndex, "", NULL, Spin, N_("Game Number (-1 or -2 = Auto-Increment):") },
-{ 0,  0,          0, NULL, (void*) &appData.loadPositionFile, ".fen", NULL, FileName, N_("File with Start Positions:") },
-{ 0, -2, 1000000000, NULL, (void*) &appData.loadPositionIndex, "", NULL, Spin, N_("Position Number (-1 or -2 = Auto-Increment):") },
-{ 0,  0, 1000000000, NULL, (void*) &appData.rewindIndex, "", NULL, Spin, N_("Rewind Index after this many Games (0 = never):") },
-{ 0,  0,          0, NULL, (void*) &appData.defNoBook, "", NULL, CheckBox, N_("Disable own engine books by default") },
-{ 0,  0,          0, NULL, (void*) &ReplaceParticipant, NULL, NULL, Button, N_("Replace Engine") },
-{ 0,  1,          0, NULL, (void*) &UpgradeParticipant, NULL, NULL, Button, N_("Upgrade Engine") },
-{ 0, 1, 0, NULL, (void*) &MatchOK, "", NULL, EndMark , "" }
-};
+    currentOption = dialogOptions[dlg=data>>16]; data &= 0xFFFF;
 
-int GeneralOptionsOK(int n)
-{
-       int newPonder = appData.ponderNextMove;
-       appData.ponderNextMove = oldPonder;
-       PonderNextMoveEvent(newPonder);
-       return 1;
-}
+    /* OK pressed */    
+    if (resptype == GTK_RESPONSE_ACCEPT) {
+        if (GenericReadout(currentOption, -1)) PopDown(data);
+        return;
+    }
 
-Option generalOptions[] = {
-{ 0,  0, 0, NULL, (void*) &appData.whitePOV, "", NULL, CheckBox, N_("Absolute Analysis Scores") },
-{ 0,  0, 0, NULL, (void*) &appData.sweepSelect, "", NULL, CheckBox, N_("Almost Always Queen (Detour Under-Promote)") },
-{ 0,  0, 0, NULL, (void*) &appData.animateDragging, "", NULL, CheckBox, N_("Animate Dragging") },
-{ 0,  0, 0, NULL, (void*) &appData.animate, "", NULL, CheckBox, N_("Animate Moving") },
-{ 0,  0, 0, NULL, (void*) &appData.autoCallFlag, "", NULL, CheckBox, N_("Auto Flag") },
-{ 0,  0, 0, NULL, (void*) &appData.autoFlipView, "", NULL, CheckBox, N_("Auto Flip View") },
-{ 0,  0, 0, NULL, (void*) &appData.blindfold, "", NULL, CheckBox, N_("Blindfold") },
-{ 0,  0, 0, NULL, (void*) &appData.dropMenu, "", NULL, CheckBox, N_("Drop Menu") },
-{ 0,  0, 0, NULL, (void*) &appData.hideThinkingFromHuman, "", NULL, CheckBox, N_("Hide Thinking from Human") },
-{ 0,  0, 0, NULL, (void*) &appData.highlightDragging, "", NULL, CheckBox, N_("Highlight Dragging (Show Move Targets)") },
-{ 0,  0, 0, NULL, (void*) &appData.highlightLastMove, "", NULL, CheckBox, N_("Highlight Last Move") },
-{ 0,  0, 0, NULL, (void*) &appData.highlightMoveWithArrow, "", NULL, CheckBox, N_("Highlight with Arrow") },
-{ 0,  0, 0, NULL, (void*) &appData.ringBellAfterMoves, "", NULL, CheckBox, N_("Move Sound") },
-{ 0,  0, 0, NULL, (void*) &appData.oneClick, "", NULL, CheckBox, N_("One-Click Moving") },
-{ 0,  0, 0, NULL, (void*) &appData.periodicUpdates, "", NULL, CheckBox, N_("Periodic Updates (in Analysis Mode)") },
-{ 0,  0, 0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
-{ 0,  0, 0, NULL, (void*) &appData.popupExitMessage, "", NULL, CheckBox, N_("Popup Exit Messages") },
-{ 0,  0, 0, NULL, (void*) &appData.popupMoveErrors, "", NULL, CheckBox, N_("Popup Move Errors") },
-{ 0,  0, 0, NULL, (void*) &appData.showEvalInMoveHistory, "", NULL, CheckBox, N_("Scores in Move List") },
-{ 0,  0, 0, NULL, (void*) &appData.showCoords, "", NULL, CheckBox, N_("Show Coordinates") },
-{ 0,  0, 0, NULL, (void*) &appData.markers, "", NULL, CheckBox, N_("Show Target Squares") },
-{ 0,  0, 0, NULL, (void*) &appData.testLegality, "", NULL, CheckBox, N_("Test Legality") },
-{ 0, 0, 10, NULL, (void*) &appData.flashCount, "", NULL, Spin, N_("Flash Moves (0 = no flashing):") },
-{ 0, 1, 10, NULL, (void*) &appData.flashRate, "", NULL, Spin, N_("Flash Rate (high = fast):") },
-{ 0, 5, 100,NULL, (void*) &appData.animSpeed, "", NULL, Spin, N_("Animation Speed (high = slow):") },
-{ 0,  1, 5, NULL, (void*) &appData.zoom, "", NULL, Spin, N_("Zoom factor in Evaluation Graph:") },
-{ 0,  0, 0, NULL, (void*) &GeneralOptionsOK, "", NULL, EndMark , "" }
-};
+    /* cancel pressed */
+    PopDown(dlg);    
+}
 
-void Pick(int n)
+void GenericCallback(GtkWidget *widget, gpointer gdata)
 {
-       VariantClass v = currentOption[n].value;
-       if(!appData.noChessProgram) {
-           char *name = VariantName(v), buf[MSG_SIZ];
-           if (first.protocolVersion > 1 && StrStr(first.variants, name) == NULL) {
-               /* [HGM] in protocol 2 we check if variant is suported by engine */
-             snprintf(buf, MSG_SIZ,  _("Variant %s not supported by %s"), name, first.tidy);
-               DisplayError(buf, 0);
-               return; /* ignore OK if first engine does not support it */
-           } else
-           if (second.initDone && second.protocolVersion > 1 && StrStr(second.variants, name) == NULL) {
-             snprintf(buf, MSG_SIZ,  _("Warning: second engine (%s) does not support this!"), second.tidy);
-               DisplayError(buf, 0);   /* use of second engine is optional; only warn user */
-           }
-       }
+    const gchar *name;
+    char buf[MSG_SIZ];    
+    int data = (intptr_t) gdata;   
+    DialogClass dlg;
+#ifdef TODO_GTK
+    GtkWidget *sh = XtParent(XtParent(XtParent(w))), *oldSh;
+#else
+    GtkWidget *sh, *oldSh;
+#endif
 
-       GenericReadout(-1); // make sure ranks and file settings are read
+    currentOption = dialogOptions[dlg=data>>16]; data &= 0xFFFF;
+#ifndef TODO_GTK
+    sh = shells[dlg]; // make following line a no-op, as we haven't found out what the real shell is yet (breaks multiple popups of same type!)
+#endif
+    oldSh = shells[dlg]; shells[dlg] = sh; // bow to reality
+    
+#ifdef TODO_GTK
+    if (data == 30000) { // cancel
+        PopDown(dlg); 
+    } else
+    if (data == 30001) { // save buttons imply OK
+        if(GenericReadout(currentOption, -1)) PopDown(dlg); // calls OK-proc after full readout, but no popdown if it returns false
+    } else
+#endif
 
-       gameInfo.variant = v;
-       appData.variant = VariantName(v);
+    if(currentCps) {
+        name = gtk_button_get_label (GTK_BUTTON(widget));         
+       if(currentOption[data].type == SaveButton) GenericReadout(currentOption, -1);
+        snprintf(buf, MSG_SIZ,  "option %s\n", name);
+        SendToProgram(buf, currentCps);
+    } else ((ButtonCallback*) currentOption[data].target)(data);   
 
-       shuffleOpenings = FALSE; /* [HGM] shuffle: possible shuffle reset when we switch */
-       startedFromPositionFile = FALSE; /* [HGM] loadPos: no longer valid in new variant */
-       appData.pieceToCharTable = NULL;
-       appData.pieceNickNames = "";
-       appData.colorNickNames = "";
-       Reset(True, True);
-        PopDown(0);
-        return;
+    shells[dlg] = oldSh; // in case of multiple instances, restore previous (as this one could be popped down now)
 }
 
-Option variantDescriptors[] = {
-{ VariantNormal, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("normal")},
-{ VariantFairy, 1, 135, NULL, (void*) &Pick, "#BFBFBF", NULL, Button, N_("fairy")},
-{ VariantFischeRandom, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("FRC")},
-{ VariantSChess, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Seirawan")},
-{ VariantWildCastle, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("wild castle")},
-{ VariantSuper, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("Superchess")},
-{ VariantNoCastle, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("no castle")},
-{ VariantCrazyhouse, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("crazyhouse")},
-{ VariantKnightmate, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("knightmate")},
-{ VariantBughouse, 1, 135, NULL, (void*) &Pick, "#FFBFBF", NULL, Button, N_("bughouse")},
-{ VariantBerolina, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("berolina")},
-{ VariantShogi, 1, 135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("shogi (9x9)")},
-{ VariantCylinder, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("cylinder")},
-{ VariantXiangqi, 1, 135, NULL, (void*) &Pick, "#BFFFFF", NULL, Button, N_("xiangqi (9x10)")},
-{ VariantShatranj, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("shatranj")},
-{ VariantCourier, 1, 135, NULL, (void*) &Pick, "#BFFFBF", NULL, Button, N_("courier (12x8)")},
-{ VariantMakruk, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("makruk")},
-{ VariantGreat, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Great Shatranj (10x8)")},
-{ VariantAtomic, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("atomic")},
-{ VariantFalcon, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("falcon (10x8)")},
-{ VariantTwoKings, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("two kings")},
-{ VariantCapablanca, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Capablanca (10x8)")},
-{ Variant3Check, 0, 135, NULL, (void*) &Pick, "#FFFFFF", NULL, Button, N_("3-checks")},
-{ VariantGothic, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("Gothic (10x8)")},
-{ VariantSuicide, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("suicide")},
-{ VariantJanus, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("janus (10x8)")},
-{ VariantGiveaway, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("give-away")},
-{ VariantCapaRandom, 1, 135, NULL, (void*) &Pick, "#BFBFFF", NULL, Button, N_("CRC (10x8)")},
-{ VariantLosers, 0, 135, NULL, (void*) &Pick, "#FFFFBF", NULL, Button, N_("losers")},
-{ VariantGrand, 1, 135, NULL, (void*) &Pick, "#5070FF", NULL, Button, N_("grand (10x10)")},
-{ VariantSpartan, 0, 135, NULL, (void*) &Pick, "#FF0000", NULL, Button, N_("Spartan")},
-{ 0, 0, 0, NULL, NULL, NULL, NULL, Label, N_("Board size ( -1 = default for selected variant):")},
-{ 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.NrRanks, "", NULL, Spin, N_("Number of Board Ranks:") },
-{ 0, -1, BOARD_FILES, NULL, (void*) &appData.NrFiles, "", NULL, Spin, N_("Number of Board Files:") },
-{ 0, -1, BOARD_RANKS-1, NULL, (void*) &appData.holdingsSize, "", NULL, Spin, N_("Holdings Size:") },
-{ 0, 0, 0, NULL, NULL, NULL, NULL, Label,
-                               N_("WARNING: variants with un-orthodox\n"
-                                 "pieces only have built-in bitmaps\n"
-                                 "for -boardSize middling, bulky and\n"
-                                 "petite, and substitute king or amazon\n"
-                                 "for missing bitmaps. (See manual.)")},
-{ 0, 2, 0, NULL, NULL, "", NULL, EndMark , "" }
-};
-
-int CommonOptionsOK(int n)
-{
-       int newPonder = appData.ponderNextMove;
-       // make sure changes are sent to first engine by re-initializing it
-       // if it was already started pre-emptively at end of previous game
-       if(gameMode == BeginningOfGame) Reset(True, True); else {
-           // Some changed setting need immediate sending always.
-           if(oldCores != appData.smpCores)
-               NewSettingEvent(False, &(first.maxCores), "cores", appData.smpCores);
-           appData.ponderNextMove = oldPonder;
-           PonderNextMoveEvent(newPonder);
+#ifdef TODO_GTK
+void
+TabProc (Widget w, XEvent *event, String *prms, Cardinal *nprms)
+{   // for transfering focus to the next text-edit
+    Option *opt;
+    for(opt = currentOption; opt->type != EndMark; opt++) {
+       if(opt->handle == w) {
+           while(++opt) {
+               if(opt->type == EndMark) opt = currentOption; // wrap
+               if(opt->handle == w) return; // full circle
+               if(opt->type == TextBox || opt->type == Spin || opt->type == Fractional || opt->type == FileName || opt->type == PathName) {
+                   SetFocus(opt->handle, XtParent(XtParent(XtParent(w))), NULL, 0);
+                   return;
+               }
+           }
        }
-       return 1;
+    }
 }
+#endif
 
-Option commonEngineOptions[] = {
-{ 0,     0, 0, NULL, (void*) &appData.ponderNextMove, "", NULL, CheckBox, N_("Ponder Next Move") },
-{ 0,  0, 1000, NULL, (void*) &appData.smpCores, "", NULL, Spin, N_("Maximum Number of CPUs per Engine:") },
-{ 0,     0, 0, NULL, (void*) &appData.polyglotDir, "", NULL, PathName, N_("Polygot Directory:") },
-{ 0, 0, 16000, NULL, (void*) &appData.defaultHashSize, "", NULL, Spin, N_("Hash-Table Size (MB):") },
-{ 0,     0, 0, NULL, (void*) &appData.defaultPathEGTB, "", NULL, PathName, N_("Nalimov EGTB Path:") },
-{ 0,  0, 1000, NULL, (void*) &appData.defaultCacheSizeEGTB, "", NULL, Spin, N_("EGTB Cache Size (MB):") },
-{ 0,     0, 0, NULL, (void*) &appData.usePolyglotBook, "", NULL, CheckBox, N_("Use GUI Book") },
-{ 0,     0, 0, NULL, (void*) &appData.polyglotBook, ".bin", NULL, FileName, N_("Opening-Book Filename:") },
-{ 0,   0, 100, NULL, (void*) &appData.bookDepth, "", NULL, Spin, N_("Book Depth (moves):") },
-{ 0,   0, 100, NULL, (void*) &appData.bookStrength, "", NULL, Spin, N_("Book Variety (0) vs. Strength (100):") },
-{ 0,     0, 0, NULL, (void*) &appData.firstHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #1 Has Own Book") },
-{ 0,     0, 0, NULL, (void*) &appData.secondHasOwnBookUCI, "", NULL, CheckBox, N_("Engine #2 Has Own Book          ") },
-{ 0,     1, 0, NULL, (void*) &CommonOptionsOK, "", NULL, EndMark , "" }
-};
-
-Option adjudicationOptions[] = {
-{ 0, 0,    0, NULL, (void*) &appData.checkMates, "", NULL, CheckBox, N_("Detect all Mates") },
-{ 0, 0,    0, NULL, (void*) &appData.testClaims, "", NULL, CheckBox, N_("Verify Engine Result Claims") },
-{ 0, 0,    0, NULL, (void*) &appData.materialDraws, "", NULL, CheckBox, N_("Draw if Insufficient Mating Material") },
-{ 0, 0,    0, NULL, (void*) &appData.trivialDraws, "", NULL, CheckBox, N_("Adjudicate Trivial Draws (3-Move Delay)") },
-{ 0, 0,  100, NULL, (void*) &appData.ruleMoves, "", NULL, Spin, N_("N-Move Rule:") },
-{ 0, 0,    6, NULL, (void*) &appData.drawRepeats, "", NULL, Spin, N_("N-fold Repeats:") },
-{ 0, 0, 1000, NULL, (void*) &appData.adjudicateDrawMoves, "", NULL, Spin, N_("Draw after N Moves Total:") },
-{ 0,-5000, 0, NULL, (void*) &appData.adjudicateLossThreshold, "", NULL, Spin, N_("Win / Loss Threshold:") },
-{ 0, 0,    0, NULL, (void*) &first.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #1") },
-{ 0, 0,    0, NULL, (void*) &second.scoreIsAbsolute, "", NULL, CheckBox, N_("Negate Score of Engine #2") },
-{ 0, 1,    0, NULL, NULL, "", NULL, EndMark , "" }
-};
-
-int IcsOptionsOK(int n)
-{
-    ParseIcsTextColors();
-    return 1;
+#ifdef TODO_GTK
+void
+WheelProc (Widget w, XEvent *event, String *prms, Cardinal *nprms)
+{   // for scrolling a widget seen through a viewport with the mouse wheel (ListBox!)
+    int j=0, n = atoi(prms[0]);
+    static char *params[3] = { "", "Continuous", "Proportional" };
+    Arg args[16];
+    float h, top;
+    Widget v;
+    if(!n) { // transient dialogs also use this for list-selection callback
+       n = prms[1][0]-'0';
+       Option *opt=dialogOptions[prms[2][0]-'A'] + n;
+       if(opt->textValue) ((ListBoxCallback*) opt->textValue)(n, SelectedListBoxItem(opt));
+       return;
+    }
+    v = XtNameToWidget(XtParent(w), "vertical");
+    if(!v) return;
+    XtSetArg(args[j], XtNshown, &h); j++;
+    XtSetArg(args[j], XtNtopOfThumb, &top); j++;
+    XtGetValues(v, args, j);
+    top += 0.1f*h*n; if(top < 0.f) top = 0.;
+    XtCallActionProc(v, "StartScroll", event, params+1, 1);
+    XawScrollbarSetThumb(v, top, -1.0);
+    XtCallActionProc(v, "NotifyThumb", event, params, 0);
+//    XtCallActionProc(w, "NotifyScroll", event, params+2, 1);
+    XtCallActionProc(v, "EndScroll", event, params, 0);
 }
+#endif
 
-Option icsOptions[] = {
-{ 0, 0, 0, NULL, (void*) &appData.autoKibitz, "",  NULL, CheckBox, N_("Auto-Kibitz") },
-{ 0, 0, 0, NULL, (void*) &appData.autoComment, "", NULL, CheckBox, N_("Auto-Comment") },
-{ 0, 0, 0, NULL, (void*) &appData.autoObserve, "", NULL, CheckBox, N_("Auto-Observe") },
-{ 0, 0, 0, NULL, (void*) &appData.autoRaiseBoard, "", NULL, CheckBox, N_("Auto-Raise Board") },
-{ 0, 0, 0, NULL, (void*) &appData.bgObserve, "",   NULL, CheckBox, N_("Background Observe while Playing") },
-{ 0, 0, 0, NULL, (void*) &appData.dualBoard, "",   NULL, CheckBox, N_("Dual Board for Background-Observed Game") },
-{ 0, 0, 0, NULL, (void*) &appData.getMoveList, "", NULL, CheckBox, N_("Get Move List") },
-{ 0, 0, 0, NULL, (void*) &appData.quietPlay, "",   NULL, CheckBox, N_("Quiet Play") },
-{ 0, 0, 0, NULL, (void*) &appData.seekGraph, "",   NULL, CheckBox, N_("Seek Graph") },
-{ 0, 0, 0, NULL, (void*) &appData.autoRefresh, "", NULL, CheckBox, N_("Auto-Refresh Seek Graph") },
-{ 0, 0, 0, NULL, (void*) &appData.premove, "",     NULL, CheckBox, N_("Premove") },
-{ 0, 0, 0, NULL, (void*) &appData.premoveWhite, "", NULL, CheckBox, N_("Premove for White") },
-{ 0, 0, 0, NULL, (void*) &appData.premoveWhiteText, "", NULL, TextBox, N_("First White Move:") },
-{ 0, 0, 0, NULL, (void*) &appData.premoveBlack, "", NULL, CheckBox, N_("Premove for Black") },
-{ 0, 0, 0, NULL, (void*) &appData.premoveBlackText, "", NULL, TextBox, N_("First Black Move:") },
-{ 0, 0, 0, NULL, NULL, NULL, NULL, Break, "" },
-{ 0, 0, 0, NULL, (void*) &appData.icsAlarm, "", NULL, CheckBox, N_("Alarm") },
-{ 0, 0, 100000000, NULL, (void*) &appData.icsAlarmTime, "", NULL, Spin, N_("Alarm Time (msec):") },
-//{ 0, 0, 0, NULL, (void*) &appData.chatBoxes, "", NULL, TextBox, N_("Startup Chat Boxes:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorize, "", NULL, CheckBox, N_("Colorize Messages") },
-{ 0, 0, 0, NULL, (void*) &appData.colorShout, "", NULL, TextBox, N_("Shout Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorSShout, "", NULL, TextBox, N_("S-Shout Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorChannel1, "", NULL, TextBox, N_("Channel #1 Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorChannel, "", NULL, TextBox, N_("Other Channel Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorKibitz, "", NULL, TextBox, N_("Kibitz Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorTell, "", NULL, TextBox, N_("Tell Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorChallenge, "", NULL, TextBox, N_("Challenge Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorRequest, "", NULL, TextBox, N_("Request Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &appData.colorSeek, "", NULL, TextBox, N_("Seek Text Colors:") },
-{ 0, 0, 0, NULL, (void*) &IcsOptionsOK, "", NULL, EndMark , "" }
-};
-
-char *modeNames[] = { N_("Exact position match"), N_("Shown position is subset"), N_("Same material with exactly same Pawn chain"), 
-                     N_("Same material"), N_("Material range (top board half optional)"), N_("Material difference (optional stuff balanced)"), NULL };
-char *modeValues[] = { "1", "2", "3", "4", "5", "6" };
-char *searchMode;
+static char *oneLiner  =
+   "<Key>Return: redraw-display() \n \
+    <Key>Tab: TabProc() \n ";
+static char scrollTranslations[] =
+   "<Btn1Up>(2): WheelProc(0 0 A) \n \
+    <Btn4Down>: WheelProc(-1) \n \
+    <Btn5Down>: WheelProc(1) \n ";
 
-int LoadOptionsOK()
-{
-    appData.searchMode = atoi(searchMode);
-    return 1;
+static void
+SqueezeIntoBox (Option *opt, int nr, int width)
+{   // size buttons in bar to fit, clipping button names where necessary
+#ifdef TODO_GTK
+    int i, wtot = 0;
+    Dimension widths[20], oldWidths[20];
+    Arg arg;
+    for(i=1; i<nr; i++) {
+       XtSetArg(arg, XtNwidth, &widths[i]);
+       XtGetValues(opt[i].handle, &arg, 1);
+       wtot +=  oldWidths[i] = widths[i];
+    }
+    opt->min = wtot;
+    if(width <= 0) return;
+    while(wtot > width) {
+       int wmax=0, imax=0;
+       for(i=1; i<nr; i++) if(widths[i] > wmax) wmax = widths[imax=i];
+       widths[imax]--;
+       wtot--;
+    }
+    for(i=1; i<nr; i++) if(widths[i] != oldWidths[i]) {
+       XtSetArg(arg, XtNwidth, widths[i]);
+       XtSetValues(opt[i].handle, &arg, 1);
+    }
+    opt->min = wtot;
+#endif
 }
 
-Option loadOptions[] = {
-{ 0, 0, 0, NULL, (void*) &appData.autoDisplayTags, "", NULL, CheckBox, N_("Auto-Display Tags") },
-{ 0, 0, 0, NULL, (void*) &appData.autoDisplayComment, "", NULL, CheckBox, N_("Auto-Display Comment") },
-{ 0, 0, 0, NULL, NULL, NULL, NULL, Label, N_("Auto-Play speed of loaded games\n(0 = instant, -1 = off):") },
-{ 0, -1, 10000000, NULL, (void*) &appData.timeDelay, "", NULL, Fractional, N_("Seconds per Move:") },
-{   0,  0,    0, NULL, NULL, NULL, NULL, Label,  N_("\nThresholds for position filtering in game list:") },
-{ 0, 0, 5000, NULL, (void*) &appData.eloThreshold1, "", NULL, Spin, N_("Elo of strongest player at least:") },
-{ 0, 0, 5000, NULL, (void*) &appData.eloThreshold2, "", NULL, Spin, N_("Elo of weakest player at least:") },
-{ 0, 0, 5000, NULL, (void*) &appData.dateThreshold, "", NULL, Spin, N_("No games before year:") },
-{ 0, 1, 50, NULL, (void*) &appData.stretch, "", NULL, Spin, N_("Minimum nr consecutive positions:") },
-{ 1, 0, 180, NULL, (void*) &searchMode, (char*) modeNames, modeValues, ComboBox, N_("Seach mode:") },
-{ 0, 0, 0, NULL, (void*) &appData.ignoreColors, "", NULL, CheckBox, N_("Also match reversed colors") },
-{ 0, 0, 0, NULL, (void*) &appData.findMirror, "", NULL, CheckBox, N_("Also match left-right flipped position") },
-{ 0,  0, 0, NULL, (void*) &LoadOptionsOK, "", NULL, EndMark , "" }
-};
-
-Option saveOptions[] = {
-{ 0, 0, 0, NULL, (void*) &appData.autoSaveGames, "", NULL, CheckBox, N_("Auto-Save Games") },
-{ 0, 0, 0, NULL, (void*) &appData.saveGameFile, ".pgn", NULL, FileName,  N_("Save Games on File:") },
-{ 0, 0, 0, NULL, (void*) &appData.savePositionFile, ".fen", NULL, FileName,  N_("Save Final Positions on File:") },
-{ 0, 0, 0, NULL, (void*) &appData.pgnEventHeader, "", NULL, TextBox,  N_("PGN Event Header:") },
-{ 0, 0, 0, NULL, (void*) &appData.oldSaveStyle, "", NULL, CheckBox, N_("Old Save Style (as opposed to PGN)") },
-{ 0, 0, 0, NULL, (void*) &appData.saveExtendedInfoInPGN, "", NULL, CheckBox, N_("Save Score/Depth Info in PGN") },
-{ 0, 0, 0, NULL, (void*) &appData.saveOutOfBookInfo, "", NULL, CheckBox, N_("Save Out-of-Book Info in PGN           ") },
-{ 0, 1, 0, NULL, NULL, "", NULL, EndMark , "" }
-};
-
-char *soundNames[] = {
-       N_("No Sound"),
-       N_("Default Beep"),
-       N_("Above WAV File"),
-       N_("Car Horn"),
-       N_("Cymbal"),
-       N_("Ding"),
-       N_("Gong"),
-       N_("Laser"),
-       N_("Penalty"),
-       N_("Phone"),
-       N_("Pop"),
-       N_("Slap"),
-       N_("Wood Thunk"),
-       NULL,
-       N_("User File")
-};
-
-char *soundFiles[] = { // sound files corresponding to above names
-       "",
-       "$",
-       NULL, // kludge alert: as first thing in the dialog readout this is replaced with the user-given .WAV filename
-       "honkhonk.wav",
-       "cymbal.wav",
-       "ding1.wav",
-       "gong.wav",
-       "laser.wav",
-       "penalty.wav",
-       "phone.wav",
-       "pop2.wav",
-       "slap.wav",
-       "woodthunk.wav",
-       NULL,
-       NULL
-};
-
-void Test(int n)
-{
-    GenericReadout(2);
-    if(soundFiles[values[3]]) PlaySound(soundFiles[values[3]]);
+#ifdef TODO_GTK
+int
+SetPositionAndSize (Arg *args, Widget leftNeigbor, Widget topNeigbor, int b, int w, int h, int chaining)
+{   // sizing and positioning most widgets have in common
+    int j = 0;
+    // first position the widget w.r.t. earlier ones
+    if(chaining & 1) { // same row: position w.r.t. last (on current row) and lastrow
+       XtSetArg(args[j], XtNfromVert, topNeigbor); j++;
+       XtSetArg(args[j], XtNfromHoriz, leftNeigbor); j++;
+    } else // otherwise it goes at left margin (which is default), below the previous element
+       XtSetArg(args[j], XtNfromVert, leftNeigbor),  j++;
+    // arrange chaining ('2'-bit indicates top and bottom chain the same)
+    if((chaining & 14) == 6) XtSetArg(args[j], XtNtop,    XtChainBottom), j++;
+    if((chaining & 14) == 10) XtSetArg(args[j], XtNbottom, XtChainTop ), j++;
+    if(chaining & 4) XtSetArg(args[j], XtNbottom, XtChainBottom ), j++;
+    if(chaining & 8) XtSetArg(args[j], XtNtop,    XtChainTop), j++;
+    if(chaining & 0x10) XtSetArg(args[j], XtNright, XtChainRight), j++;
+    if(chaining & 0x20) XtSetArg(args[j], XtNleft,  XtChainRight), j++;
+    if(chaining & 0x40) XtSetArg(args[j], XtNright, XtChainLeft ), j++;
+    if(chaining & 0x80) XtSetArg(args[j], XtNleft,  XtChainLeft ), j++;
+    // set size (if given)
+    if(w) XtSetArg(args[j], XtNwidth, w), j++;
+    if(h) XtSetArg(args[j], XtNheight, h),  j++;
+    // color
+    if(!appData.monoMode) {
+       if(!b && appData.dialogColor[0]) XtSetArg(args[j], XtNbackground, dialogColor),  j++;
+       if(b == 3 && appData.buttonColor[0]) XtSetArg(args[j], XtNbackground, buttonColor),  j++;
+    }
+    if(b == 3) b = 1;
+    // border
+    XtSetArg(args[j], XtNborderWidth, b);  j++;
+    return j;
 }
+#endif
 
-Option soundOptions[] = {
-{ 0, 0, 0, NULL, (void*) &appData.soundProgram, "", NULL, TextBox, N_("Sound Program:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundDirectory, "", NULL, PathName, N_("Sounds Directory:") },
-{ 0, 0, 0, NULL, (void*) (soundFiles+2) /* kludge! */, ".wav", NULL, FileName, N_("User WAV File:") },
-{ 0, 0, 0, NULL, (void*) &trialSound, (char*) soundNames, soundFiles, ComboBox, N_("Try-Out Sound:") },
-{ 0, 1, 0, NULL, (void*) &Test, NULL, NULL, Button, N_("Play") },
-{ 0, 0, 0, NULL, (void*) &appData.soundMove, (char*) soundNames, soundFiles, ComboBox, N_("Move:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundIcsWin, (char*) soundNames, soundFiles, ComboBox, N_("Win:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundIcsLoss, (char*) soundNames, soundFiles, ComboBox, N_("Lose:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundIcsDraw, (char*) soundNames, soundFiles, ComboBox, N_("Draw:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundIcsUnfinished, (char*) soundNames, soundFiles, ComboBox, N_("Unfinished:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundIcsAlarm, (char*) soundNames, soundFiles, ComboBox, N_("Alarm:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundShout, (char*) soundNames, soundFiles, ComboBox, N_("Shout:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundSShout, (char*) soundNames, soundFiles, ComboBox, N_("S-Shout:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundChannel, (char*) soundNames, soundFiles, ComboBox, N_("Channel:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundChannel1, (char*) soundNames, soundFiles, ComboBox, N_("Channel 1:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundTell, (char*) soundNames, soundFiles, ComboBox, N_("Tell:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundKibitz, (char*) soundNames, soundFiles, ComboBox, N_("Kibitz:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundChallenge, (char*) soundNames, soundFiles, ComboBox, N_("Challenge:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundRequest, (char*) soundNames, soundFiles, ComboBox, N_("Request:") },
-{ 0, 0, 0, NULL, (void*) &appData.soundSeek, (char*) soundNames, soundFiles, ComboBox, N_("Seek:") },
-{ 0, 1, 0, NULL, NULL, "", NULL, EndMark , "" }
-};
+int
+GenericPopUp (Option *option, char *title, DialogClass dlgNr, DialogClass parent, int modal, int topLevel)
+{    
+    GtkWidget *dialog = NULL;
+    gint       w;
+    GtkWidget *label;
+    GtkWidget *box;
+    GtkWidget *checkbutton;
+    GtkWidget *entry;
+    GtkWidget *hbox;    
+    GtkWidget *button;
+    GtkWidget *table;
+    GtkWidget *spinner;    
+    GtkAdjustment *spinner_adj;
+    GtkWidget *combobox;
+    GtkWidget *textview;
+    GtkTextBuffer *textbuffer;           
+    GdkColor color;     
+    GtkWidget *actionarea;
+    GtkWidget *sw;    
+    GtkWidget *list;    
+    GtkWidget *graph;    
+    GtkWidget *menuButton;    
+    GtkWidget *menuBar;    
+    GtkWidget *menu;    
+
+    int i, j, arraysize, left, top, height=999, width=1, boxStart;    
+    char def[MSG_SIZ], *msg, engineDlg = (currentCps != NULL && dlgNr != BrowserDlg);
+    
+    if(dlgNr < PromoDlg && shellUp[dlgNr]) return 0; // already up
+
+    if(dlgNr && dlgNr < PromoDlg && shells[dlgNr]) { // reusable, and used before (but popped down)
+        gtk_widget_show(shells[dlgNr]);
+        shellUp[dlgNr] = True;
+        return 0;
+    }
 
-void SetColor(char *colorName, Option *box)
-{
-       Arg args[5];
-       Pixel buttonColor;
-       XrmValue vFrom, vTo;
-       if (!appData.monoMode) {
-           vFrom.addr = (caddr_t) colorName;
-           vFrom.size = strlen(colorName);
-           XtConvert(shellWidget, XtRString, &vFrom, XtRPixel, &vTo);
-           if (vTo.addr == NULL) {
-               buttonColor = (Pixel) -1;
-           } else {
-               buttonColor = *(Pixel *) vTo.addr;
-           }
-       } else buttonColor = (Pixel) 0;
-       XtSetArg(args[0], XtNbackground, buttonColor);;
-       XtSetValues(box->handle, args, 1);
-}
+    dialogOptions[dlgNr] = option; // make available to callback
+    // post currentOption globally, so Spin and Combo callbacks can already use it
+    // WARNING: this kludge does not work for persistent dialogs, so that these cannot have spin or combo controls!
+    currentOption = option;
 
-void SetColorText(int n, char *buf)
-{
-    SetWidgetText(&currentOption[n-1], buf, 0);
-    SetColor(buf, &currentOption[n]);
-}
+    if(engineDlg) { // Settings popup for engine: format through heuristic
+        int n = currentCps->nrOptions;
+        if(n > 50) width = 4; else if(n>24) width = 2; else width = 1;
+        height = n / width + 1;
+//     if(n && (currentOption[n-1].type == Button || currentOption[n-1].type == SaveButton)) currentOption[n].min = SAME_ROW; // OK on same line
+        currentOption[n].type = EndMark; currentOption[n].target = NULL; // delimit list by callback-less end mark
+    }    
 
-void DefColor(int n)
-{
-    SetColorText(n, (char*) currentOption[n].choice);
-}
+#ifdef TODO_GTK
+     i = 0;
+    XtSetArg(args[i], XtNresizable, True); i++;
+    shells[BoardWindow] = shellWidget; parents[dlgNr] = parent;
 
-void RefreshColor(int source, int n)
-{
-    int col, j, r, g, b, step = 10;
-    char *s, buf[MSG_SIZ]; // color string
-    GetWidgetText(&currentOption[source], &s);
-    if(sscanf(s, "#%x", &col) != 1) return;   // malformed
-    b = col & 0xFF; g = col & 0xFF00; r = col & 0xFF0000;
-    switch(n) {
-       case 1: r += 0x10000*step;break;
-       case 2: g += 0x100*step;  break;
-       case 3: b += step;        break;
-       case 4: r -= 0x10000*step; g -= 0x100*step; b -= step; break;
+    if(dlgNr == BoardWindow) dialog = shellWidget; else
+    dialog =
+      XtCreatePopupShell(title, !top || !appData.topLevel ? transientShellWidgetClass : topLevelShellWidgetClass,
+                                                           shells[parent], args, i);
+#endif
+    dialog = gtk_dialog_new_with_buttons( title,
+                                      NULL,
+                                     GTK_DIALOG_DESTROY_WITH_PARENT | GTK_DIALOG_NO_SEPARATOR |
+                                          (modal ? GTK_DIALOG_MODAL : 0),
+                                      GTK_STOCK_OK, GTK_RESPONSE_ACCEPT,
+                                      GTK_STOCK_CANCEL, GTK_RESPONSE_REJECT,
+                                      NULL );      
+
+    shells[dlgNr] = dialog;
+    box = gtk_dialog_get_content_area( GTK_DIALOG( dialog ) );
+    gtk_box_set_spacing(GTK_BOX(box), 5);    
+
+    arraysize = 0;
+    for (i=0;option[i].type != EndMark;i++) {
+        arraysize++;   
     }
-    if(r < 0) r = 0; if(g < 0) g = 0; if(b < 0) b = 0;
-    if(r > 0xFF0000) r = 0xFF0000; if(g > 0xFF00) g = 0xFF00; if(b > 0xFF) b = 0xFF;
-    col = r | g | b;
-    snprintf(buf, MSG_SIZ, "#%06x", col);
-    for(j=1; j<7; j++) if(buf[j] >= 'a') buf[j] -= 32; // capitalize
-    SetColorText(source+1, buf);
-}
 
-void ColorChanged(Widget w, XtPointer data, XEvent *event, Boolean *b)
-{
-    char buf[10];
-    if ( (XLookupString(&(event->xkey), buf, 2, NULL, NULL) == 1) && *buf == '\r' )
-       RefreshColor((int)(intptr_t) data, 0);
-}
-
-void AdjustColor(int i)
-{
-    int n = currentOption[i].value;
-    RefreshColor(i-n-1, n);
-}
-
-int BoardOptionsOK(int n)
-{
-    if(appData.overrideLineGap >= 0) lineGap = appData.overrideLineGap; else lineGap = defaultLineGap;
-    useImages = useImageSqs = 0;
-    MakeColors(); CreateGCs(True);
-    CreateAnyPieces();
-    InitDrawingSizes(-1, 0);
-    DrawPosition(True, NULL);
-    return 1;
-}
+    table = gtk_table_new(arraysize, 3, FALSE);
+    gtk_table_set_col_spacings(GTK_TABLE(table), 20);
+    left = 0;
+    top = -1;    
+
+    for (i=0;option[i].type != EndMark;i++) {
+       if(option[i].type == -1) continue;
+        top++;
+        if (top >= height) {
+            top = 0;
+            left = left + 3;
+            gtk_table_resize(GTK_TABLE(table), height, left + 3);   
+        }                
+        switch(option[i].type) {
+          case Fractional:           
+           snprintf(def, MSG_SIZ,  "%.2f", *(float*)option[i].target);
+           option[i].value = *(float*)option[i].target;
+            goto tBox;
+          case Spin:
+            if(!currentCps) option[i].value = *(int*)option[i].target;
+            snprintf(def, MSG_SIZ,  "%d", option[i].value);
+          case TextBox:
+         case FileName:            
+         case PathName:
+          tBox:
+            label = gtk_label_new(option[i].name);
+            /* Left Justify */
+            gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
 
-Option boardOptions[] = {
-{ 0,   0, 70, NULL, (void*) &appData.whitePieceColor, "", NULL, TextBox, N_("White Piece Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFFCC", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0,   0, 70, NULL, (void*) &appData.blackPieceColor, "", NULL, TextBox, N_("Black Piece Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#202020", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0,   0, 70, NULL, (void*) &appData.lightSquareColor, "", NULL, TextBox, N_("Light Square Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#C8C365", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0,   0, 70, NULL, (void*) &appData.darkSquareColor, "", NULL, TextBox, N_("Dark Square Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#77A26D", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0,   0, 70, NULL, (void*) &appData.highlightSquareColor, "", NULL, TextBox, N_("Highlight Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FFFF00", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0,   0, 70, NULL, (void*) &appData.premoveHighlightColor, "", NULL, TextBox, N_("Premove Highlight Color:") },
-{ 1000, 1, 0, NULL, (void*) &DefColor, NULL, (char**) "#FF0000", Button, "      " },
-{    1, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("R") },
-{    2, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("G") },
-{    3, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("B") },
-{    4, 1, 0, NULL, (void*) &AdjustColor, NULL, NULL, Button, N_("D") },
-{ 0, 0, 0, NULL, (void*) &appData.upsideDown, "", NULL, CheckBox, N_("Flip Pieces Shogi Style        (Colored buttons restore default)") },
-//{ 0, 0, 0, NULL, (void*) &appData.allWhite, "", NULL, CheckBox, N_("Use Outline Pieces for Black") },
-{ 0, 0, 0, NULL, (void*) &appData.monoMode, "", NULL, CheckBox, N_("Mono Mode") },
-{ 0,-1, 5, NULL, (void*) &appData.overrideLineGap, "", NULL, Spin, N_("Line Gap ( -1 = default for board size):") },
-{ 0, 0, 0, NULL, (void*) &appData.useBitmaps, "", NULL, CheckBox, N_("Use Board Textures") },
-{ 0, 0, 0, NULL, (void*) &appData.liteBackTextureFile, ".xpm", NULL, FileName, N_("Light-Squares Texture File:") },
-{ 0, 0, 0, NULL, (void*) &appData.darkBackTextureFile, ".xpm", NULL, FileName, N_("Dark-Squares Texture File:") },
-{ 0, 0, 0, NULL, (void*) &appData.bitmapDirectory, "", NULL, PathName, N_("Directory with Bitmap Pieces:") },
-{ 0, 0, 0, NULL, (void*) &appData.pixmapDirectory, "", NULL, PathName, N_("Directory with Pixmap Pieces:") },
-{ 0, 0, 0, NULL, (void*) &BoardOptionsOK, "", NULL, EndMark , "" }
-};
+            /* width */
+            w = option[i].type == Spin || option[i].type == Fractional ? 70 : option[i].max ? option[i].max : 205;
+           if(option[i].type == FileName || option[i].type == PathName) w -= 55;
 
-int GenericReadout(int selected)
-{
-    int i, j, res=1;
-    String val;
-    Arg args[16];
-    char buf[MSG_SIZ], **dest;
-    float x;
-       for(i=0; ; i++) { // send all options that had to be OK-ed to engine
-           if(selected >= 0) { if(i < selected) continue; else if(i > selected) break; }
-           switch(currentOption[i].type) {
-               case TextBox:
-               case FileName:
-               case PathName:
-                   XtSetArg(args[0], XtNstring, &val);
-                   XtGetValues(currentOption[i].handle, args, 1);
-                   dest = currentCps ? &(currentOption[i].textValue) : (char**) currentOption[i].target;
-                   if(*dest == NULL || strcmp(*dest, val)) {
-                       if(currentCps) {
-                           snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentOption[i].name, val);
-                           SendToProgram(buf, currentCps);
-                       } else {
-                           if(*dest) free(*dest);
-                           *dest = malloc(strlen(val)+1);
-                       }
-                       safeStrCpy(*dest, val, MSG_SIZ - (*dest - currentOption[i].name)); // copy text there
-                   }
-                   break;
-               case Spin:
-               case Fractional:
-                   XtSetArg(args[0], XtNstring, &val);
-                   XtGetValues(currentOption[i].handle, args, 1);
-                   sscanf(val, "%f", &x);
-                   if(x > currentOption[i].max) x = currentOption[i].max;
-                   if(x < currentOption[i].min) x = currentOption[i].min;
-                   if(currentOption[i].type == Fractional)
-                       *(float*) currentOption[i].target = x; // engines never have float options!
-                   else if(currentOption[i].value != x) {
-                       currentOption[i].value = x;
-                       if(currentCps) {
-                           snprintf(buf, MSG_SIZ,  "option %s=%.0f\n", currentOption[i].name, x);
-                           SendToProgram(buf, currentCps);
-                       } else *(int*) currentOption[i].target = x;
-                   }
-                   break;
-               case CheckBox:
-                   j = 0;
-                   XtSetArg(args[0], XtNstate, &j);
-                   XtGetValues(currentOption[i].handle, args, 1);
-                   if(currentOption[i].value != j) {
-                       currentOption[i].value = j;
-                       if(currentCps) {
-                           snprintf(buf, MSG_SIZ,  "option %s=%d\n", currentOption[i].name, j);
-                           SendToProgram(buf, currentCps);
-                       } else *(Boolean*) currentOption[i].target = j;
-                   }
-                   break;
-               case ComboBox:
-                   val = ((char**)currentOption[i].choice)[values[i]];
-                   if(currentCps) {
-                       if(currentOption[i].value == values[i]) break; // not changed
-                       currentOption[i].value = values[i];
-                       snprintf(buf, MSG_SIZ,  "option %s=%s\n", currentOption[i].name,
-                               ((char**)currentOption[i].textValue)[values[i]]);
-                       SendToProgram(buf, currentCps);
-                   } else if(val && (*(char**) currentOption[i].target == NULL || strcmp(*(char**) currentOption[i].target, val))) {
-                     if(*(char**) currentOption[i].target) free(*(char**) currentOption[i].target);
-                     *(char**) currentOption[i].target = strdup(val);
-                   }
-                   break;
-               case EndMark:
-                   if(currentOption[i].target) // callback for implementing necessary actions on OK (like redraw)
-                       res = ((OKCallback*) currentOption[i].target)(i);
-                   break;
-           default:
-               printf("GenericReadout: unexpected case in switch.\n");
-               case Button:
-               case SaveButton:
-               case Label:
-               case Break:
-             break;
+            if (option[i].type==TextBox && option[i].min > 80){                
+                textview = gtk_text_view_new();                
+                gtk_text_view_set_wrap_mode(GTK_TEXT_VIEW(textview), GTK_WRAP_WORD);                                
+                /* add textview to scrolled window so we have vertical scroll bar */
+                sw = gtk_scrolled_window_new(NULL, NULL);
+                gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(sw), GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
+                gtk_container_add(GTK_CONTAINER(sw), textview);
+                gtk_widget_set_size_request(GTK_WIDGET(sw), w, -1);
+                textbuffer = gtk_text_view_get_buffer(GTK_TEXT_VIEW(textview));                
+                gtk_widget_set_size_request(textview, -1, option[i].min);
+                /* check if label is empty */ 
+                if (strcmp(option[i].name,"") != 0) {
+                    gtk_table_attach_defaults(GTK_TABLE(table), label, left, left+1, top, top+1);
+                    gtk_table_attach_defaults(GTK_TABLE(table), sw, left+1, left+3, top, top+1);
+                }
+                else {
+                    /* no label so let textview occupy all columns */
+                    gtk_table_attach_defaults(GTK_TABLE(table), sw, left, left+3, top, top+1);
+                } 
+                if ( *(char**)option[i].target != NULL )
+                    gtk_text_buffer_set_text (textbuffer, *(char**)option[i].target, -1);
+                else
+                    gtk_text_buffer_set_text (textbuffer, "", -1); 
+                option[i].handle = (void*)textbuffer;
+                break; 
+            }
+
+            entry = gtk_entry_new();
+
+            if (option[i].type==Spin || option[i].type==Fractional)
+                gtk_entry_set_text (GTK_ENTRY (entry), def);
+            else if (currentCps)
+                gtk_entry_set_text (GTK_ENTRY (entry), option[i].textValue);
+            else if ( *(char**)option[i].target != NULL )
+                gtk_entry_set_text (GTK_ENTRY (entry), *(char**)option[i].target);            
+
+            //gtk_entry_set_width_chars (GTK_ENTRY (entry), 18);
+            gtk_entry_set_max_length (GTK_ENTRY (entry), w);
+
+            // left, right, top, bottom
+            if (strcmp(option[i].name, "") != 0) gtk_table_attach_defaults(GTK_TABLE(table), label, left, left+1, top, top+1);
+            //gtk_table_attach_defaults(GTK_TABLE(table), entry, 1, 2, i, i+1);            
+
+            if (option[i].type == Spin) {                
+                spinner_adj = (GtkAdjustment *) gtk_adjustment_new (option[i].value, option[i].min, option[i].max, 1.0, 0.0, 0.0);
+                spinner = gtk_spin_button_new (spinner_adj, 1.0, 0);
+                gtk_table_attach_defaults(GTK_TABLE(table), spinner, left+1, left+3, top, top+1);
+                option[i].handle = (void*)spinner;
+            }
+            else if (option[i].type == FileName || option[i].type == PathName) {
+                gtk_table_attach_defaults(GTK_TABLE(table), entry, left+1, left+2, top, top+1);
+                button = gtk_button_new_with_label ("Browse");
+                gtk_table_attach_defaults(GTK_TABLE(table), button, left+2, left+3, top, top+1);
+                g_signal_connect (button, "clicked", G_CALLBACK (Browse), (gpointer)(intptr_t) i);
+                option[i].handle = (void*)entry;                 
+            }
+            else {
+                hbox = gtk_hbox_new (FALSE, 0);
+                if (strcmp(option[i].name, "") == 0)
+                    gtk_table_attach_defaults(GTK_TABLE(table), hbox, left, left+3, top, top+1);
+                else
+                    gtk_table_attach_defaults(GTK_TABLE(table), hbox, left+1, left+3, top, top+1);
+                gtk_box_pack_start (GTK_BOX (hbox), entry, TRUE, TRUE, 0);
+                //gtk_table_attach_defaults(GTK_TABLE(table), entry, left+1, left+3, top, top+1); 
+                option[i].handle = (void*)entry;
+            }                                  
+            break;
+          case CheckBox:
+            checkbutton = gtk_check_button_new_with_label(option[i].name);            
+            if(!currentCps) option[i].value = *(Boolean*)option[i].target;
+            gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(checkbutton), option[i].value);
+            gtk_table_attach_defaults(GTK_TABLE(table), checkbutton, left, left+3, top, top+1);                            
+            option[i].handle = (void *)checkbutton;            
+            break; 
+         case Label:            
+            label = gtk_label_new(option[i].name);
+            /* Left Justify */
+            gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
+            gtk_table_attach_defaults(GTK_TABLE(table), label, left, left+3, top, top+1);                       
+           break;
+          case SaveButton:
+          case Button:
+            button = gtk_button_new_with_label (option[i].name);
+
+            /* set button color on view board dialog */
+            if(option[i].choice && ((char*)option[i].choice)[0] == '#' && !currentCps) {
+                gdk_color_parse( *(char**) option[i-1].target, &color );
+                gtk_widget_modify_bg ( GTK_WIDGET(button), GTK_STATE_NORMAL, &color );
            }
-           if(currentOption[i].type == EndMark) break;
-       }
-       return res;
-}
 
-void GenericCallback(w, client_data, call_data)
-     Widget w;
-     XtPointer client_data, call_data;
-{
-    String name;
-    Arg args[16];
-    char buf[MSG_SIZ];
-    int data = (intptr_t) client_data;
+            /* set button color on new variant dialog */
+            if(option[i].textValue) {
+                gdk_color_parse( option[i].textValue, &color );
+                gtk_widget_modify_bg ( GTK_WIDGET(button), GTK_STATE_NORMAL, &color );
+                gtk_widget_set_sensitive(button, appData.noChessProgram || option[i].value < 0
+                                        || strstr(first.variants, VariantName(option[i].value)));                 
+            }
+            
+            if (!(option[i].min & 1)) {
+               if(option[i].textValue) // for new variant dialog give buttons equal space so they line up nicely
+                   hbox = gtk_hbox_new (TRUE, 0);
+               else
+                   hbox = gtk_hbox_new (FALSE, 0);
+               // if only 1 button then put it in 1st column of table only
+               if ( (arraysize >= (i+1)) && option[i+1].type != Button )
+                   gtk_table_attach_defaults(GTK_TABLE(table), hbox, left, left+1, top, top+1);
+               else
+                   gtk_table_attach_defaults(GTK_TABLE(table), hbox, left, left+3, top, top+1);
+            }            
+            gtk_box_pack_start (GTK_BOX (hbox), button, TRUE, TRUE, 0);           
+            g_signal_connect (button, "clicked", G_CALLBACK (GenericCallback), (gpointer)(intptr_t) i + (dlgNr<<16));           
+            option[i].handle = (void*)button;            
+            break;  
+         case ComboBox:
+            label = gtk_label_new(option[i].name);
+            /* Left Justify */
+            gtk_misc_set_alignment(GTK_MISC(label), 0, 0.5);
+            gtk_table_attach_defaults(GTK_TABLE(table), label, left, left+1, top, top+1);
+
+            combobox = gtk_combo_box_new_text();            
+
+            for(j=0;;j++) {
+               if (  ((char **) option[i].textValue)[j] == NULL) break;
+               gtk_combo_box_append_text(GTK_COMBO_BOX(combobox), ((char **) option[i].textValue)[j]);                          
+            }
+
+            if(currentCps)
+                option[i].choice = (char**) option[i].textValue;
+            else {            
+                for(j=0; option[i].choice[j]; j++) {                
+                    if(*(char**)option[i].target && !strcmp(*(char**)option[i].target, option[i].choice[j])) break;
+                }
+                /* If choice is NULL set to first */
+                if (option[i].choice[j] == NULL)
+                   option[i].value = 0;
+                else 
+                   option[i].value = j;
+            }
+
+            //option[i].value = j + (option[i].choice[j] == NULL);            
+            gtk_combo_box_set_active(GTK_COMBO_BOX(combobox), option[i].value); 
+            
+
+            hbox = gtk_hbox_new (FALSE, 0);
+            gtk_table_attach_defaults(GTK_TABLE(table), hbox, left+1, left+3, top, top+1);
+            gtk_box_pack_start (GTK_BOX (hbox), combobox, TRUE, TRUE, 0);
+            //gtk_table_attach_defaults(GTK_TABLE(table), combobox, 1, 2, i, i+1);
+
+            g_signal_connect(G_OBJECT(combobox), "changed", G_CALLBACK(ComboSelect), (gpointer) (intptr_t) (i + 256*dlgNr));
+
+            option[i].handle = (void*)combobox;
+            values[i] = option[i].value;            
+            break;
+         case ListBox:
+            {
+                GtkCellRenderer *renderer;
+                GtkTreeViewColumn *column;
+                GtkListStore *store;
+
+                option[i].handle = (void *) (list = gtk_tree_view_new());
+                gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(list), FALSE);
+                renderer = gtk_cell_renderer_text_new();
+                column = gtk_tree_view_column_new_with_attributes("List Items", renderer, "text", 0, NULL);
+                gtk_tree_view_append_column(GTK_TREE_VIEW(list), column);
+                store = gtk_list_store_new(1, G_TYPE_STRING); // 1 column of text
+                gtk_tree_view_set_model(GTK_TREE_VIEW(list), GTK_TREE_MODEL(store));
+                g_object_unref(store);
+                LoadListBox(&option[i], "?", -1, -1);
+               HighlightListBoxItem(&option[i], 0);
+
+                /* add listbox to scrolled window so we have vertical scroll bar */
+                sw = gtk_scrolled_window_new(NULL, NULL);
+                gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(sw), GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
+                gtk_container_add(GTK_CONTAINER(sw), list);
+                gtk_widget_set_size_request(GTK_WIDGET(sw), w, 300);
+                /* never has label, so let listbox occupy all columns */
+                gtk_table_attach_defaults(GTK_TABLE(table), sw, left, left+3, top, top+1);
+            }
+           break;
+         case Graph:
+           option[i].handle = (void*) (graph = gtk_drawing_area_new());
+            gtk_widget_set_size_request(graph, option[i].max, option[i].value);
+            gtk_table_attach_defaults(GTK_TABLE(table), graph, left, left+3, top, top+1);
+
+#ifdef TODO_GTK
+           XtAddEventHandler(last, ExposureMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask, False,
+                     (XtEventHandler) GraphEventProc, &option[i]); // mandatory user-supplied expose handler
+           if(option[i].min & SAME_ROW) last = forelast, forelast = lastrow;
+#endif
+           option[i].choice = (char**) cairo_image_surface_create (CAIRO_FORMAT_ARGB32, option[i].max, option[i].value); // image buffer
+           break;
+#ifdef TODO_GTK
+         case Graph:
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  option[i].max /* w */, option[i].value /* h */, option[i].min /* chain */);
+           option[i].handle = (void*)
+               (last = XtCreateManagedWidget("graph", widgetClass, form, args, j));
+           XtAddEventHandler(last, ExposureMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask, False,
+                     (XtEventHandler) GraphEventProc, &option[i]); // mandatory user-supplied expose handler
+           if(option[i].min & SAME_ROW) last = forelast, forelast = lastrow;
+           option[i].choice = (char**) cairo_image_surface_create (CAIRO_FORMAT_ARGB32, option[i].max, option[i].value); // image buffer
+           break;
+         case PopUp: // note: used only after Graph, so 'last' refers to the Graph widget
+           option[i].handle = (void*) CreateComboPopup(last, option + i, i + 256*dlgNr, TRUE, option[i].value);
+           break;
+         case BoxBegin:
+           if(option[i].min & SAME_ROW) forelast = lastrow;
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  0 /* w */, 0 /* h */, option[i].min /* chain */);
+           XtSetArg(args[j], XtNorientation, XtorientHorizontal);  j++;
+           XtSetArg(args[j], XtNvSpace, 0);                        j++;
+           option[box=i].handle = (void*)
+               (last = XtCreateWidget("box", boxWidgetClass, form, args, j));
+           oldForm = form; form = last; oldLastRow = lastrow; oldForeLast = forelast;
+           lastrow = NULL; last = NULL;
+           break;
+#endif
+         case DropDown:
+           msg = _(option[i].name); // write name on the menu button
+//         XtSetArg(args[j], XtNmenuName, XtNewString(option[i].name));  j++;
+//         XtSetArg(args[j], XtNlabel, msg);  j++;
+           option[i].handle = (void*)
+               (menuButton = gtk_menu_item_new_with_label(msg));
+           gtk_widget_show(menuButton);
+           option[i].textValue = (char*) (menu = CreateMenuPopup(option + i, i + 256*dlgNr, -1));
+           gtk_menu_item_set_submenu(GTK_MENU_ITEM (menuButton), menu);
+           gtk_menu_bar_append (GTK_MENU_BAR (menuBar), menuButton);
+
+           break;
+         case BarBegin:
+           menuBar = gtk_menu_bar_new ();
+           gtk_widget_show (menuBar);
+         case BoxBegin:
+           boxStart = i;
+           break;
+         case BarEnd:
+            gtk_table_attach_defaults(GTK_TABLE(table), menuBar, left, left+1, top, top+1);
+         case BoxEnd:
+//         XtManageChildren(&form, 1);
+//         SqueezeIntoBox(&option[boxStart], i-boxStart, option[boxStart].max);
+           if(option[i].target) ((ButtonCallback*)option[i].target)(boxStart); // callback that can make sizing decisions
+           break;
+         case Break:
+            top = height; // force next option to start in a new column
+            break; 
+       default:
+           printf("GenericPopUp: unexpected case in switch. i=%d type=%d name=%s.\n", i, option[i].type, option[i].name);
+           break;
+       }        
+    }
 
-    currentOption = dialogOptions[data>>16]; data &= 0xFFFF;
+    gtk_box_pack_start (GTK_BOX (GTK_DIALOG (dialog)->vbox),
+                        table, TRUE, TRUE, 0);    
 
-    XtSetArg(args[0], XtNlabel, &name);
-    XtGetValues(w, args, 1);
+    /* Show dialog */
+    gtk_widget_show_all( dialog );    
 
-    if (strcmp(name, _("cancel")) == 0) {
-        PopDown(data);
-        return;
-    }
-    if (strcmp(name, _("OK")) == 0) { // save buttons imply OK
-        if(GenericReadout(-1)) PopDown(data);
-        return;
+    /* hide OK/cancel buttons */
+    if((option[i].min & 2)) {
+        actionarea = gtk_dialog_get_action_area(GTK_DIALOG(dialog));
+        gtk_widget_hide(actionarea);
     }
-    if(currentCps) {
-       if(currentOption[data].type == SaveButton) GenericReadout(-1);
-       snprintf(buf, MSG_SIZ,  "option %s\n", name);
-       SendToProgram(buf, currentCps);
-    } else ((ButtonCallback*) currentOption[data].target)(data);
-}
 
-static char *oneLiner  = "<Key>Return: redraw-display()\n";
-
-int
-GenericPopUp(Option *option, char *title, int dlgNr)
-{
-    Arg args[16];
-    Widget popup, layout, dialog=NULL, edit=NULL, form,  last, b_ok, b_cancel, leftMargin = NULL, textField = NULL;
+    g_signal_connect (dialog, "response",
+                      G_CALLBACK (GenericPopUpCallback),
+                      (gpointer)(intptr_t) (dlgNr<<16 | i));
+    g_signal_connect (dialog, "delete-event",
+                      G_CALLBACK (GenericPopDown),
+                      (gpointer)(intptr_t) dlgNr);
+    shellUp[dlgNr]++;
+
+#ifdef TODO_GTK
+    Arg args[24];
+    Widget popup, layout, dialog=NULL, edit=NULL, form,  last, b_ok, b_cancel, previousPane = NULL, textField = NULL, oldForm, oldLastRow, oldForeLast;
     Window root, child;
-    int x, y, i, j, height=999, width=1, h, c, w;
+    int x, y, i, j, height=999, width=1, h, c, w, shrink=FALSE, stack = 0, box, chain;
     int win_x, win_y, maxWidth, maxTextWidth;
     unsigned int mask;
-    char def[MSG_SIZ], *msg;
+    char def[MSG_SIZ], *msg, engineDlg = (currentCps != NULL && dlgNr != BrowserDlg);
     static char pane[6] = "paneX";
-    Widget texts[100], forelast = NULL, anchor, widest, lastrow = NULL;
+    Widget texts[100], forelast = NULL, anchor, widest, lastrow = NULL, browse = NULL;
+    Dimension bWidth = 50;
 
-    if(shellUp[dlgNr]) return 0; // already up         
-    if(dlgNr && shells[dlgNr]) {
+    if(dlgNr < PromoDlg && shellUp[dlgNr]) return 0; // already up
+    if(dlgNr && dlgNr < PromoDlg && shells[dlgNr]) { // reusable, and used before (but popped down)
        XtPopup(shells[dlgNr], XtGrabNone);
        shellUp[dlgNr] = True;
        return 0;
@@ -949,9 +1400,8 @@ GenericPopUp(Option *option, char *title, int dlgNr)
     // WARNING: this kludge does not work for persistent dialogs, so that these cannot have spin or combo controls!
     currentOption = option;
 
-    if(currentCps) { // Settings popup for engine: format through heuristic
+    if(engineDlg) { // Settings popup for engine: format through heuristic
        int n = currentCps->nrOptions;
-       if(!n) { DisplayNote(_("Engine has no options")); currentCps = NULL; return 0; }
        if(n > 50) width = 4; else if(n>24) width = 2; else width = 1;
        height = n / width + 1;
        if(n && (currentOption[n-1].type == Button || currentOption[n-1].type == SaveButton)) currentOption[n].min = SAME_ROW; // OK on same line
@@ -959,27 +1409,36 @@ GenericPopUp(Option *option, char *title, int dlgNr)
     }
      i = 0;
     XtSetArg(args[i], XtNresizable, True); i++;
+    shells[BoardWindow] = shellWidget; parents[dlgNr] = parent;
+
+    if(dlgNr == BoardWindow) popup = shellWidget; else
     popup = shells[dlgNr] =
-      XtCreatePopupShell(title, transientShellWidgetClass,
-                        shellWidget, args, i);
+      XtCreatePopupShell(title, !top || !appData.topLevel ? transientShellWidgetClass : topLevelShellWidgetClass,
+                                                           shells[parent], args, i);
 
     layout =
       XtCreateManagedWidget(layoutName, formWidgetClass, popup,
                            layoutArgs, XtNumber(layoutArgs));
+    if(!appData.monoMode && appData.dialogColor[0]) XtSetArg(args[0], XtNbackground, dialogColor);
+    XtSetValues(layout, args, 1);
+
   for(c=0; c<width; c++) {
     pane[4] = 'A'+c;
     form =
       XtCreateManagedWidget(pane, formWidgetClass, layout,
                            formArgs, XtNumber(formArgs));
     j=0;
-    XtSetArg(args[j], XtNfromHoriz, leftMargin);  j++;
+    XtSetArg(args[j], stack ? XtNfromVert : XtNfromHoriz, previousPane);  j++;
+    if(!appData.monoMode && appData.dialogColor[0]) XtSetArg(args[j], XtNbackground, dialogColor),  j++;
     XtSetValues(form, args, j);
-    leftMargin = form;
+    lastrow = forelast = NULL;
+    previousPane = form;
 
     last = widest = NULL; anchor = lastrow;
-    for(h=0; h<height; h++) {
+    for(h=0; h<height || c == width-1; h++) {
        i = h + c*height;
        if(option[i].type == EndMark) break;
+       if(option[i].type == -1) continue;
        lastrow = forelast;
        forelast = last;
        switch(option[i].type) {
@@ -988,123 +1447,117 @@ GenericPopUp(Option *option, char *title, int dlgNr)
            option[i].value = *(float*)option[i].target;
            goto tBox;
          case Spin:
-           if(!currentCps) option[i].value = *(int*)option[i].target;
+           if(!engineDlg) option[i].value = *(int*)option[i].target;
            snprintf(def, MSG_SIZ,  "%d", option[i].value);
          case TextBox:
          case FileName:
          case PathName:
           tBox:
-           if(option[i].name[0]) {
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
-           XtSetArg(args[j], XtNright, XtChainLeft); j++;
-           XtSetArg(args[j], XtNborderWidth, 0);  j++;
-           XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
-           XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
-           texts[h] =
-           dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
-           } else texts[h] = dialog = NULL;
+           if(option[i].name[0]) { // prefixed by label with option name
+               j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                      0 /* w */, textHeight /* h */, 0xC0 /* chain to left edge */);
+               XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
+               XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
+               texts[h] = dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
+           } else texts[h] = dialog = NULL; // kludge to position from left margin
            w = option[i].type == Spin || option[i].type == Fractional ? 70 : option[i].max ? option[i].max : 205;
            if(option[i].type == FileName || option[i].type == PathName) w -= 55;
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
-           XtSetArg(args[j], XtNborderWidth, 1); j++;
-           XtSetArg(args[j], XtNwidth, w); j++;
-           if(option[i].type == TextBox && option[i].min) {
-               XtSetArg(args[j], XtNheight, option[i].min); j++;
-               if(option[i].value & 1) { XtSetArg(args[j], XtNscrollVertical, XawtextScrollAlways);  j++; }
-               if(option[i].value & 2) { XtSetArg(args[j], XtNscrollHorizontal, XawtextScrollAlways);  j++; }
-               if(option[i].value & 4) { XtSetArg(args[j], XtNautoFill, True);  j++; }
-               if(option[i].value & 8) { XtSetArg(args[j], XtNwrap, XawtextWrapWord); j++; }
-           }
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
+           j = SetPositionAndSize(args, dialog, last, 1 /* border */,
+                                  w /* w */, option[i].type == TextBox ? option[i].value : 0 /* h */, 0x91 /* chain full width */);
+           if(option[i].type == TextBox) { // decorations for multi-line text-edits
+               if(option[i].min & T_VSCRL) { XtSetArg(args[j], XtNscrollVertical, XawtextScrollAlways);  j++; }
+               if(option[i].min & T_HSCRL) { XtSetArg(args[j], XtNscrollHorizontal, XawtextScrollAlways);  j++; }
+               if(option[i].min & T_FILL)  { XtSetArg(args[j], XtNautoFill, True);  j++; }
+               if(option[i].min & T_WRAP)  { XtSetArg(args[j], XtNwrap, XawtextWrapWord); j++; }
+               if(option[i].min & T_TOP)   { XtSetArg(args[j], XtNtop, XtChainTop); j++;
+                   if(!option[i].value) {    XtSetArg(args[j], XtNbottom, XtChainTop); j++;
+                                             XtSetValues(dialog, args+j-2, 2);
+                   }
+               }
+           } else shrink = TRUE;
            XtSetArg(args[j], XtNeditType, XawtextEdit);  j++;
            XtSetArg(args[j], XtNuseStringInPlace, False);  j++;
            XtSetArg(args[j], XtNdisplayCaret, False);  j++;
-           XtSetArg(args[j], XtNright, XtChainRight);  j++;
            XtSetArg(args[j], XtNresizable, True);  j++;
            XtSetArg(args[j], XtNinsertPosition, 9999);  j++;
            XtSetArg(args[j], XtNstring, option[i].type==Spin || option[i].type==Fractional ? def : 
-                               currentCps ? option[i].textValue : *(char**)option[i].target);  j++;
+                               engineDlg ? option[i].textValue : *(char**)option[i].target);  j++;
            edit = last;
            option[i].handle = (void*)
                (textField = last = XtCreateManagedWidget("text", asciiTextWidgetClass, form, args, j));
-           XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup);
+           XtAddEventHandler(last, ButtonPressMask, False, SetFocus, (XtPointer) popup); // gets focus on mouse click
            if(option[i].min == 0 || option[i].type != TextBox)
-               XtOverrideTranslations(last, XtParseTranslationTable(oneLiner));
+               XtOverrideTranslations(last, XtParseTranslationTable(oneLiner)); // standard handler for <Enter> and <Tab>
 
            if(option[i].type == TextBox || option[i].type == Fractional) break;
 
            // add increment and decrement controls for spin
-           j=0;
-           XtSetArg(args[j], XtNfromVert, edit);  j++;
-           XtSetArg(args[j], XtNfromHoriz, last);  j++;
-           XtSetArg(args[j], XtNleft, XtChainRight); j++;
-           XtSetArg(args[j], XtNright, XtChainRight); j++;
            if(option[i].type == FileName || option[i].type == PathName) {
-               msg = _("browse");
-               /* automatically scale to width of text */
-               XtSetArg(args[j], XtNwidth, (XtArgVal) NULL );  j++;
+               msg = _("browse"); w = 0; // automatically scale to width of text
+               j = textHeight ? textHeight : 0;
            } else {
-               w = 20; msg = "+";
-               XtSetArg(args[j], XtNheight, 10);  j++;
-               XtSetArg(args[j], XtNwidth,   w);  j++;
+               w = 20; msg = "+"; j = textHeight/2; // spin button
            }
+           j = SetPositionAndSize(args, last, edit, 3 /* border */,
+                                  w /* w */, j /* h */, 0x31 /* chain to right edge */);
            edit = XtCreateManagedWidget(msg, commandWidgetClass, form, args, j);
-           XtAddCallback(edit, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i);
+           XtAddCallback(edit, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i + 256*dlgNr);
+           if(w == 0) browse = edit;
 
            if(option[i].type != Spin) break;
 
-           j=0;
-           XtSetArg(args[j], XtNfromVert, edit);  j++;
-           XtSetArg(args[j], XtNfromHoriz, last);  j++;
-           XtSetArg(args[j], XtNheight, 10);  j++;
-           XtSetArg(args[j], XtNwidth, 20);  j++;
-           XtSetArg(args[j], XtNleft, XtChainRight); j++;
-           XtSetArg(args[j], XtNright, XtChainRight); j++;
+           j = SetPositionAndSize(args, last, edit, 3 /* border */,
+                                  20 /* w */, textHeight/2 /* h */, 0x31 /* chain to right edge */);
+           XtSetArg(args[j], XtNvertDistance, -1);  j++;
            last = XtCreateManagedWidget("-", commandWidgetClass, form, args, j);
-           XtAddCallback(last, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i);
+           XtAddCallback(last, XtNcallback, SpinCallback, (XtPointer)(intptr_t) i + 256*dlgNr);
            break;
          case CheckBox:
-           if(!currentCps) option[i].value = *(Boolean*)option[i].target;
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNwidth, 10);  j++;
-           XtSetArg(args[j], XtNheight, 10);  j++;
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
-           XtSetArg(args[j], XtNright, XtChainLeft); j++;
+           if(!engineDlg) option[i].value = *(Boolean*)option[i].target; // where checkbox callback uses it
+           j = SetPositionAndSize(args, last, lastrow, 1 /* border */,
+                                  textHeight/2 /* w */, textHeight/2 /* h */, 0xC0 /* chain both to left edge */);
+           XtSetArg(args[j], XtNvertDistance, (textHeight+2)/4 + 3);  j++;
            XtSetArg(args[j], XtNstate, option[i].value);  j++;
+           lastrow  = last;
            option[i].handle = (void*)
-               (dialog = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
+               (last = XtCreateManagedWidget(" ", toggleWidgetClass, form, args, j));
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  option[i].max /* w */, textHeight /* h */, 0xC1 /* chain */);
+           XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
+           XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
+           last = XtCreateManagedWidget("label", commandWidgetClass, form, args, j);
+           // make clicking the text toggle checkbox
+           XtAddEventHandler(last, ButtonPressMask, False, CheckCallback, (XtPointer)(intptr_t) i + 256*dlgNr);
+           shrink = TRUE; // following buttons must get text height
+           break;
          case Label:
            msg = option[i].name;
-           if(*msg == NULLCHAR) msg = option[i].textValue;
            if(!msg) break;
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNfromHoriz, option[i].type != Label ? dialog : NULL);  j++;
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
-           XtSetArg(args[j], XtNborderWidth, 0);  j++;
+           chain = option[i].min;
+           if(chain & SAME_ROW) forelast = lastrow; else shrink = FALSE;
+           j = SetPositionAndSize(args, last, lastrow, (chain & 2) != 0 /* border */,
+                                  option[i].max /* w */, shrink ? textHeight : 0 /* h */, chain | 2 /* chain */);
+#if ENABLE_NLS
+           if(option[i].choice) XtSetArg(args[j], XtNfontSet, *(XFontSet*)option[i].choice), j++;
+#else
+           if(option[i].choice) XtSetArg(args[j], XtNfont, (XFontStruct*)option[i].choice), j++;
+#endif
+           XtSetArg(args[j], XtNresizable, False);  j++;
            XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
            XtSetArg(args[j], XtNlabel, _(msg));  j++;
-           last = XtCreateManagedWidget(msg, labelWidgetClass, form, args, j);
-           if(option[i].type == CheckBox)
-               XtAddEventHandler(last, ButtonPressMask, False, CheckCallback, (XtPointer)(intptr_t) i);
+           option[i].handle = (void*) (last = XtCreateManagedWidget("label", labelWidgetClass, form, args, j));
+           if(option[i].target) // allow user to specify event handler for button presses
+               XtAddEventHandler(last, ButtonPressMask, False, CheckCallback, (XtPointer)(intptr_t) i + 256*dlgNr);
            break;
          case SaveButton:
          case Button:
-           j=0;
            if(option[i].min & SAME_ROW) {
-               XtSetArg(args[j], XtNfromVert, lastrow);  j++;
-               XtSetArg(args[j], XtNfromHoriz, last);  j++;
-           } else {
-               XtSetArg(args[j], XtNfromVert, last);  j++;
-               XtSetArg(args[j], XtNfromHoriz, NULL);  j++; lastrow = forelast;
-           }
+               chain = 0x31; // 0011.0001 = both left and right side to right edge
+               forelast = lastrow;
+           } else chain = 0, shrink = FALSE;
+           j = SetPositionAndSize(args, last, lastrow, 3 /* border */,
+                                  option[i].max /* w */, shrink ? textHeight : 0 /* h */, option[i].min & 0xE | chain /* chain */);
            XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
-           if(option[i].max) { XtSetArg(args[j], XtNwidth, option[i].max);  j++; }
            if(option[i].textValue) { // special for buttons of New Variant dialog
                XtSetArg(args[j], XtNsensitive, appData.noChessProgram || option[i].value < 0
                                         || strstr(first.variants, VariantName(option[i].value))); j++;
@@ -1112,46 +1565,102 @@ GenericPopUp(Option *option, char *title, int dlgNr)
            }
            option[i].handle = (void*)
                (dialog = last = XtCreateManagedWidget(option[i].name, commandWidgetClass, form, args, j));
-           if(option[i].choice && ((char*)option[i].choice)[0] == '#' && !currentCps) {
+           if(option[i].choice && ((char*)option[i].choice)[0] == '#' && !engineDlg) { // for the color picker default-reset
                SetColor( *(char**) option[i-1].target, &option[i]);
                XtAddEventHandler(option[i-1].handle, KeyReleaseMask, False, ColorChanged, (XtPointer)(intptr_t) i-1);
            }
-           XtAddCallback(last, XtNcallback, GenericCallback,
-                         (XtPointer)(intptr_t) i + (dlgNr<<16));
-           if(option[i].textValue) SetColor( option[i].textValue, &option[i]);
-           forelast = lastrow; // next button can go on same row
+           XtAddCallback(last, XtNcallback, GenericCallback, (XtPointer)(intptr_t) i + (dlgNr<<16)); // invokes user callback
+           if(option[i].textValue) SetColor( option[i].textValue, &option[i]); // for new-variant buttons
            break;
          case ComboBox:
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
-           XtSetArg(args[j], XtNright, XtChainLeft); j++;
-           XtSetArg(args[j], XtNborderWidth, 0);  j++;
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  0 /* w */, textHeight /* h */, 0xC0 /* chain both sides to left edge */);
            XtSetArg(args[j], XtNjustify, XtJustifyLeft);  j++;
            XtSetArg(args[j], XtNlabel, _(option[i].name));  j++;
            texts[h] = dialog = XtCreateManagedWidget(option[i].name, labelWidgetClass, form, args, j);
 
-           if(currentCps) option[i].choice = (char**) option[i].textValue; else {
-             for(j=0; option[i].choice[j]; j++)
-               if(*(char**)option[i].target && !strcmp(*(char**)option[i].target, option[i].choice[j])) break;
-             option[i].value = j + (option[i].choice[j] == NULL);
+           if(option[i].min & COMBO_CALLBACK) msg = _(option[i].name); else {
+             if(!engineDlg) SetCurrentComboSelection(option+i);
+             msg=_(((char**)option[i].choice)[option[i].value]);
            }
 
-           j=0;
-           XtSetArg(args[j], XtNfromVert, last);  j++;
-           XtSetArg(args[j], XtNfromHoriz, dialog);  j++;
-           XtSetArg(args[j], XtNwidth, option[i].max && !currentCps ? option[i].max : 100);  j++;
-           XtSetArg(args[j], XtNleft, XtChainLeft); j++;
+           j = SetPositionAndSize(args, dialog, last, (option[i].min & 2) == 0 /* border */,
+                                  option[i].max && !engineDlg ? option[i].max : 100 /* w */,
+                                  textHeight /* h */, 0x91 /* chain */); // same row as its label!
            XtSetArg(args[j], XtNmenuName, XtNewString(option[i].name));  j++;
-           XtSetArg(args[j], XtNlabel, _(((char**)option[i].textValue)[option[i].value]));  j++;
+           XtSetArg(args[j], XtNlabel, msg);  j++;
+           shrink = TRUE;
            option[i].handle = (void*)
                (last = XtCreateManagedWidget(" ", menuButtonWidgetClass, form, args, j));
-           CreateComboPopup(last, option + i, i);
+           CreateComboPopup(last, option + i, i + 256*dlgNr, TRUE, -1);
            values[i] = option[i].value;
            break;
+         case ListBox:
+           // Listbox goes in viewport, as needed for game list
+           if(option[i].min & SAME_ROW) forelast = lastrow;
+           j = SetPositionAndSize(args, last, lastrow, 1 /* border */,
+                                  option[i].max /* w */, option[i].value /* h */, option[i].min /* chain */);
+           XtSetArg(args[j], XtNresizable, False);  j++;
+           XtSetArg(args[j], XtNallowVert, True); j++; // scoll direction
+           last =
+             XtCreateManagedWidget("viewport", viewportWidgetClass, form, args, j);
+           j = 0; // now list itself
+           XtSetArg(args[j], XtNdefaultColumns, 1);  j++;
+           XtSetArg(args[j], XtNforceColumns, True);  j++;
+           XtSetArg(args[j], XtNverticalList, True);  j++;
+           option[i].handle = (void*)
+               (edit = XtCreateManagedWidget("list", listWidgetClass, last, args, j));
+           XawListChange(option[i].handle, option[i].target, 0, 0, True);
+           XawListHighlight(option[i].handle, 0);
+           scrollTranslations[25] = '0' + i;
+           scrollTranslations[27] = 'A' + dlgNr;
+           XtOverrideTranslations(edit, XtParseTranslationTable(scrollTranslations)); // for mouse-wheel
+           break;
+         case Graph:
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  option[i].max /* w */, option[i].value /* h */, option[i].min /* chain */);
+           option[i].handle = (void*)
+               (last = XtCreateManagedWidget("graph", widgetClass, form, args, j));
+           XtAddEventHandler(last, ExposureMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask, False,
+                     (XtEventHandler) GraphEventProc, &option[i]); // mandatory user-supplied expose handler
+           if(option[i].min & SAME_ROW) last = forelast, forelast = lastrow;
+           option[i].choice = (char**) cairo_image_surface_create (CAIRO_FORMAT_ARGB32, option[i].max, option[i].value); // image buffer
+           break;
+         case PopUp: // note: used only after Graph, so 'last' refers to the Graph widget
+           option[i].handle = (void*) CreateComboPopup(last, option + i, i + 256*dlgNr, TRUE, option[i].value);
+           break;
+         case BoxBegin:
+           if(option[i].min & SAME_ROW) forelast = lastrow;
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  0 /* w */, 0 /* h */, option[i].min /* chain */);
+           XtSetArg(args[j], XtNorientation, XtorientHorizontal);  j++;
+           XtSetArg(args[j], XtNvSpace, 0);                        j++;
+           option[box=i].handle = (void*)
+               (last = XtCreateWidget("box", boxWidgetClass, form, args, j));
+           oldForm = form; form = last; oldLastRow = lastrow; oldForeLast = forelast;
+           lastrow = NULL; last = NULL;
+           break;
+         case DropDown:
+           j = SetPositionAndSize(args, last, lastrow, 0 /* border */,
+                                  0 /* w */, 0 /* h */, 1 /* chain (always on same row) */);
+           forelast = lastrow;
+           msg = _(option[i].name); // write name on the menu button
+           XtSetArg(args[j], XtNmenuName, XtNewString(option[i].name));  j++;
+           XtSetArg(args[j], XtNlabel, msg);  j++;
+           option[i].handle = (void*)
+               (last = XtCreateManagedWidget(option[i].name, menuButtonWidgetClass, form, args, j));
+           option[i].textValue = (char*) CreateComboPopup(last, option + i, i + 256*dlgNr, FALSE, -1);
+           break;
+         case BoxEnd:
+           XtManageChildren(&form, 1);
+           SqueezeIntoBox(&option[box], i-box, option[box].max);
+           if(option[i].target) ((ButtonCallback*)option[i].target)(box); // callback that can make sizing decisions
+           last = form; lastrow = oldLastRow; form = oldForm; forelast = oldForeLast;
+           break;
          case Break:
            width++;
            height = i+1;
+           stack = !(option[i].min & SAME_ROW);
            break;
        default:
            printf("GenericPopUp: unexpected case in switch.\n");
@@ -1161,7 +1670,12 @@ GenericPopUp(Option *option, char *title, int dlgNr)
 
     // make an attempt to align all spins and textbox controls
     maxWidth = maxTextWidth = 0;
-    for(h=0; h<height; h++) {
+    if(browse != NULL) {
+       j=0;
+       XtSetArg(args[j], XtNwidth, &bWidth);  j++;
+       XtGetValues(browse, args, j);
+    }
+    for(h=0; h<height || c == width-1; h++) {
        i = h + c*height;
        if(option[i].type == EndMark) break;
        if(option[i].type == Spin || option[i].type == TextBox || option[i].type == ComboBox
@@ -1183,7 +1697,7 @@ GenericPopUp(Option *option, char *title, int dlgNr)
     if(maxTextWidth + 110 < maxWidth)
         maxTextWidth = maxWidth - 110;
     else maxWidth = maxTextWidth + 110;
-    for(h=0; h<height; h++) {
+    for(h=0; h<height || c == width-1; h++) {
        i = h + c*height;
        if(option[i].type == EndMark) break;
        if(!texts[h]) continue; // Note: texts[h] can be undefined (giving errors in valgrind), but then both if's below will be false.
@@ -1195,54 +1709,59 @@ GenericPopUp(Option *option, char *title, int dlgNr)
        if(option[i].type == TextBox || option[i].type == ComboBox || option[i].type == PathName || option[i].type == FileName) {
            XtSetArg(args[j], XtNwidth, maxTextWidth);  j++;
            XtSetValues(texts[h], args, j);
+           if(bWidth != 50 && (option[i].type == FileName || option[i].type == PathName)) {
+               int tWidth = (option[i].max ? option[i].max : 205) - 5 - bWidth;
+               j = 0;
+               XtSetArg(args[j], XtNwidth, tWidth);  j++;
+               XtSetValues(option[i].handle, args, j);
+           }
        }
     }
   }
 
-  if(!(option[i].min & NO_OK)) {
-    j=0;
-    if(option[i].min & SAME_ROW) {
-       for(j=i-1; option[j+1].min & SAME_ROW && option[j].type == Button; j--) {
+    if(option[i].min & SAME_ROW) { // even when OK suppressed this EndMark bit can request chaining of last row to bottom
+       for(j=i-1; option[j+1].min & SAME_ROW; j--) {
            XtSetArg(args[0], XtNtop, XtChainBottom);
            XtSetArg(args[1], XtNbottom, XtChainBottom);
            XtSetValues(option[j].handle, args, 2);
        }
-       if(option[j].type == TextBox && option[j].name[0] == NULLCHAR) {
+       if((option[j].type == TextBox || option[j].type == ListBox) && option[j].name[0] == NULLCHAR) {
+           Widget w = option[j].handle;
+           if(option[j].type == ListBox) w = XtParent(w); // for listbox we must chain viewport
            XtSetArg(args[0], XtNbottom, XtChainBottom);
-           XtSetValues(option[j].handle, args, 1);
+           XtSetValues(w, args, 1);
        }
-       j = 0;
-       XtSetArg(args[j], XtNfromHoriz, last); last = forelast;
-    } else
-    XtSetArg(args[j], XtNfromHoriz, widest ? widest : dialog);  j++;
-    XtSetArg(args[j], XtNfromVert, anchor ? anchor : last);  j++;
-    XtSetArg(args[j], XtNbottom, XtChainBottom);  j++;
-    XtSetArg(args[j], XtNtop, XtChainBottom);  j++;
-    XtSetArg(args[j], XtNleft, XtChainRight);  j++;
-    XtSetArg(args[j], XtNright, XtChainRight);  j++;
-    b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
-    XtAddCallback(b_ok, XtNcallback, GenericCallback, (XtPointer)(intptr_t) dlgNr + (dlgNr<<16));
-
-    XtSetArg(args[0], XtNfromHoriz, b_ok);
-    b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
-    XtAddCallback(b_cancel, XtNcallback, GenericCallback, (XtPointer)(intptr_t) dlgNr);
+       lastrow = forelast;
+    } else shrink = FALSE, lastrow = last, last = widest ? widest : dialog;
+    j = SetPositionAndSize(args, last, anchor ? anchor : lastrow, 3 /* border */,
+                          0 /* w */, shrink ? textHeight : 0 /* h */, 0x37 /* chain: right, bottom and use both neighbors */);
+
+  if(!(option[i].min & NO_OK)) {
+    option[i].handle = b_ok = XtCreateManagedWidget(_("OK"), commandWidgetClass, form, args, j);
+    XtAddCallback(b_ok, XtNcallback, GenericCallback, (XtPointer)(intptr_t) (30001 + (dlgNr<<16)));
+    if(!(option[i].min & NO_CANCEL)) {
+      XtSetArg(args[1], XtNfromHoriz, b_ok); // overwrites!
+      b_cancel = XtCreateManagedWidget(_("cancel"), commandWidgetClass, form, args, j);
+      XtAddCallback(b_cancel, XtNcallback, GenericCallback, (XtPointer)(intptr_t) (30000 + (dlgNr<<16)));
+    }
   }
 
     XtRealizeWidget(popup);
-    XSetWMProtocols(xDisplay, XtWindow(popup), &wm_delete_window, 1);
-    snprintf(def, MSG_SIZ, "<Message>WM_PROTOCOLS: GenericPopDown(\"%d\") \n", dlgNr);
-    XtAugmentTranslations(popup, XtParseTranslationTable(def));
-    XQueryPointer(xDisplay, xBoardWindow, &root, &child,
-                 &x, &y, &win_x, &win_y, &mask);
-
-    XtSetArg(args[0], XtNx, x - 10);
-    XtSetArg(args[1], XtNy, y - 30);
-    XtSetValues(popup, args, 2);
-
-    XtPopup(popup, dlgNr ? XtGrabNone : XtGrabExclusive);
-    shellUp[dlgNr] = True;
+    if(dlgNr != BoardWindow) { // assign close button, and position w.r.t. pointer, if not main window
+       XSetWMProtocols(xDisplay, XtWindow(popup), &wm_delete_window, 1);
+       snprintf(def, MSG_SIZ, "<Message>WM_PROTOCOLS: GenericPopDown(\"%d\") \n", dlgNr);
+       XtAugmentTranslations(popup, XtParseTranslationTable(def));
+       XQueryPointer(xDisplay, xBoardWindow, &root, &child,
+                       &x, &y, &win_x, &win_y, &mask);
+
+       XtSetArg(args[0], XtNx, x - 10);
+       XtSetArg(args[1], XtNy, y - 30);
+       XtSetValues(popup, args, 2);
+    }
+    XtPopup(popup, modal ? XtGrabExclusive : XtGrabNone);
+    shellUp[dlgNr]++; // count rather than flag
     previous = NULL;
-    if(textField)SetFocus(textField, popup, (XEvent*) NULL, False);
+    if(textField) SetFocus(textField, popup, (XEvent*) NULL, False);
     if(dlgNr && wp[dlgNr] && wp[dlgNr]->width > 0) { // if persistent window-info available, reposition
        j = 0;
        XtSetArg(args[j], XtNheight, (Dimension) (wp[dlgNr]->height));  j++;
@@ -1251,132 +1770,16 @@ GenericPopUp(Option *option, char *title, int dlgNr)
        XtSetArg(args[j], XtNy, (Position) (wp[dlgNr]->y));  j++;
        XtSetValues(popup, args, j);
     }
-    return 1;
-}
-
-
-void IcsOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   GenericPopUp(icsOptions, _("ICS Options"), 0);
-}
-
-void LoadOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   ASSIGN(searchMode, modeValues[appData.searchMode-1]);
-   GenericPopUp(loadOptions, _("Load Game Options"), 0);
-}
-
-void SaveOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   GenericPopUp(saveOptions, _("Save Game Options"), 0);
-}
-
-void SoundOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   free(soundFiles[2]);
-   soundFiles[2] = strdup("*");
-   GenericPopUp(soundOptions, _("Sound Options"), 0);
-}
-
-void BoardOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   GenericPopUp(boardOptions, _("Board Options"), 0);
-}
-
-void EngineMenuProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   GenericPopUp(adjudicationOptions, _("Adjudicate non-ICS Games"), 0);
-}
-
-void UciMenuProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   oldCores = appData.smpCores;
-   oldPonder = appData.ponderNextMove;
-   GenericPopUp(commonEngineOptions, _("Common Engine Settings"), 0);
-}
-
-void NewVariantProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   GenericPopUp(variantDescriptors, _("New Variant"), 0);
-}
-
-void OptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   oldPonder = appData.ponderNextMove;
-   GenericPopUp(generalOptions, _("General Options"), 0);
-}
-
-void MatchOptionsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   NamesToList(firstChessProgramNames, engineList, engineMnemonic);
-   comboCallback = &AddToTourney;
-   matchOptions[5].min = -(appData.pairingEngine[0] != NULLCHAR); // with pairing engine, allow Swiss
-   ASSIGN(tfName, appData.tourneyFile[0] ? appData.tourneyFile : MakeName(appData.defName));
-   ASSIGN(engineName, appData.participants);
-   GenericPopUp(matchOptions, _("Match Options"), 0);
-}
-
-Option textOptions[100];
-void PutText P((char *text, int pos));
-
-void SendString(char *p)
-{
-    char buf[MSG_SIZ], *q;
-    if(q = strstr(p, "$input")) {
-       if(!shellUp[4]) return;
-       strncpy(buf, p, MSG_SIZ);
-       strncpy(buf + (q-p), q+6, MSG_SIZ-(q-p));
-       PutText(buf, q-p);
-       return;
-    }
-    snprintf(buf, MSG_SIZ, "%s\n", p);
-    SendToICS(buf);
+    RaiseWindow(dlgNr);
+#endif
+    return 1; // tells caller he must do initialization (e.g. add specific event handlers)
 }
 
 /* function called when the data to Paste is ready */
+#ifdef TODO_GTK
 static void
-SendTextCB(Widget w, XtPointer client_data, Atom *selection,
-          Atom *type, XtPointer value, unsigned long *len, int *format)
+SendTextCB (Widget w, XtPointer client_data, Atom *selection,
+           Atom *type, XtPointer value, unsigned long *len, int *format)
 {
   char buf[MSG_SIZ], *p = (char*) textOptions[(int)(intptr_t) client_data].choice, *name = (char*) value, *q;
   if (value==NULL || *len==0) return; /* nothing selected, abort */
@@ -1387,9 +1790,12 @@ SendTextCB(Widget w, XtPointer client_data, Atom *selection,
   SendString(buf);
   XtFree(value);
 }
+#endif
 
-void SendText(int n)
+void
+SendText (int n)
 {
+#ifdef TODO_GTK
     char *p = (char*) textOptions[n].choice;
     if(strstr(p, "$name")) {
        XtGetSelectionValue(menuBarWidget,
@@ -1399,424 +1805,42 @@ void SendText(int n)
          CurrentTime
        );
     } else SendString(p);
+#endif
 }
 
-void IcsTextProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   int i=0, j;
-   char *p, *q, *r;
-   if((p = icsTextMenuString) == NULL) return;
-   do {
-       q = r = p; while(*p && *p != ';') p++;
-       for(j=0; j<p-q; j++) textOptions[i].name[j] = *r++;
-       textOptions[i].name[j++] = 0;
-       if(!*p) break;
-       if(*++p == '\n') p++; // optional linefeed after button-text terminating semicolon
-       q = p;
-       textOptions[i].choice = (char**) (r = textOptions[i].name + j);
-       while(*p && (*p != ';' || p[1] != '\n')) textOptions[i].name[j++] = *p++;
-       textOptions[i].name[j++] = 0;
-       if(*p) p += 2;
-       textOptions[i].max = 135;
-       textOptions[i].min = i&1;
-       textOptions[i].handle = NULL;
-       textOptions[i].target = &SendText;
-       textOptions[i].textValue = strstr(r, "$input") ? "#80FF80" : strstr(r, "$name") ? "#FF8080" : "#FFFFFF";
-       textOptions[i].type = Button;
-   } while(++i < 99 && *p);
-   if(i == 0) return;
-   textOptions[i].type = EndMark;
-   textOptions[i].target = NULL;
-   textOptions[i].min = 2;
-   MarkMenu("menuView.ICStex", 3);
-   GenericPopUp(textOptions, _("ICS text menu"), 3);
-}
-
-static char *commentText;
-static int commentIndex;
-void ClearComment P((int n));
-extern char commentTranslations[];
-
-int NewComCallback(int n)
-{
-    ReplaceComment(commentIndex, commentText);
-    return 1;
-}
-
-void SaveChanges(int n)
-{
-    GenericReadout(0);
-    ReplaceComment(commentIndex, commentText);
-}
-
-Option commentOptions[] = {
-{ 0xD, 200, 250, NULL, (void*) &commentText, "", NULL, TextBox, "" },
-{   0,  0,   50, NULL, (void*) &ClearComment, NULL, NULL, Button, N_("clear") },
-{   0,  1,  100, NULL, (void*) &SaveChanges, NULL, NULL, Button, N_("save changes") },
-{   0,  1,    0, NULL, (void*) &NewComCallback, "", NULL, EndMark , "" }
-};
-
-void ClearTextWidget(Option *opt)
-{
-//    XtCallActionProc(opt->handle, "select-all", NULL, NULL, 0);
-//    XtCallActionProc(opt->handle, "kill-selection", NULL, NULL, 0);
-    Arg arg;
-    XtSetArg(arg, XtNstring, ""); // clear without disturbing selection!
-    XtSetValues(opt->handle, &arg, 1);
-}
-
-void ClearComment(int n)
-{
-    ClearTextWidget(&commentOptions[0]);
-}
-
-void NewCommentPopup(char *title, char *text, int index)
-{
-    Arg args[16];
-
-    if(shells[1]) { // if already exists, alter title and content
-       XtSetArg(args[0], XtNtitle, title);
-       XtSetValues(shells[1], args, 1);
-       SetWidgetText(&commentOptions[0], text, 1);
-    }
-    if(commentText) free(commentText); commentText = strdup(text);
-    commentIndex = index;
-    MarkMenu("menuView.Show Comments", 1);
-    if(GenericPopUp(commentOptions, title, 1))
-       XtOverrideTranslations(commentOptions[0].handle, XtParseTranslationTable(commentTranslations));
-}
-
-static char *tagsText;
-
-int NewTagsCallback(int n)
-{
-    ReplaceTags(tagsText, &gameInfo);
-    return 1;
-}
-
-void changeTags(int n)
-{
-    GenericReadout(1);
-    if(bookUp) SaveToBook(tagsText); else
-    ReplaceTags(tagsText, &gameInfo);
-}
-
-Option tagsOptions[] = {
-{   0,  0,    0, NULL, NULL, NULL, NULL, Label,  "" },
-{ 0xD, 200, 200, NULL, (void*) &tagsText, "", NULL, TextBox, "" },
-{   0,  0,  100, NULL, (void*) &changeTags, NULL, NULL, Button, N_("save changes") },
-{   0,  1,    0, NULL, (void*) &NewTagsCallback, "", NULL, EndMark , "" }
-};
-
-void NewTagsPopup(char *text, char *msg)
-{
-    Arg args[16];
-    char *title = bookUp ? _("Edit book") : _("Tags");
-
-    if(shells[2]) { // if already exists, alter title and content
-       SetWidgetText(&tagsOptions[1], text, 2);
-       XtSetArg(args[0], XtNtitle, title);
-       XtSetValues(shells[2], args, 1);
-    }
-    if(tagsText) free(tagsText); tagsText = strdup(text);
-    tagsOptions[0].textValue = msg;
-    MarkMenu("menuView.Show Tags", 2);
-    GenericPopUp(tagsOptions, title, 2);
-}
-
-char *icsText;
-
-Option boxOptions[] = {
-{   0, 30,  400, NULL, (void*) &icsText, "", NULL, TextBox, "" },
-{   0,  3,    0, NULL, NULL, "", NULL, EndMark , "" }
-};
-
-void PutText(char *text, int pos)
+void
+SetInsertPos (Option *opt, int pos)
 {
+#ifdef TODO_GTK
     Arg args[16];
-    char buf[MSG_SIZ], *p;
-
-    if(strstr(text, "$add ") == text) {
-       GetWidgetText(&boxOptions[0], &p);
-       snprintf(buf, MSG_SIZ, "%s%s", p, text+5); text = buf;
-       pos += strlen(p) - 5;
-    }
-    SetWidgetText(&boxOptions[0], text, 4);
     XtSetArg(args[0], XtNinsertPosition, pos);
-    XtSetValues(boxOptions[0].handle, args, 1);
-//    SetFocus(boxOptions[0].handle, shells[4], NULL, False); // No idea why this does not work, and the following is needed:
-    XSetInputFocus(xDisplay, XtWindow(boxOptions[0].handle), RevertToPointerRoot, CurrentTime);
-}
-
-void InputBoxPopup()
-{
-    MarkMenu("menuView.ICS Input Box", 4);
-    if(GenericPopUp(boxOptions, _("ICS input box"), 4))
-       XtOverrideTranslations(boxOptions[0].handle, XtParseTranslationTable(ICSInputTranslations));
-}
-
-void TypeInProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-    char *val;
-
-    if(prms[0][0] == '1') {
-       GetWidgetText(&boxOptions[0], &val);
-       TypeInDoneEvent(val);
-    }
-    PopDown(0);
-}
-
-char moveTypeInTranslations[] =
-    "<Key>Return: TypeInProc(1) \n"
-    "<Key>Escape: TypeInProc(0) \n";
-
-void PopUpMoveDialog(char firstchar)
-{
-    static char buf[2];
-    buf[0] = firstchar; icsText = buf;
-    if(GenericPopUp(boxOptions, _("Type a move"), 0))
-       XtOverrideTranslations(boxOptions[0].handle, XtParseTranslationTable(moveTypeInTranslations));
-}
-
-void MoveTypeInProc(Widget widget, caddr_t unused, XEvent *event)
-{
-    char buf[10], keys[32];
-    KeySym sym;
-    KeyCode metaL, metaR, ctrlL, ctrlR;
-    int n = XLookupString(&(event->xkey), buf, 10, &sym, NULL);
-    XQueryKeymap(xDisplay,keys);
-    metaL = XKeysymToKeycode(xDisplay, XK_Meta_L);
-    metaR = XKeysymToKeycode(xDisplay, XK_Meta_R);
-    ctrlL = XKeysymToKeycode(xDisplay, XK_Control_L);
-    ctrlR = XKeysymToKeycode(xDisplay, XK_Control_R);
-    if ( n == 1 && *buf >= 32 // printable
-        && !(keys[metaL>>3]&1<<(metaL&7)) && !(keys[metaR>>3]&1<<(metaR&7)) // no alt key pressed
-        && !(keys[ctrlL>>3]&1<<(ctrlL&7)) && !(keys[ctrlR>>3]&1<<(ctrlR&7)) // no ctrl key pressed
-       )
-      {
-       if(appData.icsActive) { // text typed to board in ICS mode: divert to ICS input box
-           if(shells[4]) { // box already exists: append to current contents
-               char *p, newText[MSG_SIZ];
-               GetWidgetText(&boxOptions[0], &p);
-               snprintf(newText, MSG_SIZ, "%s%c", p, *buf);
-               SetWidgetText(&boxOptions[0], newText, 4);
-               if(shellUp[4]) XSetInputFocus(xDisplay, XtWindow(boxOptions[0].handle), RevertToPointerRoot, CurrentTime); //why???
-           } else icsText = buf; // box did not exist: make sure it pops up with char in it
-           InputBoxPopup();
-       } else PopUpMoveDialog(*buf);
-    }
+    XtSetValues(opt->handle, args, 1);
+//    SetFocus(opt->handle, shells[InputBoxDlg], NULL, False); // No idea why this does not work, and the following is needed:
+//    XSetInputFocus(xDisplay, XtWindow(opt->handle), RevertToPointerRoot, CurrentTime);
+#endif
 }
 
+#ifdef TODO_GTK
 void
-SettingsPopUp(ChessProgramState *cps)
-{
-   currentCps = cps;
-   GenericPopUp(cps->option, _("Engine Settings"), 0);
-}
-
-void FirstSettingsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-    SettingsPopUp(&first);
-}
-
-void SecondSettingsProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   if(WaitForEngine(&second, SettingsMenuIfReady)) return;
-   SettingsPopUp(&second);
-}
-
-int InstallOK(int n)
-{
-    PopDown(0); // early popdown, to allow FreezeUI to instate grab
-    if(engineChoice[0] == engineNr[0][0])  Load(&first, 0); else Load(&second, 1);
-    return 1;
-}
-
-Option installOptions[] = {
-{   0,  NO_GETTEXT, 0, NULL, (void*) &engineLine, (char*) engineMnemonic, engineList, ComboBox, N_("Select engine from list:") },
-{   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("or specify one below:") },
-{   0,  0,    0, NULL, (void*) &nickName, NULL, NULL, TextBox, N_("Nickname (optional):") },
-{   0,  0,    0, NULL, (void*) &useNick, NULL, NULL, CheckBox, N_("Use nickname in PGN player tags of engine-engine games") },
-{   0,  0,    0, NULL, (void*) &engineDir, NULL, NULL, PathName, N_("Engine Directory:") },
-{   0,  0,    0, NULL, (void*) &engineName, NULL, NULL, FileName, N_("Engine Command:") },
-{   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("(Directory will be derived from engine path when empty)") },
-{   0,  0,    0, NULL, (void*) &isUCI, NULL, NULL, CheckBox, N_("UCI") },
-{   0,  0,    0, NULL, (void*) &v1, NULL, NULL, CheckBox, N_("WB protocol v1 (do not wait for engine features)") },
-{   0,  0,    0, NULL, (void*) &hasBook, NULL, NULL, CheckBox, N_("Must not use GUI book") },
-{   0,  0,    0, NULL, (void*) &addToList, NULL, NULL, CheckBox, N_("Add this engine to the list") },
-{   0,  0,    0, NULL, (void*) &storeVariant, NULL, NULL, CheckBox, N_("Force current variant with this engine") },
-{   0,  0,    0, NULL, (void*) &engineChoice, (char*) engineNr, engineNr, ComboBox, N_("Load mentioned engine as") },
-{   0,  1,    0, NULL, (void*) &InstallOK, "", NULL, EndMark , "" }
-};
-
-void LoadEngineProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-   isUCI = storeVariant = v1 = useNick = False; addToList = hasBook = True; // defaults
-   if(engineChoice) free(engineChoice); engineChoice = strdup(engineNr[0]);
-   if(engineLine)   free(engineLine);   engineLine = strdup("");
-   if(engineDir)    free(engineDir);    engineDir = strdup("");
-   if(nickName)     free(nickName);     nickName = strdup("");
-   if(params)       free(params);       params = strdup("");
-   NamesToList(firstChessProgramNames, engineList, engineMnemonic);
-   GenericPopUp(installOptions, _("Load engine"), 0);
-}
-
-void EditBookProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-    EditBookEvent();
-}
-
-void SetRandom P((int n));
-
-int ShuffleOK(int n)
-{
-    ResetGameEvent();
-    return 1;
-}
-
-Option shuffleOptions[] = {
-  {   0,  0,   50, NULL, (void*) &shuffleOpenings, NULL, NULL, CheckBox, N_("shuffle") },
-  { 0,-1,2000000000, NULL, (void*) &appData.defaultFrcPosition, "", NULL, Spin, N_("Start-position number:") },
-  {   0,  0,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, N_("randomize") },
-  {   0,  1,    0, NULL, (void*) &SetRandom, NULL, NULL, Button, N_("pick fixed") },
-  {   0,  1,    0, NULL, (void*) &ShuffleOK, "", NULL, EndMark , "" }
-};
-
-void SetRandom(int n)
-{
-    int r = n==2 ? -1 : random() & (1<<30)-1;
-    char buf[MSG_SIZ];
-    snprintf(buf, MSG_SIZ,  "%d", r);
-    SetWidgetText(&shuffleOptions[1], buf, 0);
-    SetWidgetState(&shuffleOptions[0], True);
-}
-
-void ShuffleMenuProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
-{
-    GenericPopUp(shuffleOptions, _("New Shuffle Game"), 0);
-}
-
-int tmpMoves, tmpTc, tmpInc, tmpOdds1, tmpOdds2, tcType;
-
-void ShowTC(int n)
-{
-}
-
-void SetTcType P((int n));
-
-char *Value(int n)
-{
-       static char buf[MSG_SIZ];
-       snprintf(buf, MSG_SIZ, "%d", n);
-       return buf;
-}
-
-int TcOK(int n)
-{
-    char *tc;
-    if(tcType == 0 && tmpMoves <= 0) return 0;
-    if(tcType == 2 && tmpInc <= 0) return 0;
-    GetWidgetText(&currentOption[4], &tc); // get original text, in case it is min:sec
-    searchTime = 0;
-    switch(tcType) {
-      case 0:
-       if(!ParseTimeControl(tc, -1, tmpMoves)) return 0;
-       appData.movesPerSession = tmpMoves;
-       ASSIGN(appData.timeControl, tc);
-       appData.timeIncrement = -1;
-       break;
-      case 1:
-       if(!ParseTimeControl(tc, tmpInc, 0)) return 0;
-       ASSIGN(appData.timeControl, tc);
-       appData.timeIncrement = tmpInc;
-       break;
-      case 2:
-       searchTime = tmpInc;
-    }
-    appData.firstTimeOdds = first.timeOdds = tmpOdds1;
-    appData.secondTimeOdds = second.timeOdds = tmpOdds2;
-    Reset(True, True);
-    return 1;
-}
-
-Option tcOptions[] = {
-{   0,  0,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("classical") },
-{   0,  1,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("incremental") },
-{   0,  1,    0, NULL, (void*) &SetTcType, NULL, NULL, Button, N_("fixed max") },
-{   0,  0,  200, NULL, (void*) &tmpMoves, NULL, NULL, Spin, N_("Moves per session:") },
-{   0,  0,10000, NULL, (void*) &tmpTc, NULL, NULL, Spin, N_("Initial time (min):") },
-{   0, 0, 10000, NULL, (void*) &tmpInc, NULL, NULL, Spin, N_("Increment or max (sec/move):") },
-{   0,  0,    0, NULL, NULL, NULL, NULL, Label, N_("Time-Odds factors:") },
-{   0,  1, 1000, NULL, (void*) &tmpOdds1, NULL, NULL, Spin, N_("Engine #1") },
-{   0,  1, 1000, NULL, (void*) &tmpOdds2, NULL, NULL, Spin, N_("Engine #2 / Human") },
-{   0,  0,    0, NULL, (void*) &TcOK, "", NULL, EndMark , "" }
-};
-
-void SetTcType(int n)
-{
-    switch(tcType = n) {
-      case 0:
-       SetWidgetText(&tcOptions[3], Value(tmpMoves), 0);
-       SetWidgetText(&tcOptions[4], Value(tmpTc), 0);
-       SetWidgetText(&tcOptions[5], _("Unused"), 0);
-       break;
-      case 1:
-       SetWidgetText(&tcOptions[3], _("Unused"), 0);
-       SetWidgetText(&tcOptions[4], Value(tmpTc), 0);
-       SetWidgetText(&tcOptions[5], Value(tmpInc), 0);
-       break;
-      case 2:
-       SetWidgetText(&tcOptions[3], _("Unused"), 0);
-       SetWidgetText(&tcOptions[4], _("Unused"), 0);
-       SetWidgetText(&tcOptions[5], Value(tmpInc), 0);
+TypeInProc (Widget w, XEvent *event, String *prms, Cardinal *nprms)
+{   // can be used as handler for any text edit in any dialog (from GenericPopUp, that is)
+    int n = prms[0][0] - '0';
+    Widget sh = XtParent(XtParent(XtParent(w))); // popup shell
+
+    if(n<2) { // Enter or Esc typed from primed text widget: treat as if dialog OK or cancel button hit.
+       int dlgNr; // figure out what the dialog number is by comparing shells (because we must pass it :( )
+       for(dlgNr=0; dlgNr<NrOfDialogs; dlgNr++) if(shellUp[dlgNr] && shells[dlgNr] == sh)
+           GenericCallback (w, (XtPointer)(intptr_t) (30000 + n + (dlgNr<<16)), NULL);
     }
 }
+#endif
 
-void TimeControlProc(w, event, prms, nprms)
-     Widget w;
-     XEvent *event;
-     String *prms;
-     Cardinal *nprms;
+void
+HardSetFocus (Option *opt)
 {
-   tmpMoves = appData.movesPerSession;
-   tmpInc = appData.timeIncrement; if(tmpInc < 0) tmpInc = 0;
-   tmpOdds1 = tmpOdds2 = 1; tcType = 0;
-   tmpTc = atoi(appData.timeControl);
-   GenericPopUp(tcOptions, _("Time Control"), 0);
+#ifdef TODO_GTK
+    XSetInputFocus(xDisplay, XtWindow(opt->handle), RevertToPointerRoot, CurrentTime);
+#endif
 }
 
-//---------------------------- Chat Windows ----------------------------------------------
-
-void OutputChatMessage(int partner, char *mess)
-{
-    return; // dummy
-}