gtk.c

   1 /*
   2  * gtk.c: GTK front end for my puzzle collection.
   3  */
   4
   5 #include <stdio.h>
   6 #include <assert.h>
   7 #include <stdlib.h>
   8 #include <time.h>
   9 #include <stdarg.h>
  10 #include <string.h>
  11 #include <errno.h>
  12
  13 #include <sys/time.h>
  14
  15 #include <gtk/gtk.h>
  16 #include <gdk/gdkkeysyms.h>
  17
  18 #include <gdk/gdkx.h>
  19 #include <X11/Xlib.h>
  20 #include <X11/Xutil.h>
  21 #include <X11/Xatom.h>
  22
  23 #include "puzzles.h"
  24
  25 #if GTK_CHECK_VERSION(2,0,0)
  26 #define USE_PANGO
  27 #endif
  28
  29 #ifdef DEBUGGING
  30 static FILE *debug_fp = NULL;
  31
  32 void dputs(char *buf)
  33 {
  34     if (!debug_fp) {
  35         debug_fp = fopen("debug.log", "w");
  36     }
  37
  38     fputs(buf, stderr);
  39
  40     if (debug_fp) {
  41         fputs(buf, debug_fp);
  42         fflush(debug_fp);
  43     }
  44 }
  45
  46 void debug_printf(char *fmt, ...)
  47 {
  48     char buf[4096];
  49     va_list ap;
  50
  51     va_start(ap, fmt);
  52     vsprintf(buf, fmt, ap);
  53     dputs(buf);
  54     va_end(ap);
  55 }
  56 #endif
  57
  58 /* ----------------------------------------------------------------------
  59  * Error reporting functions used elsewhere.
  60  */
  61
  62 void fatal(char *fmt, ...)
  63 {
  64     va_list ap;
  65
  66     fprintf(stderr, "fatal error: ");
  67
  68     va_start(ap, fmt);
  69     vfprintf(stderr, fmt, ap);
  70     va_end(ap);
  71
  72     fprintf(stderr, "\n");
  73     exit(1);
  74 }
  75
  76 /* ----------------------------------------------------------------------
  77  * GTK front end to puzzles.
  78  */
  79
  80 struct font {
  81 #ifdef USE_PANGO
  82     PangoFontDescription *desc;
  83 #else
  84     GdkFont *font;
  85 #endif
  86     int type;
  87     int size;
  88 };
  89
  90 /*
  91  * This structure holds all the data relevant to a single window.
  92  * In principle this would allow us to open multiple independent
  93  * puzzle windows, although I can't currently see any real point in
  94  * doing so. I'm just coding cleanly because there's no
  95  * particularly good reason not to.
  96  */
  97 struct frontend {
  98     GtkWidget *window;
  99     GtkAccelGroup *accelgroup;
 100     GtkWidget *area;
 101     GtkWidget *statusbar;
 102     guint statusctx;
 103     GdkPixmap *pixmap;
 104     GdkColor *colours;
 105     int ncolours;
 106     GdkColormap *colmap;
 107     int w, h;
 108     midend *me;
 109     GdkGC *gc;
 110     int bbox_l, bbox_r, bbox_u, bbox_d;
 111     int timer_active, timer_id;
 112     struct timeval last_time;
 113     struct font *fonts;
 114     int nfonts, fontsize;
 115     config_item *cfg;
 116     int cfg_which, cfgret;
 117     GtkWidget *cfgbox;
 118     void *paste_data;
 119     int paste_data_len;
 120     int pw, ph;                        /* pixmap size (w, h are area size) */
 121     int ox, oy;                        /* offset of pixmap in drawing area */
 122     char *filesel_name;
 123 };
 124
 125 void get_random_seed(void **randseed, int *randseedsize)
 126 {
 127     struct timeval *tvp = snew(struct timeval);
 128     gettimeofday(tvp, NULL);
 129     *randseed = (void *)tvp;
 130     *randseedsize = sizeof(struct timeval);
 131 }
 132
 133 void frontend_default_colour(frontend *fe, float *output)
 134 {
 135     GdkColor col = fe->window->style->bg[GTK_STATE_NORMAL];
 136     output[0] = col.red / 65535.0;
 137     output[1] = col.green / 65535.0;
 138     output[2] = col.blue / 65535.0;
 139 }
 140
 141 void gtk_status_bar(void *handle, char *text)
 142 {
 143     frontend *fe = (frontend *)handle;
 144
 145     assert(fe->statusbar);
 146
 147     gtk_statusbar_pop(GTK_STATUSBAR(fe->statusbar), fe->statusctx);
 148     gtk_statusbar_push(GTK_STATUSBAR(fe->statusbar), fe->statusctx, text);
 149 }
 150
 151 void gtk_start_draw(void *handle)
 152 {
 153     frontend *fe = (frontend *)handle;
 154     fe->gc = gdk_gc_new(fe->area->window);
 155     fe->bbox_l = fe->w;
 156     fe->bbox_r = 0;
 157     fe->bbox_u = fe->h;
 158     fe->bbox_d = 0;
 159 }
 160
 161 void gtk_clip(void *handle, int x, int y, int w, int h)
 162 {
 163     frontend *fe = (frontend *)handle;
 164     GdkRectangle rect;
 165
 166     rect.x = x;
 167     rect.y = y;
 168     rect.width = w;
 169     rect.height = h;
 170
 171     gdk_gc_set_clip_rectangle(fe->gc, &rect);
 172 }
 173
 174 void gtk_unclip(void *handle)
 175 {
 176     frontend *fe = (frontend *)handle;
 177     GdkRectangle rect;
 178
 179     rect.x = 0;
 180     rect.y = 0;
 181     rect.width = fe->w;
 182     rect.height = fe->h;
 183
 184     gdk_gc_set_clip_rectangle(fe->gc, &rect);
 185 }
 186
 187 void gtk_draw_text(void *handle, int x, int y, int fonttype, int fontsize,
 188                    int align, int colour, char *text)
 189 {
 190     frontend *fe = (frontend *)handle;
 191     int i;
 192
 193     /*
 194      * Find or create the font.
 195      */
 196     for (i = 0; i < fe->nfonts; i++)
 197         if (fe->fonts[i].type == fonttype && fe->fonts[i].size == fontsize)
 198             break;
 199
 200     if (i == fe->nfonts) {
 201         if (fe->fontsize <= fe->nfonts) {
 202             fe->fontsize = fe->nfonts + 10;
 203             fe->fonts = sresize(fe->fonts, fe->fontsize, struct font);
 204         }
 205
 206         fe->nfonts++;
 207
 208         fe->fonts[i].type = fonttype;
 209         fe->fonts[i].size = fontsize;
 210
 211 #ifdef USE_PANGO
 212         /*
 213          * Use Pango to find the closest match to the requested
 214          * font.
 215          */
 216         {
 217             PangoFontDescription *fd;
 218
 219             fd = pango_font_description_new();
 220             /* `Monospace' and `Sans' are meta-families guaranteed to exist */
 221             pango_font_description_set_family(fd, fonttype == FONT_FIXED ?
 222                                               "Monospace" : "Sans");
 223             pango_font_description_set_weight(fd, PANGO_WEIGHT_BOLD);
 224             /*
 225              * I found some online Pango documentation which
 226              * described a function called
 227              * pango_font_description_set_absolute_size(), which is
 228              * _exactly_ what I want here. Unfortunately, none of
 229              * my local Pango installations have it (presumably
 230              * they're too old), so I'm going to have to hack round
 231              * it by figuring out the point size myself. This
 232              * limits me to X and probably also breaks in later
 233              * Pango installations, so ideally I should add another
 234              * CHECK_VERSION type ifdef and use set_absolute_size
 235              * where available. All very annoying.
 236              */
 237 #ifdef HAVE_SENSIBLE_ABSOLUTE_SIZE_FUNCTION
 238             pango_font_description_set_absolute_size(fd, PANGO_SCALE*fontsize);
 239 #else
 240             {
 241                 Display *d = GDK_DISPLAY();
 242                 int s = DefaultScreen(d);
 243                 double resolution =
 244                     (PANGO_SCALE * 72.27 / 25.4) *
 245                     ((double) DisplayWidthMM(d, s) / DisplayWidth (d, s));
 246                 pango_font_description_set_size(fd, resolution * fontsize);
 247             }
 248 #endif
 249             fe->fonts[i].desc = fd;
 250         }
 251
 252 #else
 253         /*
 254          * In GTK 1.2, I don't know of any plausible way to
 255          * pick a suitable font, so I'm just going to be
 256          * tedious.
 257          */
 258         fe->fonts[i].font = gdk_font_load(fonttype == FONT_FIXED ?
 259                                           "fixed" : "variable");
 260 #endif
 261
 262     }
 263
 264     /*
 265      * Set the colour.
 266      */
 267     gdk_gc_set_foreground(fe->gc, &fe->colours[colour]);
 268
 269 #ifdef USE_PANGO
 270
 271     {
 272         PangoLayout *layout;
 273         PangoRectangle rect;
 274
 275         /*
 276          * Create a layout.
 277          */
 278         layout = pango_layout_new(gtk_widget_get_pango_context(fe->area));
 279         pango_layout_set_font_description(layout, fe->fonts[i].desc);
 280         pango_layout_set_text(layout, text, strlen(text));
 281         pango_layout_get_pixel_extents(layout, NULL, &rect);
 282
 283         if (align & ALIGN_VCENTRE)
 284             rect.y -= rect.height / 2;
 285         else
 286             rect.y -= rect.height;
 287
 288         if (align & ALIGN_HCENTRE)
 289             rect.x -= rect.width / 2;
 290         else if (align & ALIGN_HRIGHT)
 291             rect.x -= rect.width;
 292
 293         gdk_draw_layout(fe->pixmap, fe->gc, rect.x + x, rect.y + y, layout);
 294
 295         g_object_unref(layout);
 296     }
 297
 298 #else
 299     /*
 300      * Find string dimensions and process alignment.
 301      */
 302     {
 303         int lb, rb, wid, asc, desc;
 304
 305         /*
 306          * Measure vertical string extents with respect to the same
 307          * string always...
 308          */
 309         gdk_string_extents(fe->fonts[i].font,
 310                            "ABCDEFGHIJKLMNOPQRSTUVWXYZ",
 311                            &lb, &rb, &wid, &asc, &desc);
 312         if (align & ALIGN_VCENTRE)
 313             y += asc - (asc+desc)/2;
 314         else
 315             y += asc;
 316
 317         /*
 318          * ... but horizontal extents with respect to the provided
 319          * string. This means that multiple pieces of text centred
 320          * on the same y-coordinate don't have different baselines.
 321          */
 322         gdk_string_extents(fe->fonts[i].font, text,
 323                            &lb, &rb, &wid, &asc, &desc);
 324
 325         if (align & ALIGN_HCENTRE)
 326             x -= wid / 2;
 327         else if (align & ALIGN_HRIGHT)
 328             x -= wid;
 329
 330     }
 331
 332     /*
 333      * Actually draw the text.
 334      */
 335     gdk_draw_string(fe->pixmap, fe->fonts[i].font, fe->gc, x, y, text);
 336 #endif
 337
 338 }
 339
 340 void gtk_draw_rect(void *handle, int x, int y, int w, int h, int colour)
 341 {
 342     frontend *fe = (frontend *)handle;
 343     gdk_gc_set_foreground(fe->gc, &fe->colours[colour]);
 344     gdk_draw_rectangle(fe->pixmap, fe->gc, 1, x, y, w, h);
 345 }
 346
 347 void gtk_draw_line(void *handle, int x1, int y1, int x2, int y2, int colour)
 348 {
 349     frontend *fe = (frontend *)handle;
 350     gdk_gc_set_foreground(fe->gc, &fe->colours[colour]);
 351     gdk_draw_line(fe->pixmap, fe->gc, x1, y1, x2, y2);
 352 }
 353
 354 void gtk_draw_poly(void *handle, int *coords, int npoints,
 355                    int fillcolour, int outlinecolour)
 356 {
 357     frontend *fe = (frontend *)handle;
 358     GdkPoint *points = snewn(npoints, GdkPoint);
 359     int i;
 360
 361     for (i = 0; i < npoints; i++) {
 362         points[i].x = coords[i*2];
 363         points[i].y = coords[i*2+1];
 364     }
 365
 366     if (fillcolour >= 0) {
 367         gdk_gc_set_foreground(fe->gc, &fe->colours[fillcolour]);
 368         gdk_draw_polygon(fe->pixmap, fe->gc, TRUE, points, npoints);
 369     }
 370     assert(outlinecolour >= 0);
 371     gdk_gc_set_foreground(fe->gc, &fe->colours[outlinecolour]);
 372
 373     /*
 374      * In principle we ought to be able to use gdk_draw_polygon for
 375      * the outline as well. In fact, it turns out to interact badly
 376      * with a clipping region, for no terribly obvious reason, so I
 377      * draw the outline as a sequence of lines instead.
 378      */
 379     for (i = 0; i < npoints; i++)
 380         gdk_draw_line(fe->pixmap, fe->gc,
 381                       points[i].x, points[i].y,
 382                       points[(i+1)%npoints].x, points[(i+1)%npoints].y);
 383
 384     sfree(points);
 385 }
 386
 387 void gtk_draw_circle(void *handle, int cx, int cy, int radius,
 388                      int fillcolour, int outlinecolour)
 389 {
 390     frontend *fe = (frontend *)handle;
 391     if (fillcolour >= 0) {
 392         gdk_gc_set_foreground(fe->gc, &fe->colours[fillcolour]);
 393         gdk_draw_arc(fe->pixmap, fe->gc, TRUE,
 394                      cx - radius, cy - radius,
 395                      2 * radius, 2 * radius, 0, 360 * 64);
 396     }
 397
 398     assert(outlinecolour >= 0);
 399     gdk_gc_set_foreground(fe->gc, &fe->colours[outlinecolour]);
 400     gdk_draw_arc(fe->pixmap, fe->gc, FALSE,
 401                  cx - radius, cy - radius,
 402                  2 * radius, 2 * radius, 0, 360 * 64);
 403 }
 404
 405 struct blitter {
 406     GdkPixmap *pixmap;
 407     int w, h, x, y;
 408 };
 409
 410 blitter *gtk_blitter_new(void *handle, int w, int h)
 411 {
 412     /*
 413      * We can't create the pixmap right now, because fe->window
 414      * might not yet exist. So we just cache w and h and create it
 415      * during the firs call to blitter_save.
 416      */
 417     blitter *bl = snew(blitter);
 418     bl->pixmap = NULL;
 419     bl->w = w;
 420     bl->h = h;
 421     return bl;
 422 }
 423
 424 void gtk_blitter_free(void *handle, blitter *bl)
 425 {
 426     if (bl->pixmap)
 427         gdk_pixmap_unref(bl->pixmap);
 428     sfree(bl);
 429 }
 430
 431 void gtk_blitter_save(void *handle, blitter *bl, int x, int y)
 432 {
 433     frontend *fe = (frontend *)handle;
 434     if (!bl->pixmap)
 435         bl->pixmap = gdk_pixmap_new(fe->area->window, bl->w, bl->h, -1);
 436     bl->x = x;
 437     bl->y = y;
 438     gdk_draw_pixmap(bl->pixmap,
 439                     fe->area->style->fg_gc[GTK_WIDGET_STATE(fe->area)],
 440                     fe->pixmap,
 441                     x, y, 0, 0, bl->w, bl->h);
 442 }
 443
 444 void gtk_blitter_load(void *handle, blitter *bl, int x, int y)
 445 {
 446     frontend *fe = (frontend *)handle;
 447     assert(bl->pixmap);
 448     if (x == BLITTER_FROMSAVED && y == BLITTER_FROMSAVED) {
 449         x = bl->x;
 450         y = bl->y;
 451     }
 452     gdk_draw_pixmap(fe->pixmap,
 453                     fe->area->style->fg_gc[GTK_WIDGET_STATE(fe->area)],
 454                     bl->pixmap,
 455                     0, 0, x, y, bl->w, bl->h);
 456 }
 457
 458 void gtk_draw_update(void *handle, int x, int y, int w, int h)
 459 {
 460     frontend *fe = (frontend *)handle;
 461     if (fe->bbox_l > x  ) fe->bbox_l = x  ;
 462     if (fe->bbox_r < x+w) fe->bbox_r = x+w;
 463     if (fe->bbox_u > y  ) fe->bbox_u = y  ;
 464     if (fe->bbox_d < y+h) fe->bbox_d = y+h;
 465 }
 466
 467 void gtk_end_draw(void *handle)
 468 {
 469     frontend *fe = (frontend *)handle;
 470     gdk_gc_unref(fe->gc);
 471     fe->gc = NULL;
 472
 473     if (fe->bbox_l < fe->bbox_r && fe->bbox_u < fe->bbox_d) {
 474         gdk_draw_pixmap(fe->area->window,
 475                         fe->area->style->fg_gc[GTK_WIDGET_STATE(fe->area)],
 476                         fe->pixmap,
 477                         fe->bbox_l, fe->bbox_u,
 478                         fe->ox + fe->bbox_l, fe->oy + fe->bbox_u,
 479                         fe->bbox_r - fe->bbox_l, fe->bbox_d - fe->bbox_u);
 480     }
 481 }
 482
 483 const struct drawing_api gtk_drawing = {
 484     gtk_draw_text,
 485     gtk_draw_rect,
 486     gtk_draw_line,
 487     gtk_draw_poly,
 488     gtk_draw_circle,
 489     gtk_draw_update,
 490     gtk_clip,
 491     gtk_unclip,
 492     gtk_start_draw,
 493     gtk_end_draw,
 494     gtk_status_bar,
 495     gtk_blitter_new,
 496     gtk_blitter_free,
 497     gtk_blitter_save,
 498     gtk_blitter_load,
 499     NULL, NULL, NULL, NULL, NULL, NULL, /* {begin,end}_{doc,page,puzzle} */
 500     NULL,                              /* line_width */
 501 };
 502
 503 static void destroy(GtkWidget *widget, gpointer data)
 504 {
 505     frontend *fe = (frontend *)data;
 506     deactivate_timer(fe);
 507     midend_free(fe->me);
 508     gtk_main_quit();
 509 }
 510
 511 static gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
 512 {
 513     frontend *fe = (frontend *)data;
 514     int keyval;
 515     int shift = (event->state & GDK_SHIFT_MASK) ? MOD_SHFT : 0;
 516     int ctrl = (event->state & GDK_CONTROL_MASK) ? MOD_CTRL : 0;
 517
 518     if (!fe->pixmap)
 519         return TRUE;
 520
 521     if (event->keyval == GDK_Up)
 522         keyval = shift | ctrl | CURSOR_UP;
 523     else if (event->keyval == GDK_KP_Up || event->keyval == GDK_KP_8)
 524         keyval = MOD_NUM_KEYPAD | '8';
 525     else if (event->keyval == GDK_Down)
 526         keyval = shift | ctrl | CURSOR_DOWN;
 527     else if (event->keyval == GDK_KP_Down || event->keyval == GDK_KP_2)
 528         keyval = MOD_NUM_KEYPAD | '2';
 529     else if (event->keyval == GDK_Left)
 530         keyval = shift | ctrl | CURSOR_LEFT;
 531     else if (event->keyval == GDK_KP_Left || event->keyval == GDK_KP_4)
 532         keyval = MOD_NUM_KEYPAD | '4';
 533     else if (event->keyval == GDK_Right)
 534         keyval = shift | ctrl | CURSOR_RIGHT;
 535     else if (event->keyval == GDK_KP_Right || event->keyval == GDK_KP_6)
 536         keyval = MOD_NUM_KEYPAD | '6';
 537     else if (event->keyval == GDK_KP_Home || event->keyval == GDK_KP_7)
 538         keyval = MOD_NUM_KEYPAD | '7';
 539     else if (event->keyval == GDK_KP_End || event->keyval == GDK_KP_1)
 540         keyval = MOD_NUM_KEYPAD | '1';
 541     else if (event->keyval == GDK_KP_Page_Up || event->keyval == GDK_KP_9)
 542         keyval = MOD_NUM_KEYPAD | '9';
 543     else if (event->keyval == GDK_KP_Page_Down || event->keyval == GDK_KP_3)
 544         keyval = MOD_NUM_KEYPAD | '3';
 545     else if (event->keyval == GDK_KP_Insert || event->keyval == GDK_KP_0)
 546         keyval = MOD_NUM_KEYPAD | '0';
 547     else if (event->keyval == GDK_KP_Begin || event->keyval == GDK_KP_5)
 548         keyval = MOD_NUM_KEYPAD | '5';
 549     else if (event->keyval == GDK_BackSpace ||
 550              event->keyval == GDK_Delete ||
 551              event->keyval == GDK_KP_Delete)
 552         keyval = '\177';
 553     else if (event->string[0] && !event->string[1])
 554         keyval = (unsigned char)event->string[0];
 555     else
 556         keyval = -1;
 557
 558     if (keyval >= 0 &&
 559         !midend_process_key(fe->me, 0, 0, keyval))
 560         gtk_widget_destroy(fe->window);
 561
 562     return TRUE;
 563 }
 564
 565 static gint button_event(GtkWidget *widget, GdkEventButton *event,
 566                          gpointer data)
 567 {
 568     frontend *fe = (frontend *)data;
 569     int button;
 570
 571     if (!fe->pixmap)
 572         return TRUE;
 573
 574     if (event->type != GDK_BUTTON_PRESS && event->type != GDK_BUTTON_RELEASE)
 575         return TRUE;
 576
 577     if (event->button == 2 || (event->state & GDK_SHIFT_MASK))
 578         button = MIDDLE_BUTTON;
 579     else if (event->button == 3 || (event->state & GDK_MOD1_MASK))
 580         button = RIGHT_BUTTON;
 581     else if (event->button == 1)
 582         button = LEFT_BUTTON;
 583     else
 584         return FALSE;                  /* don't even know what button! */
 585
 586     if (event->type == GDK_BUTTON_RELEASE)
 587         button += LEFT_RELEASE - LEFT_BUTTON;
 588
 589     if (!midend_process_key(fe->me, event->x - fe->ox,
 590                             event->y - fe->oy, button))
 591         gtk_widget_destroy(fe->window);
 592
 593     return TRUE;
 594 }
 595
 596 static gint motion_event(GtkWidget *widget, GdkEventMotion *event,
 597                          gpointer data)
 598 {
 599     frontend *fe = (frontend *)data;
 600     int button;
 601
 602     if (!fe->pixmap)
 603         return TRUE;
 604
 605     if (event->state & (GDK_BUTTON2_MASK | GDK_SHIFT_MASK))
 606         button = MIDDLE_DRAG;
 607     else if (event->state & GDK_BUTTON1_MASK)
 608         button = LEFT_DRAG;
 609     else if (event->state & GDK_BUTTON3_MASK)
 610         button = RIGHT_DRAG;
 611     else
 612         return FALSE;                  /* don't even know what button! */
 613
 614     if (!midend_process_key(fe->me, event->x - fe->ox,
 615                             event->y - fe->oy, button))
 616         gtk_widget_destroy(fe->window);
 617
 618     return TRUE;
 619 }
 620
 621 static gint expose_area(GtkWidget *widget, GdkEventExpose *event,
 622                         gpointer data)
 623 {
 624     frontend *fe = (frontend *)data;
 625
 626     if (fe->pixmap) {
 627         gdk_draw_pixmap(widget->window,
 628                         widget->style->fg_gc[GTK_WIDGET_STATE(widget)],
 629                         fe->pixmap,
 630                         event->area.x - fe->ox, event->area.y - fe->oy,
 631                         event->area.x, event->area.y,
 632                         event->area.width, event->area.height);
 633     }
 634     return TRUE;
 635 }
 636
 637 static gint map_window(GtkWidget *widget, GdkEvent *event,
 638                        gpointer data)
 639 {
 640     frontend *fe = (frontend *)data;
 641
 642     /*
 643      * Apparently we need to do this because otherwise the status
 644      * bar will fail to update immediately. Annoying, but there we
 645      * go.
 646      */
 647     gtk_widget_queue_draw(fe->window);
 648
 649     return TRUE;
 650 }
 651
 652 static gint configure_area(GtkWidget *widget,
 653                            GdkEventConfigure *event, gpointer data)
 654 {
 655     frontend *fe = (frontend *)data;
 656     GdkGC *gc;
 657     int x, y;
 658
 659     if (fe->pixmap)
 660         gdk_pixmap_unref(fe->pixmap);
 661
 662     x = fe->w = event->width;
 663     y = fe->h = event->height;
 664     midend_size(fe->me, &x, &y, TRUE);
 665     fe->pw = x;
 666     fe->ph = y;
 667     fe->ox = (fe->w - fe->pw) / 2;
 668     fe->oy = (fe->h - fe->ph) / 2;
 669
 670     fe->pixmap = gdk_pixmap_new(widget->window, fe->pw, fe->ph, -1);
 671
 672     gc = gdk_gc_new(fe->area->window);
 673     gdk_gc_set_foreground(gc, &fe->colours[0]);
 674     gdk_draw_rectangle(fe->pixmap, gc, 1, 0, 0, fe->pw, fe->ph);
 675     gdk_draw_rectangle(widget->window, gc, 1, 0, 0,
 676                        event->width, event->height);
 677     gdk_gc_unref(gc);
 678
 679     midend_force_redraw(fe->me);
 680
 681     return TRUE;
 682 }
 683
 684 static gint timer_func(gpointer data)
 685 {
 686     frontend *fe = (frontend *)data;
 687
 688     if (fe->timer_active) {
 689         struct timeval now;
 690         float elapsed;
 691         gettimeofday(&now, NULL);
 692         elapsed = ((now.tv_usec - fe->last_time.tv_usec) * 0.000001F +
 693                    (now.tv_sec - fe->last_time.tv_sec));
 694         midend_timer(fe->me, elapsed);  /* may clear timer_active */
 695         fe->last_time = now;
 696     }
 697
 698     return fe->timer_active;
 699 }
 700
 701 void deactivate_timer(frontend *fe)
 702 {
 703     if (!fe)
 704         return;                        /* can happen due to --generate */
 705     if (fe->timer_active)
 706         gtk_timeout_remove(fe->timer_id);
 707     fe->timer_active = FALSE;
 708 }
 709
 710 void activate_timer(frontend *fe)
 711 {
 712     if (!fe)
 713         return;                        /* can happen due to --generate */
 714     if (!fe->timer_active) {
 715         fe->timer_id = gtk_timeout_add(20, timer_func, fe);
 716         gettimeofday(&fe->last_time, NULL);
 717     }
 718     fe->timer_active = TRUE;
 719 }
 720
 721 static void window_destroy(GtkWidget *widget, gpointer data)
 722 {
 723     gtk_main_quit();
 724 }
 725
 726 static void msgbox_button_clicked(GtkButton *button, gpointer data)
 727 {
 728     GtkWidget *window = GTK_WIDGET(data);
 729     int v, *ip;
 730
 731     ip = (int *)gtk_object_get_data(GTK_OBJECT(window), "user-data");
 732     v = GPOINTER_TO_INT(gtk_object_get_data(GTK_OBJECT(button), "user-data"));
 733     *ip = v;
 734
 735     gtk_widget_destroy(GTK_WIDGET(data));
 736 }
 737
 738 static int win_key_press(GtkWidget *widget, GdkEventKey *event, gpointer data)
 739 {
 740     GtkObject *cancelbutton = GTK_OBJECT(data);
 741
 742     /*
 743      * `Escape' effectively clicks the cancel button
 744      */
 745     if (event->keyval == GDK_Escape) {
 746         gtk_signal_emit_by_name(GTK_OBJECT(cancelbutton), "clicked");
 747         return TRUE;
 748     }
 749
 750     return FALSE;
 751 }
 752
 753 enum { MB_OK, MB_YESNO };
 754
 755 int message_box(GtkWidget *parent, char *title, char *msg, int centre,
 756                 int type)
 757 {
 758     GtkWidget *window, *hbox, *text, *button;
 759     char *titles;
 760     int i, def, cancel;
 761
 762     window = gtk_dialog_new();
 763     text = gtk_label_new(msg);
 764     gtk_misc_set_alignment(GTK_MISC(text), 0.0, 0.0);
 765     hbox = gtk_hbox_new(FALSE, 0);
 766     gtk_box_pack_start(GTK_BOX(hbox), text, FALSE, FALSE, 20);
 767     gtk_box_pack_start(GTK_BOX(GTK_DIALOG(window)->vbox),
 768                        hbox, FALSE, FALSE, 20);
 769     gtk_widget_show(text);
 770     gtk_widget_show(hbox);
 771     gtk_window_set_title(GTK_WINDOW(window), title);
 772     gtk_label_set_line_wrap(GTK_LABEL(text), TRUE);
 773
 774     if (type == MB_OK) {
 775         titles = "OK\0";
 776         def = cancel = 0;
 777     } else {
 778         assert(type == MB_YESNO);
 779         titles = "Yes\0No\0";
 780         def = 0;
 781         cancel = 1;
 782     }
 783     i = 0;
 784
 785     while (*titles) {
 786         button = gtk_button_new_with_label(titles);
 787         gtk_box_pack_end(GTK_BOX(GTK_DIALOG(window)->action_area),
 788                          button, FALSE, FALSE, 0);
 789         gtk_widget_show(button);
 790         if (i == def) {
 791             GTK_WIDGET_SET_FLAGS(button, GTK_CAN_DEFAULT);
 792             gtk_window_set_default(GTK_WINDOW(window), button);
 793         }
 794         if (i == cancel) {
 795             gtk_signal_connect(GTK_OBJECT(window), "key_press_event",
 796                                GTK_SIGNAL_FUNC(win_key_press), button);
 797         }
 798         gtk_signal_connect(GTK_OBJECT(button), "clicked",
 799                            GTK_SIGNAL_FUNC(msgbox_button_clicked), window);
 800         gtk_object_set_data(GTK_OBJECT(button), "user-data",
 801                             GINT_TO_POINTER(i));
 802         titles += strlen(titles)+1;
 803         i++;
 804     }
 805     gtk_object_set_data(GTK_OBJECT(window), "user-data",
 806                         GINT_TO_POINTER(&i));
 807     gtk_signal_connect(GTK_OBJECT(window), "destroy",
 808                        GTK_SIGNAL_FUNC(window_destroy), NULL);
 809     gtk_window_set_modal(GTK_WINDOW(window), TRUE);
 810     gtk_window_set_transient_for(GTK_WINDOW(window), GTK_WINDOW(parent));
 811     /* set_transient_window_pos(parent, window); */
 812     gtk_widget_show(window);
 813     i = -1;
 814     gtk_main();
 815     return (type == MB_YESNO ? i == 0 : TRUE);
 816 }
 817
 818 void error_box(GtkWidget *parent, char *msg)
 819 {
 820     message_box(parent, "Error", msg, FALSE, MB_OK);
 821 }
 822
 823 static void config_ok_button_clicked(GtkButton *button, gpointer data)
 824 {
 825     frontend *fe = (frontend *)data;
 826     char *err;
 827
 828     err = midend_set_config(fe->me, fe->cfg_which, fe->cfg);
 829
 830     if (err)
 831         error_box(fe->cfgbox, err);
 832     else {
 833         fe->cfgret = TRUE;
 834         gtk_widget_destroy(fe->cfgbox);
 835     }
 836 }
 837
 838 static void config_cancel_button_clicked(GtkButton *button, gpointer data)
 839 {
 840     frontend *fe = (frontend *)data;
 841
 842     gtk_widget_destroy(fe->cfgbox);
 843 }
 844
 845 static int editbox_key(GtkWidget *widget, GdkEventKey *event, gpointer data)
 846 {
 847     /*
 848      * GtkEntry has a nasty habit of eating the Return key, which
 849      * is unhelpful since it doesn't actually _do_ anything with it
 850      * (it calls gtk_widget_activate, but our edit boxes never need
 851      * activating). So I catch Return before GtkEntry sees it, and
 852      * pass it straight on to the parent widget. Effect: hitting
 853      * Return in an edit box will now activate the default button
 854      * in the dialog just like it will everywhere else.
 855      */
 856     if (event->keyval == GDK_Return && widget->parent != NULL) {
 857         gint return_val;
 858         gtk_signal_emit_stop_by_name(GTK_OBJECT(widget), "key_press_event");
 859         gtk_signal_emit_by_name(GTK_OBJECT(widget->parent), "key_press_event",
 860                                 event, &return_val);
 861         return return_val;
 862     }
 863     return FALSE;
 864 }
 865
 866 static void editbox_changed(GtkEditable *ed, gpointer data)
 867 {
 868     config_item *i = (config_item *)data;
 869
 870     sfree(i->sval);
 871     i->sval = dupstr(gtk_entry_get_text(GTK_ENTRY(ed)));
 872 }
 873
 874 static void button_toggled(GtkToggleButton *tb, gpointer data)
 875 {
 876     config_item *i = (config_item *)data;
 877
 878     i->ival = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(tb));
 879 }
 880
 881 static void droplist_sel(GtkMenuItem *item, gpointer data)
 882 {
 883     config_item *i = (config_item *)data;
 884
 885     i->ival = GPOINTER_TO_INT(gtk_object_get_data(GTK_OBJECT(item),
 886                                                   "user-data"));
 887 }
 888
 889 static int get_config(frontend *fe, int which)
 890 {
 891     GtkWidget *w, *table, *cancel;
 892     char *title;
 893     config_item *i;
 894     int y;
 895
 896     fe->cfg = midend_get_config(fe->me, which, &title);
 897     fe->cfg_which = which;
 898     fe->cfgret = FALSE;
 899
 900     fe->cfgbox = gtk_dialog_new();
 901     gtk_window_set_title(GTK_WINDOW(fe->cfgbox), title);
 902     sfree(title);
 903
 904     w = gtk_button_new_with_label("OK");
 905     gtk_box_pack_end(GTK_BOX(GTK_DIALOG(fe->cfgbox)->action_area),
 906                      w, FALSE, FALSE, 0);
 907     gtk_widget_show(w);
 908     GTK_WIDGET_SET_FLAGS(w, GTK_CAN_DEFAULT);
 909     gtk_window_set_default(GTK_WINDOW(fe->cfgbox), w);
 910     gtk_signal_connect(GTK_OBJECT(w), "clicked",
 911                        GTK_SIGNAL_FUNC(config_ok_button_clicked), fe);
 912
 913     w = gtk_button_new_with_label("Cancel");
 914     gtk_box_pack_end(GTK_BOX(GTK_DIALOG(fe->cfgbox)->action_area),
 915                      w, FALSE, FALSE, 0);
 916     gtk_widget_show(w);
 917     gtk_signal_connect(GTK_OBJECT(w), "clicked",
 918                        GTK_SIGNAL_FUNC(config_cancel_button_clicked), fe);
 919     cancel = w;
 920
 921     table = gtk_table_new(1, 2, FALSE);
 922     y = 0;
 923     gtk_box_pack_end(GTK_BOX(GTK_DIALOG(fe->cfgbox)->vbox),
 924                      table, FALSE, FALSE, 0);
 925     gtk_widget_show(table);
 926
 927     for (i = fe->cfg; i->type != C_END; i++) {
 928         gtk_table_resize(GTK_TABLE(table), y+1, 2);
 929
 930         switch (i->type) {
 931           case C_STRING:
 932             /*
 933              * Edit box with a label beside it.
 934              */
 935
 936             w = gtk_label_new(i->name);
 937             gtk_misc_set_alignment(GTK_MISC(w), 0.0, 0.5);
 938             gtk_table_attach(GTK_TABLE(table), w, 0, 1, y, y+1,
 939                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 940                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 941                              3, 3);
 942             gtk_widget_show(w);
 943
 944             w = gtk_entry_new();
 945             gtk_table_attach(GTK_TABLE(table), w, 1, 2, y, y+1,
 946                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 947                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 948                              3, 3);
 949             gtk_entry_set_text(GTK_ENTRY(w), i->sval);
 950             gtk_signal_connect(GTK_OBJECT(w), "changed",
 951                                GTK_SIGNAL_FUNC(editbox_changed), i);
 952             gtk_signal_connect(GTK_OBJECT(w), "key_press_event",
 953                                GTK_SIGNAL_FUNC(editbox_key), NULL);
 954             gtk_widget_show(w);
 955
 956             break;
 957
 958           case C_BOOLEAN:
 959             /*
 960              * Simple checkbox.
 961              */
 962             w = gtk_check_button_new_with_label(i->name);
 963             gtk_signal_connect(GTK_OBJECT(w), "toggled",
 964                                GTK_SIGNAL_FUNC(button_toggled), i);
 965             gtk_table_attach(GTK_TABLE(table), w, 0, 2, y, y+1,
 966                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 967                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 968                              3, 3);
 969             gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(w), i->ival);
 970             gtk_widget_show(w);
 971             break;
 972
 973           case C_CHOICES:
 974             /*
 975              * Drop-down list (GtkOptionMenu).
 976              */
 977
 978             w = gtk_label_new(i->name);
 979             gtk_misc_set_alignment(GTK_MISC(w), 0.0, 0.5);
 980             gtk_table_attach(GTK_TABLE(table), w, 0, 1, y, y+1,
 981                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 982                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 983                              3, 3);
 984             gtk_widget_show(w);
 985
 986             w = gtk_option_menu_new();
 987             gtk_table_attach(GTK_TABLE(table), w, 1, 2, y, y+1,
 988                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 989                              GTK_EXPAND | GTK_SHRINK | GTK_FILL,
 990                              3, 3);
 991             gtk_widget_show(w);
 992
 993             {
 994                 int c, val;
 995                 char *p, *q, *name;
 996                 GtkWidget *menuitem;
 997                 GtkWidget *menu = gtk_menu_new();
 998
 999                 gtk_option_menu_set_menu(GTK_OPTION_MENU(w), menu);
1000
1001                 c = *i->sval;
1002                 p = i->sval+1;
1003                 val = 0;
1004
1005                 while (*p) {
1006                     q = p;
1007                     while (*q && *q != c)
1008                         q++;
1009
1010                     name = snewn(q-p+1, char);
1011                     strncpy(name, p, q-p);
1012                     name[q-p] = '\0';
1013
1014                     if (*q) q++;       /* eat delimiter */
1015
1016                     menuitem = gtk_menu_item_new_with_label(name);
1017                     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1018                     gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
1019                                         GINT_TO_POINTER(val));
1020                     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1021                                        GTK_SIGNAL_FUNC(droplist_sel), i);
1022                     gtk_widget_show(menuitem);
1023
1024                     val++;
1025
1026                     p = q;
1027                 }
1028
1029                 gtk_option_menu_set_history(GTK_OPTION_MENU(w), i->ival);
1030             }
1031
1032             break;
1033         }
1034
1035         y++;
1036     }
1037
1038     gtk_signal_connect(GTK_OBJECT(fe->cfgbox), "destroy",
1039                        GTK_SIGNAL_FUNC(window_destroy), NULL);
1040     gtk_signal_connect(GTK_OBJECT(fe->cfgbox), "key_press_event",
1041                        GTK_SIGNAL_FUNC(win_key_press), cancel);
1042     gtk_window_set_modal(GTK_WINDOW(fe->cfgbox), TRUE);
1043     gtk_window_set_transient_for(GTK_WINDOW(fe->cfgbox),
1044                                  GTK_WINDOW(fe->window));
1045     /* set_transient_window_pos(fe->window, fe->cfgbox); */
1046     gtk_widget_show(fe->cfgbox);
1047     gtk_main();
1048
1049     free_cfg(fe->cfg);
1050
1051     return fe->cfgret;
1052 }
1053
1054 static void menu_key_event(GtkMenuItem *menuitem, gpointer data)
1055 {
1056     frontend *fe = (frontend *)data;
1057     int key = GPOINTER_TO_INT(gtk_object_get_data(GTK_OBJECT(menuitem),
1058                                                   "user-data"));
1059     if (!midend_process_key(fe->me, 0, 0, key))
1060         gtk_widget_destroy(fe->window);
1061 }
1062
1063 static void get_size(frontend *fe, int *px, int *py)
1064 {
1065     int x, y;
1066
1067     /*
1068      * Currently I don't want to make the GTK port scale large
1069      * puzzles to fit on the screen. This is because X does permit
1070      * extremely large windows and many window managers provide a
1071      * means of navigating round them, and the users I consulted
1072      * before deciding said that they'd rather have enormous puzzle
1073      * windows spanning multiple screen pages than have them
1074      * shrunk. I could change my mind later or introduce
1075      * configurability; this would be the place to do so, by
1076      * replacing the initial values of x and y with the screen
1077      * dimensions.
1078      */
1079     x = INT_MAX;
1080     y = INT_MAX;
1081     midend_size(fe->me, &x, &y, FALSE);
1082     *px = x;
1083     *py = y;
1084 }
1085
1086 #if !GTK_CHECK_VERSION(2,0,0)
1087 #define gtk_window_resize(win, x, y) \
1088         gdk_window_resize(GTK_WIDGET(win)->window, x, y)
1089 #endif
1090
1091 static void menu_preset_event(GtkMenuItem *menuitem, gpointer data)
1092 {
1093     frontend *fe = (frontend *)data;
1094     game_params *params =
1095         (game_params *)gtk_object_get_data(GTK_OBJECT(menuitem), "user-data");
1096     int x, y;
1097
1098     midend_set_params(fe->me, params);
1099     midend_new_game(fe->me);
1100     get_size(fe, &x, &y);
1101     fe->w = x;
1102     fe->h = y;
1103     gtk_drawing_area_size(GTK_DRAWING_AREA(fe->area), x, y);
1104     {
1105         GtkRequisition req;
1106         gtk_widget_size_request(GTK_WIDGET(fe->window), &req);
1107         gtk_window_resize(GTK_WINDOW(fe->window), req.width, req.height);
1108     }
1109 }
1110
1111 GdkAtom compound_text_atom, utf8_string_atom;
1112 int paste_initialised = FALSE;
1113
1114 void init_paste()
1115 {
1116     unsigned char empty[] = { 0 };
1117
1118     if (paste_initialised)
1119         return;
1120
1121     if (!compound_text_atom)
1122         compound_text_atom = gdk_atom_intern("COMPOUND_TEXT", FALSE);
1123     if (!utf8_string_atom)
1124         utf8_string_atom = gdk_atom_intern("UTF8_STRING", FALSE);
1125
1126     /*
1127      * Ensure that all the cut buffers exist - according to the
1128      * ICCCM, we must do this before we start using cut buffers.
1129      */
1130     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1131                     XA_CUT_BUFFER0, XA_STRING, 8, PropModeAppend, empty, 0);
1132     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1133                     XA_CUT_BUFFER1, XA_STRING, 8, PropModeAppend, empty, 0);
1134     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1135                     XA_CUT_BUFFER2, XA_STRING, 8, PropModeAppend, empty, 0);
1136     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1137                     XA_CUT_BUFFER3, XA_STRING, 8, PropModeAppend, empty, 0);
1138     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1139                     XA_CUT_BUFFER4, XA_STRING, 8, PropModeAppend, empty, 0);
1140     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1141                     XA_CUT_BUFFER5, XA_STRING, 8, PropModeAppend, empty, 0);
1142     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1143                     XA_CUT_BUFFER6, XA_STRING, 8, PropModeAppend, empty, 0);
1144     XChangeProperty(GDK_DISPLAY(), GDK_ROOT_WINDOW(),
1145                     XA_CUT_BUFFER7, XA_STRING, 8, PropModeAppend, empty, 0);
1146 }
1147
1148 /* Store data in a cut-buffer. */
1149 void store_cutbuffer(char *ptr, int len)
1150 {
1151     /* ICCCM says we must rotate the buffers before storing to buffer 0. */
1152     XRotateBuffers(GDK_DISPLAY(), 1);
1153     XStoreBytes(GDK_DISPLAY(), ptr, len);
1154 }
1155
1156 void write_clip(frontend *fe, char *data)
1157 {
1158     init_paste();
1159
1160     if (fe->paste_data)
1161         sfree(fe->paste_data);
1162
1163     /*
1164      * For this simple application we can safely assume that the
1165      * data passed to this function is pure ASCII, which means we
1166      * can return precisely the same stuff for types STRING,
1167      * COMPOUND_TEXT or UTF8_STRING.
1168      */
1169
1170     fe->paste_data = data;
1171     fe->paste_data_len = strlen(data);
1172
1173     store_cutbuffer(fe->paste_data, fe->paste_data_len);
1174
1175     if (gtk_selection_owner_set(fe->area, GDK_SELECTION_PRIMARY,
1176                                 CurrentTime)) {
1177         gtk_selection_add_target(fe->area, GDK_SELECTION_PRIMARY,
1178                                  GDK_SELECTION_TYPE_STRING, 1);
1179         gtk_selection_add_target(fe->area, GDK_SELECTION_PRIMARY,
1180                                  compound_text_atom, 1);
1181         gtk_selection_add_target(fe->area, GDK_SELECTION_PRIMARY,
1182                                  utf8_string_atom, 1);
1183     }
1184 }
1185
1186 void selection_get(GtkWidget *widget, GtkSelectionData *seldata,
1187                    guint info, guint time_stamp, gpointer data)
1188 {
1189     frontend *fe = (frontend *)data;
1190     gtk_selection_data_set(seldata, seldata->target, 8,
1191                            fe->paste_data, fe->paste_data_len);
1192 }
1193
1194 gint selection_clear(GtkWidget *widget, GdkEventSelection *seldata,
1195                      gpointer data)
1196 {
1197     frontend *fe = (frontend *)data;
1198
1199     if (fe->paste_data)
1200         sfree(fe->paste_data);
1201     fe->paste_data = NULL;
1202     fe->paste_data_len = 0;
1203     return TRUE;
1204 }
1205
1206 static void menu_copy_event(GtkMenuItem *menuitem, gpointer data)
1207 {
1208     frontend *fe = (frontend *)data;
1209     char *text;
1210
1211     text = midend_text_format(fe->me);
1212
1213     if (text) {
1214         write_clip(fe, text);
1215     } else {
1216         gdk_beep();
1217     }
1218 }
1219
1220 static void filesel_ok(GtkButton *button, gpointer data)
1221 {
1222     frontend *fe = (frontend *)data;
1223
1224     gpointer filesel = gtk_object_get_data(GTK_OBJECT(button), "user-data");
1225
1226     const char *name =
1227         gtk_file_selection_get_filename(GTK_FILE_SELECTION(filesel));
1228
1229     fe->filesel_name = dupstr(name);
1230 }
1231
1232 static char *file_selector(frontend *fe, char *title, int save)
1233 {
1234     GtkWidget *filesel =
1235         gtk_file_selection_new(title);
1236
1237     fe->filesel_name = NULL;
1238
1239     gtk_window_set_modal(GTK_WINDOW(filesel), TRUE);
1240     gtk_object_set_data
1241         (GTK_OBJECT(GTK_FILE_SELECTION(filesel)->ok_button), "user-data",
1242          (gpointer)filesel);
1243     gtk_signal_connect
1244         (GTK_OBJECT(GTK_FILE_SELECTION(filesel)->ok_button), "clicked",
1245          GTK_SIGNAL_FUNC(filesel_ok), fe);
1246     gtk_signal_connect_object
1247         (GTK_OBJECT(GTK_FILE_SELECTION(filesel)->ok_button), "clicked",
1248          GTK_SIGNAL_FUNC(gtk_widget_destroy), (gpointer)filesel);
1249     gtk_signal_connect_object
1250         (GTK_OBJECT(GTK_FILE_SELECTION(filesel)->cancel_button), "clicked",
1251          GTK_SIGNAL_FUNC(gtk_widget_destroy), (gpointer)filesel);
1252     gtk_signal_connect(GTK_OBJECT(filesel), "destroy",
1253                        GTK_SIGNAL_FUNC(window_destroy), NULL);
1254     gtk_widget_show(filesel);
1255     gtk_window_set_transient_for(GTK_WINDOW(filesel), GTK_WINDOW(fe->window));
1256     gtk_main();
1257
1258     return fe->filesel_name;
1259 }
1260
1261 static void savefile_write(void *wctx, void *buf, int len)
1262 {
1263     FILE *fp = (FILE *)wctx;
1264     fwrite(buf, 1, len, fp);
1265 }
1266
1267 static int savefile_read(void *wctx, void *buf, int len)
1268 {
1269     FILE *fp = (FILE *)wctx;
1270     int ret;
1271
1272     ret = fread(buf, 1, len, fp);
1273     return (ret == len);
1274 }
1275
1276 static void menu_save_event(GtkMenuItem *menuitem, gpointer data)
1277 {
1278     frontend *fe = (frontend *)data;
1279     char *name;
1280
1281     name = file_selector(fe, "Enter name of game file to save", TRUE);
1282
1283     if (name) {
1284         FILE *fp;
1285
1286         if ((fp = fopen(name, "r")) != NULL) {
1287             char buf[256 + FILENAME_MAX];
1288             fclose(fp);
1289             /* file exists */
1290
1291             sprintf(buf, "Are you sure you want to overwrite the"
1292                     " file \"%.*s\"?",
1293                     FILENAME_MAX, name);
1294             if (!message_box(fe->window, "Question", buf, TRUE, MB_YESNO))
1295                 return;
1296         }
1297
1298         fp = fopen(name, "w");
1299         sfree(name);
1300
1301         if (!fp) {
1302             error_box(fe->window, "Unable to open save file");
1303             return;
1304         }
1305
1306         midend_serialise(fe->me, savefile_write, fp);
1307
1308         fclose(fp);
1309     }
1310 }
1311
1312 static void menu_load_event(GtkMenuItem *menuitem, gpointer data)
1313 {
1314     frontend *fe = (frontend *)data;
1315     char *name, *err;
1316     int x, y;
1317
1318     name = file_selector(fe, "Enter name of saved game file to load", FALSE);
1319
1320     if (name) {
1321         FILE *fp = fopen(name, "r");
1322         sfree(name);
1323
1324         if (!fp) {
1325             error_box(fe->window, "Unable to open saved game file");
1326             return;
1327         }
1328
1329         err = midend_deserialise(fe->me, savefile_read, fp);
1330
1331         fclose(fp);
1332
1333         if (err) {
1334             error_box(fe->window, err);
1335             return;
1336         }
1337
1338         get_size(fe, &x, &y);
1339         fe->w = x;
1340         fe->h = y;
1341         gtk_drawing_area_size(GTK_DRAWING_AREA(fe->area), x, y);
1342         {
1343             GtkRequisition req;
1344             gtk_widget_size_request(GTK_WIDGET(fe->window), &req);
1345             gtk_window_resize(GTK_WINDOW(fe->window), req.width, req.height);
1346         }
1347
1348     }
1349 }
1350
1351 static void menu_solve_event(GtkMenuItem *menuitem, gpointer data)
1352 {
1353     frontend *fe = (frontend *)data;
1354     char *msg;
1355
1356     msg = midend_solve(fe->me);
1357
1358     if (msg)
1359         error_box(fe->window, msg);
1360 }
1361
1362 static void menu_restart_event(GtkMenuItem *menuitem, gpointer data)
1363 {
1364     frontend *fe = (frontend *)data;
1365
1366     midend_restart_game(fe->me);
1367 }
1368
1369 static void menu_config_event(GtkMenuItem *menuitem, gpointer data)
1370 {
1371     frontend *fe = (frontend *)data;
1372     int which = GPOINTER_TO_INT(gtk_object_get_data(GTK_OBJECT(menuitem),
1373                                                     "user-data"));
1374     int x, y;
1375
1376     if (!get_config(fe, which))
1377         return;
1378
1379     midend_new_game(fe->me);
1380     get_size(fe, &x, &y);
1381     fe->w = x;
1382     fe->h = y;
1383     gtk_drawing_area_size(GTK_DRAWING_AREA(fe->area), x, y);
1384     {
1385         GtkRequisition req;
1386         gtk_widget_size_request(GTK_WIDGET(fe->window), &req);
1387         gtk_window_resize(GTK_WINDOW(fe->window), req.width, req.height);
1388     }
1389 }
1390
1391 static void menu_about_event(GtkMenuItem *menuitem, gpointer data)
1392 {
1393     frontend *fe = (frontend *)data;
1394     char titlebuf[256];
1395     char textbuf[1024];
1396
1397     sprintf(titlebuf, "About %.200s", thegame.name);
1398     sprintf(textbuf,
1399             "%.200s\n\n"
1400             "from Simon Tatham's Portable Puzzle Collection\n\n"
1401             "%.500s", thegame.name, ver);
1402
1403     message_box(fe->window, titlebuf, textbuf, TRUE, MB_OK);
1404 }
1405
1406 static GtkWidget *add_menu_item_with_key(frontend *fe, GtkContainer *cont,
1407                                          char *text, int key)
1408 {
1409     GtkWidget *menuitem = gtk_menu_item_new_with_label(text);
1410     int keyqual;
1411     gtk_container_add(cont, menuitem);
1412     gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
1413                         GINT_TO_POINTER(key));
1414     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1415                        GTK_SIGNAL_FUNC(menu_key_event), fe);
1416     switch (key & ~0x1F) {
1417       case 0x00:
1418         key += 0x60;
1419         keyqual = GDK_CONTROL_MASK;
1420         break;
1421       case 0x40:
1422         key += 0x20;
1423         keyqual = GDK_SHIFT_MASK;
1424         break;
1425       default:
1426         keyqual = 0;
1427         break;
1428     }
1429     gtk_widget_add_accelerator(menuitem,
1430                                "activate", fe->accelgroup,
1431                                key, keyqual,
1432                                GTK_ACCEL_VISIBLE);
1433     gtk_widget_show(menuitem);
1434     return menuitem;
1435 }
1436
1437 static void add_menu_separator(GtkContainer *cont)
1438 {
1439     GtkWidget *menuitem = gtk_menu_item_new();
1440     gtk_container_add(cont, menuitem);
1441     gtk_widget_show(menuitem);
1442 }
1443
1444 static frontend *new_window(char *arg, char **error)
1445 {
1446     frontend *fe;
1447     GtkBox *vbox;
1448     GtkWidget *menubar, *menu, *menuitem;
1449     int x, y, n;
1450     char errbuf[1024];
1451
1452     fe = snew(frontend);
1453
1454     fe->timer_active = FALSE;
1455     fe->timer_id = -1;
1456
1457     fe->me = midend_new(fe, &thegame, &gtk_drawing, fe);
1458
1459     if (arg) {
1460         char *err;
1461
1462         errbuf[0] = '\0';
1463
1464         /*
1465          * Try treating the argument as a game ID.
1466          */
1467         err = midend_game_id(fe->me, arg);
1468         if (!err) {
1469             /*
1470              * It's a valid game ID.
1471              */
1472             midend_new_game(fe->me);
1473         } else {
1474             FILE *fp = fopen(arg, "r");
1475             if (!fp) {
1476                 sprintf(errbuf, "Supplied argument is neither a game ID (%.400s)"
1477                         " nor a save file (%.400s)", err, strerror(errno));
1478             } else {
1479                 err = midend_deserialise(fe->me, savefile_read, fp);
1480                 if (err)
1481                     sprintf(errbuf, "%.800s", err);
1482                 fclose(fp);
1483             }
1484         }
1485         if (*errbuf) {
1486             *error = dupstr(errbuf);
1487             midend_free(fe->me);
1488             sfree(fe);
1489             return NULL;
1490         }
1491
1492     } else {
1493         midend_new_game(fe->me);
1494     }
1495
1496     fe->window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
1497     gtk_window_set_title(GTK_WINDOW(fe->window), thegame.name);
1498
1499     vbox = GTK_BOX(gtk_vbox_new(FALSE, 0));
1500     gtk_container_add(GTK_CONTAINER(fe->window), GTK_WIDGET(vbox));
1501     gtk_widget_show(GTK_WIDGET(vbox));
1502
1503     fe->accelgroup = gtk_accel_group_new();
1504     gtk_window_add_accel_group(GTK_WINDOW(fe->window), fe->accelgroup);
1505
1506     menubar = gtk_menu_bar_new();
1507     gtk_box_pack_start(vbox, menubar, FALSE, FALSE, 0);
1508     gtk_widget_show(menubar);
1509
1510     menuitem = gtk_menu_item_new_with_label("Game");
1511     gtk_container_add(GTK_CONTAINER(menubar), menuitem);
1512     gtk_widget_show(menuitem);
1513
1514     menu = gtk_menu_new();
1515     gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), menu);
1516
1517     add_menu_item_with_key(fe, GTK_CONTAINER(menu), "New", 'n');
1518
1519     menuitem = gtk_menu_item_new_with_label("Restart");
1520     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1521     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1522                        GTK_SIGNAL_FUNC(menu_restart_event), fe);
1523     gtk_widget_show(menuitem);
1524
1525     menuitem = gtk_menu_item_new_with_label("Specific...");
1526     gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
1527                         GINT_TO_POINTER(CFG_DESC));
1528     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1529     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1530                        GTK_SIGNAL_FUNC(menu_config_event), fe);
1531     gtk_widget_show(menuitem);
1532
1533     menuitem = gtk_menu_item_new_with_label("Random Seed...");
1534     gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
1535                         GINT_TO_POINTER(CFG_SEED));
1536     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1537     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1538                        GTK_SIGNAL_FUNC(menu_config_event), fe);
1539     gtk_widget_show(menuitem);
1540
1541     if ((n = midend_num_presets(fe->me)) > 0 || thegame.can_configure) {
1542         GtkWidget *submenu;
1543         int i;
1544
1545         menuitem = gtk_menu_item_new_with_label("Type");
1546         gtk_container_add(GTK_CONTAINER(menubar), menuitem);
1547         gtk_widget_show(menuitem);
1548
1549         submenu = gtk_menu_new();
1550         gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), submenu);
1551
1552         for (i = 0; i < n; i++) {
1553             char *name;
1554             game_params *params;
1555
1556             midend_fetch_preset(fe->me, i, &name, &params);
1557
1558             menuitem = gtk_menu_item_new_with_label(name);
1559             gtk_container_add(GTK_CONTAINER(submenu), menuitem);
1560             gtk_object_set_data(GTK_OBJECT(menuitem), "user-data", params);
1561             gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1562                                GTK_SIGNAL_FUNC(menu_preset_event), fe);
1563             gtk_widget_show(menuitem);
1564         }
1565
1566         if (thegame.can_configure) {
1567             menuitem = gtk_menu_item_new_with_label("Custom...");
1568             gtk_object_set_data(GTK_OBJECT(menuitem), "user-data",
1569                                 GPOINTER_TO_INT(CFG_SETTINGS));
1570             gtk_container_add(GTK_CONTAINER(submenu), menuitem);
1571             gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1572                                GTK_SIGNAL_FUNC(menu_config_event), fe);
1573             gtk_widget_show(menuitem);
1574         }
1575     }
1576
1577     add_menu_separator(GTK_CONTAINER(menu));
1578     menuitem = gtk_menu_item_new_with_label("Load");
1579     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1580     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1581                        GTK_SIGNAL_FUNC(menu_load_event), fe);
1582     gtk_widget_show(menuitem);
1583     menuitem = gtk_menu_item_new_with_label("Save");
1584     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1585     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1586                        GTK_SIGNAL_FUNC(menu_save_event), fe);
1587     gtk_widget_show(menuitem);
1588     add_menu_separator(GTK_CONTAINER(menu));
1589     add_menu_item_with_key(fe, GTK_CONTAINER(menu), "Undo", 'u');
1590     add_menu_item_with_key(fe, GTK_CONTAINER(menu), "Redo", 'r');
1591     if (thegame.can_format_as_text) {
1592         add_menu_separator(GTK_CONTAINER(menu));
1593         menuitem = gtk_menu_item_new_with_label("Copy");
1594         gtk_container_add(GTK_CONTAINER(menu), menuitem);
1595         gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1596                            GTK_SIGNAL_FUNC(menu_copy_event), fe);
1597         gtk_widget_show(menuitem);
1598     }
1599     if (thegame.can_solve) {
1600         add_menu_separator(GTK_CONTAINER(menu));
1601         menuitem = gtk_menu_item_new_with_label("Solve");
1602         gtk_container_add(GTK_CONTAINER(menu), menuitem);
1603         gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1604                            GTK_SIGNAL_FUNC(menu_solve_event), fe);
1605         gtk_widget_show(menuitem);
1606     }
1607     add_menu_separator(GTK_CONTAINER(menu));
1608     add_menu_item_with_key(fe, GTK_CONTAINER(menu), "Exit", 'q');
1609
1610     menuitem = gtk_menu_item_new_with_label("Help");
1611     gtk_container_add(GTK_CONTAINER(menubar), menuitem);
1612     gtk_widget_show(menuitem);
1613
1614     menu = gtk_menu_new();
1615     gtk_menu_item_set_submenu(GTK_MENU_ITEM(menuitem), menu);
1616
1617     menuitem = gtk_menu_item_new_with_label("About");
1618     gtk_container_add(GTK_CONTAINER(menu), menuitem);
1619     gtk_signal_connect(GTK_OBJECT(menuitem), "activate",
1620                        GTK_SIGNAL_FUNC(menu_about_event), fe);
1621     gtk_widget_show(menuitem);
1622
1623     {
1624         int i, ncolours;
1625         float *colours;
1626         gboolean *success;
1627
1628         fe->colmap = gdk_colormap_get_system();
1629         colours = midend_colours(fe->me, &ncolours);
1630         fe->ncolours = ncolours;
1631         fe->colours = snewn(ncolours, GdkColor);
1632         for (i = 0; i < ncolours; i++) {
1633             fe->colours[i].red = colours[i*3] * 0xFFFF;
1634             fe->colours[i].green = colours[i*3+1] * 0xFFFF;
1635             fe->colours[i].blue = colours[i*3+2] * 0xFFFF;
1636         }
1637         success = snewn(ncolours, gboolean);
1638         gdk_colormap_alloc_colors(fe->colmap, fe->colours, ncolours,
1639                                   FALSE, FALSE, success);
1640         for (i = 0; i < ncolours; i++) {
1641             if (!success[i])
1642                 g_error("couldn't allocate colour %d (#%02x%02x%02x)\n",
1643                         i, fe->colours[i].red >> 8,
1644                         fe->colours[i].green >> 8,
1645                         fe->colours[i].blue >> 8);
1646         }
1647     }
1648
1649     if (midend_wants_statusbar(fe->me)) {
1650         GtkWidget *viewport;
1651         GtkRequisition req;
1652
1653         viewport = gtk_viewport_new(NULL, NULL);
1654         gtk_viewport_set_shadow_type(GTK_VIEWPORT(viewport), GTK_SHADOW_NONE);
1655         fe->statusbar = gtk_statusbar_new();
1656         gtk_container_add(GTK_CONTAINER(viewport), fe->statusbar);
1657         gtk_widget_show(viewport);
1658         gtk_box_pack_end(vbox, viewport, FALSE, FALSE, 0);
1659         gtk_widget_show(fe->statusbar);
1660         fe->statusctx = gtk_statusbar_get_context_id
1661             (GTK_STATUSBAR(fe->statusbar), "game");
1662         gtk_statusbar_push(GTK_STATUSBAR(fe->statusbar), fe->statusctx,
1663                            "test");
1664         gtk_widget_size_request(fe->statusbar, &req);
1665 #if 0
1666         /* For GTK 2.0, should we be using gtk_widget_set_size_request? */
1667 #endif
1668         gtk_widget_set_usize(viewport, -1, req.height);
1669     } else
1670         fe->statusbar = NULL;
1671
1672     fe->area = gtk_drawing_area_new();
1673     get_size(fe, &x, &y);
1674     gtk_drawing_area_size(GTK_DRAWING_AREA(fe->area), x, y);
1675     fe->w = x;
1676     fe->h = y;
1677
1678     gtk_box_pack_end(vbox, fe->area, TRUE, TRUE, 0);
1679
1680     fe->pixmap = NULL;
1681     fe->fonts = NULL;
1682     fe->nfonts = fe->fontsize = 0;
1683
1684     fe->paste_data = NULL;
1685     fe->paste_data_len = 0;
1686
1687     gtk_signal_connect(GTK_OBJECT(fe->window), "destroy",
1688                        GTK_SIGNAL_FUNC(destroy), fe);
1689     gtk_signal_connect(GTK_OBJECT(fe->window), "key_press_event",
1690                        GTK_SIGNAL_FUNC(key_event), fe);
1691     gtk_signal_connect(GTK_OBJECT(fe->area), "button_press_event",
1692                        GTK_SIGNAL_FUNC(button_event), fe);
1693     gtk_signal_connect(GTK_OBJECT(fe->area), "button_release_event",
1694                        GTK_SIGNAL_FUNC(button_event), fe);
1695     gtk_signal_connect(GTK_OBJECT(fe->area), "motion_notify_event",
1696                        GTK_SIGNAL_FUNC(motion_event), fe);
1697     gtk_signal_connect(GTK_OBJECT(fe->area), "selection_get",
1698                        GTK_SIGNAL_FUNC(selection_get), fe);
1699     gtk_signal_connect(GTK_OBJECT(fe->area), "selection_clear_event",
1700                        GTK_SIGNAL_FUNC(selection_clear), fe);
1701     gtk_signal_connect(GTK_OBJECT(fe->area), "expose_event",
1702                        GTK_SIGNAL_FUNC(expose_area), fe);
1703     gtk_signal_connect(GTK_OBJECT(fe->window), "map_event",
1704                        GTK_SIGNAL_FUNC(map_window), fe);
1705     gtk_signal_connect(GTK_OBJECT(fe->area), "configure_event",
1706                        GTK_SIGNAL_FUNC(configure_area), fe);
1707
1708     gtk_widget_add_events(GTK_WIDGET(fe->area),
1709                           GDK_BUTTON_PRESS_MASK |
1710                           GDK_BUTTON_RELEASE_MASK |
1711                           GDK_BUTTON_MOTION_MASK);
1712
1713     gtk_widget_show(fe->area);
1714     gtk_widget_show(fe->window);
1715
1716     gdk_window_set_background(fe->area->window, &fe->colours[0]);
1717     gdk_window_set_background(fe->window->window, &fe->colours[0]);
1718
1719     return fe;
1720 }
1721
1722 char *fgetline(FILE *fp)
1723 {
1724     char *ret = snewn(512, char);
1725     int size = 512, len = 0;
1726     while (fgets(ret + len, size - len, fp)) {
1727         len += strlen(ret + len);
1728         if (ret[len-1] == '\n')
1729             break;                     /* got a newline, we're done */
1730         size = len + 512;
1731         ret = sresize(ret, size, char);
1732     }
1733     if (len == 0) {                    /* first fgets returned NULL */
1734         sfree(ret);
1735         return NULL;
1736     }
1737     ret[len] = '\0';
1738     return ret;
1739 }
1740
1741 int main(int argc, char **argv)
1742 {
1743     char *pname = argv[0];
1744     char *error;
1745     int ngenerate = 0, print = FALSE, px = 1, py = 1;
1746     int soln = FALSE, colour = FALSE;
1747     float scale = 1.0F;
1748     char *arg = NULL;
1749     int doing_opts = TRUE;
1750     int ac = argc;
1751     char **av = argv;
1752     char errbuf[500];
1753
1754     /*
1755      * Command line parsing in this function is rather fiddly,
1756      * because GTK wants to have a go at argc/argv _first_ - and
1757      * yet we can't let it, because gtk_init() will bomb out if it
1758      * can't open an X display, whereas in fact we want to permit
1759      * our --generate and --print modes to run without an X
1760      * display.
1761      *
1762      * So what we do is:
1763      *  - we parse the command line ourselves, without modifying
1764      *    argc/argv
1765      *  - if we encounter an error which might plausibly be the
1766      *    result of a GTK command line (i.e. not detailed errors in
1767      *    particular options of ours) we store the error message
1768      *    and terminate parsing.
1769      *  - if we got enough out of the command line to know it
1770      *    specifies a non-X mode of operation, we either display
1771      *    the stored error and return failure, or if there is no
1772      *    stored error we do the non-X operation and return
1773      *    success.
1774      *  - otherwise, we go straight to gtk_init().
1775      */
1776
1777     errbuf[0] = '\0';
1778     while (--ac > 0) {
1779         char *p = *++av;
1780         if (doing_opts && !strcmp(p, "--version")) {
1781             printf("%s, from Simon Tatham's Portable Puzzle Collection\n%s\n",
1782                    thegame.name, ver);
1783             return 0;
1784         } else if (doing_opts && !strcmp(p, "--generate")) {
1785             if (--ac > 0) {
1786                 ngenerate = atoi(*++av);
1787                 if (!ngenerate) {
1788                     fprintf(stderr, "%s: '--generate' expected a number\n",
1789                             pname);
1790                     return 1;
1791                 }
1792             } else
1793                 ngenerate = 1;
1794         } else if (doing_opts && !strcmp(p, "--print")) {
1795             if (!thegame.can_print) {
1796                 fprintf(stderr, "%s: this game does not support printing\n",
1797                         pname);
1798                 return 1;
1799             }
1800             print = TRUE;
1801             if (--ac > 0) {
1802                 char *dim = *++av;
1803                 if (sscanf(dim, "%dx%d", &px, &py) != 2) {
1804                     fprintf(stderr, "%s: unable to parse argument '%s' to "
1805                             "'--print'\n", pname, dim);
1806                     return 1;
1807                 }
1808             } else {
1809                 px = py = 1;
1810             }
1811         } else if (doing_opts && !strcmp(p, "--scale")) {
1812             if (--ac > 0) {
1813                 scale = atof(*++av);
1814             } else {
1815                 fprintf(stderr, "%s: no argument supplied to '--scale'\n",
1816                         pname);
1817                 return 1;
1818             }
1819         } else if (doing_opts && (!strcmp(p, "--with-solutions") ||
1820                                   !strcmp(p, "--with-solution") ||
1821                                   !strcmp(p, "--with-solns") ||
1822                                   !strcmp(p, "--with-soln") ||
1823                                   !strcmp(p, "--solutions") ||
1824                                   !strcmp(p, "--solution") ||
1825                                   !strcmp(p, "--solns") ||
1826                                   !strcmp(p, "--soln"))) {
1827             soln = TRUE;
1828         } else if (doing_opts && !strcmp(p, "--colour")) {
1829             if (!thegame.can_print_in_colour) {
1830                 fprintf(stderr, "%s: this game does not support colour"
1831                         " printing\n", pname);
1832                 return 1;
1833             }
1834             colour = TRUE;
1835         } else if (doing_opts && !strcmp(p, "--")) {
1836             doing_opts = FALSE;
1837         } else if (!doing_opts || p[0] != '-') {
1838             if (arg) {
1839                 fprintf(stderr, "%s: more than one argument supplied\n",
1840                         pname);
1841                 return 1;
1842             }
1843             arg = p;
1844         } else {
1845             sprintf(errbuf, "%.100s: unrecognised option '%.100s'\n",
1846                     pname, p);
1847             break;
1848         }
1849     }
1850
1851     /*
1852      * Special standalone mode for generating puzzle IDs on the
1853      * command line. Useful for generating puzzles to be printed
1854      * out and solved offline (for puzzles where that even makes
1855      * sense - Solo, for example, is a lot more pencil-and-paper
1856      * friendly than Twiddle!)
1857      *
1858      * Usage:
1859      *
1860      *   <puzzle-name> --generate [<n> [<params>]]
1861      *
1862      * <n>, if present, is the number of puzzle IDs to generate.
1863      * <params>, if present, is the same type of parameter string
1864      * you would pass to the puzzle when running it in GUI mode,
1865      * including optional extras such as the expansion factor in
1866      * Rectangles and the difficulty level in Solo.
1867      *
1868      * If you specify <params>, you must also specify <n> (although
1869      * you may specify it to be 1). Sorry; that was the
1870      * simplest-to-parse command-line syntax I came up with.
1871      */
1872     if (ngenerate > 0 || print) {
1873         int i, n = 1;
1874         midend *me;
1875         char *id;
1876         document *doc = NULL;
1877
1878         if (*errbuf) {
1879             fputs(errbuf, stderr);
1880             return 1;
1881         }
1882
1883         n = ngenerate;
1884
1885         me = midend_new(NULL, &thegame, NULL, NULL);
1886         i = 0;
1887
1888         if (print)
1889             doc = document_new(px, py, scale);
1890
1891         /*
1892          * In this loop, we either generate a game ID or read one
1893          * from stdin depending on whether we're in generate mode;
1894          * then we either write it to stdout or print it, depending
1895          * on whether we're in print mode. Thus, this loop handles
1896          * generate-to-stdout, print-from-stdin and generate-and-
1897          * immediately-print modes.
1898          *
1899          * (It could also handle a copy-stdin-to-stdout mode,
1900          * although there's currently no combination of options
1901          * which will cause this loop to be activated in that mode.
1902          * It wouldn't be _entirely_ pointless, though, because
1903          * stdin could contain bare params strings or random-seed
1904          * IDs, and stdout would contain nothing but fully
1905          * generated descriptive game IDs.)
1906          */
1907         while (ngenerate == 0 || i < n) {
1908             char *pstr, *err;
1909
1910             if (ngenerate == 0) {
1911                 pstr = fgetline(stdin);
1912                 if (!pstr)
1913                     break;
1914                 pstr[strcspn(pstr, "\r\n")] = '\0';
1915             } else {
1916                 if (arg) {
1917                     pstr = snewn(strlen(arg) + 40, char);
1918
1919                     strcpy(pstr, arg);
1920                     if (i > 0 && strchr(arg, '#'))
1921                         sprintf(pstr + strlen(pstr), "-%d", i);
1922                 } else
1923                     pstr = NULL;
1924             }
1925
1926             if (pstr) {
1927                 err = midend_game_id(me, pstr);
1928                 if (err) {
1929                     fprintf(stderr, "%s: error parsing '%s': %s\n",
1930                             pname, pstr, err);
1931                     return 1;
1932                 }
1933             }
1934             sfree(pstr);
1935
1936             midend_new_game(me);
1937
1938             if (doc) {
1939                 err = midend_print_puzzle(me, doc, soln);
1940                 if (err) {
1941                     fprintf(stderr, "%s: error in printing: %s\n", pname, err);
1942                     return 1;
1943                 }
1944             } else {
1945                 id = midend_get_game_id(me);
1946                 puts(id);
1947                 sfree(id);
1948             }
1949
1950             i++;
1951         }
1952
1953         if (doc) {
1954             psdata *ps = ps_init(stdout, colour);
1955             document_print(doc, ps_drawing_api(ps));
1956             document_free(doc);
1957             ps_free(ps);
1958         }
1959
1960         midend_free(me);
1961
1962         return 0;
1963     } else {
1964
1965         gtk_init(&argc, &argv);
1966
1967         if (!new_window(argc > 1 ? argv[1] : NULL, &error)) {
1968             fprintf(stderr, "%s: %s\n", pname, error);
1969             return 1;
1970         }
1971
1972         gtk_main();
1973     }
1974
1975     return 0;
1976 }