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