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