Use the appalling gnome-terminal hack for server-controlled resizes
[sgt/putty] / unix / pterm.c
index 4063ca8..3ae931f 100644 (file)
 #define NCOLOURS (lenof(((Config *)0)->colours))
 
 struct gui_data {
-    GtkWidget *area, *sbar;
+    GtkWidget *window, *area, *sbar;
     GtkBox *hbox;
     GtkAdjustment *sbar_adjust;
     GdkPixmap *pixmap;
     GdkFont *fonts[2];                 /* normal and bold (for now!) */
-    GdkCursor *rawcursor, *textcursor;
+    GdkCursor *rawcursor, *textcursor, *blankcursor, *currcursor;
     GdkColor cols[NCOLOURS];
     GdkColormap *colmap;
     wchar_t *pastein_data;
@@ -37,6 +37,12 @@ struct gui_data {
     char *pasteout_data;
     int pasteout_data_len;
     int font_width, font_height;
+    int ignore_sbar;
+    int mouseptr_visible;
+    guint term_paste_idle_id;
+    GdkAtom compound_text_atom;
+    char wintitle[sizeof(((Config *)0)->wintitle)];
+    char icontitle[sizeof(((Config *)0)->wintitle)];
 };
 
 static struct gui_data the_inst;
@@ -56,8 +62,10 @@ void ldisc_update(int echo, int edit)
 int askappend(char *filename)
 {
     /*
-     * FIXME: for the moment we just wipe the log file. Since I
-     * haven't yet enabled logging, this shouldn't matter yet!
+     * Logging in an xterm-alike is liable to be something you only
+     * do at serious diagnostic need. Hence, I'm going to take the
+     * easy option for now and assume we always want to overwrite
+     * log files. I can always make it properly configurable later.
      */
     return 2;
 }
@@ -65,10 +73,20 @@ int askappend(char *filename)
 void logevent(char *string)
 {
     /*
-     * FIXME: event log entries are currently ignored.
+     * This is not a very helpful function: events are logged
+     * pretty much exclusively by the back end, and our pty back
+     * end is self-contained. So we need do nothing.
      */
 }
 
+int font_dimension(int which)         /* 0 for width, 1 for height */
+{
+    if (which)
+       return inst->font_height;
+    else
+       return inst->font_width;
+}
+
 /*
  * Translate a raw mouse button designation (LEFT, MIDDLE, RIGHT)
  * into a cooked one (SELECT, EXTEND, PASTE).
@@ -95,7 +113,15 @@ Mouse_Button translate_button(Mouse_Button button)
  */
 void set_iconic(int iconic)
 {
-    /* FIXME: currently ignored */
+    /*
+     * GTK 1.2 doesn't know how to do this.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    if (iconic)
+       gtk_window_iconify(GTK_WINDOW(inst->window));
+    else
+       gtk_window_deiconify(GTK_WINDOW(inst->window));
+#endif
 }
 
 /*
@@ -103,7 +129,16 @@ void set_iconic(int iconic)
  */
 void move_window(int x, int y)
 {
-    /* FIXME: currently ignored */
+    /*
+     * I assume that when the GTK version of this call is available
+     * we should use it. Not sure how it differs from the GDK one,
+     * though.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_window_move(GTK_WINDOW(inst->window), x, y);
+#else
+    gdk_window_move(inst->window->window, x, y);
+#endif
 }
 
 /*
@@ -112,7 +147,10 @@ void move_window(int x, int y)
  */
 void set_zorder(int top)
 {
-    /* FIXME: currently ignored */
+    if (top)
+       gdk_window_raise(inst->window->window);
+    else
+       gdk_window_lower(inst->window->window);
 }
 
 /*
@@ -120,7 +158,7 @@ void set_zorder(int top)
  */
 void refresh_window(void)
 {
-    /* FIXME: currently ignored */
+    term_invalidate();
 }
 
 /*
@@ -129,7 +167,15 @@ void refresh_window(void)
  */
 void set_zoomed(int zoomed)
 {
-    /* FIXME: currently ignored */
+    /*
+     * GTK 1.2 doesn't know how to do this.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    if (iconic)
+       gtk_window_maximize(GTK_WINDOW(inst->window));
+    else
+       gtk_window_unmaximize(GTK_WINDOW(inst->window));
+#endif
 }
 
 /*
@@ -137,7 +183,7 @@ void set_zoomed(int zoomed)
  */
 int is_iconic(void)
 {
-    return 0;                         /* FIXME */
+    return !gdk_window_is_viewable(inst->window->window);
 }
 
 /*
@@ -145,7 +191,16 @@ int is_iconic(void)
  */
 void get_window_pos(int *x, int *y)
 {
-    *x = 3; *y = 4;                   /* FIXME */
+    /*
+     * I assume that when the GTK version of this call is available
+     * we should use it. Not sure how it differs from the GDK one,
+     * though.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_window_get_position(GTK_WINDOW(inst->window), x, y);
+#else
+    gdk_window_get_position(inst->window->window, x, y);
+#endif
 }
 
 /*
@@ -153,7 +208,16 @@ void get_window_pos(int *x, int *y)
  */
 void get_window_pixels(int *x, int *y)
 {
-    *x = 1; *y = 2;                   /* FIXME */
+    /*
+     * I assume that when the GTK version of this call is available
+     * we should use it. Not sure how it differs from the GDK one,
+     * though.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_window_get_size(GTK_WINDOW(inst->window), x, y);
+#else
+    gdk_window_get_size(inst->window->window, x, y);
+#endif
 }
 
 /*
@@ -161,32 +225,55 @@ void get_window_pixels(int *x, int *y)
  */
 char *get_window_title(int icon)
 {
-    return "FIXME: window title retrieval not yet implemented";
+    return icon ? inst->wintitle : inst->icontitle;
 }
 
 gint delete_window(GtkWidget *widget, GdkEvent *event, gpointer data)
 {
     /*
-     * FIXME: warn on close?
+     * We could implement warn-on-close here if we really wanted
+     * to.
      */
     return FALSE;
 }
 
+void show_mouseptr(int show)
+{
+    if (!cfg.hide_mouseptr)
+       show = 1;
+    if (show)
+       gdk_window_set_cursor(inst->area->window, inst->currcursor);
+    else
+       gdk_window_set_cursor(inst->area->window, inst->blankcursor);
+    inst->mouseptr_visible = show;
+}
+
 gint configure_area(GtkWidget *widget, GdkEventConfigure *event, gpointer data)
 {
     struct gui_data *inst = (struct gui_data *)data;
+    int w, h, need_size = 0;
 
-    if (inst->pixmap)
-       gdk_pixmap_unref(inst->pixmap);
-
-    inst->pixmap = gdk_pixmap_new(widget->window,
-                                 (cfg.width * inst->font_width +
-                                  2*cfg.window_border),
-                                 (cfg.height * inst->font_height +
-                                  2*cfg.window_border), -1);
+    w = (event->width - 2*cfg.window_border) / inst->font_width;
+    h = (event->height - 2*cfg.window_border) / inst->font_height;
 
-    {
+    if (w != cfg.width || h != cfg.height) {
+       if (inst->pixmap) {
+           gdk_pixmap_unref(inst->pixmap);
+           inst->pixmap = NULL;
+       }
+       cfg.width = w;
+       cfg.height = h;
+       need_size = 1;
+    }
+    if (!inst->pixmap) {
        GdkGC *gc;
+
+       inst->pixmap = gdk_pixmap_new(widget->window,
+                                     (cfg.width * inst->font_width +
+                                      2*cfg.window_border),
+                                     (cfg.height * inst->font_height +
+                                      2*cfg.window_border), -1);
+
        gc = gdk_gc_new(inst->area->window);
        gdk_gc_set_foreground(gc, &inst->cols[18]);   /* default background */
        gdk_draw_rectangle(inst->pixmap, gc, 1, 0, 0,
@@ -195,34 +282,8 @@ gint configure_area(GtkWidget *widget, GdkEventConfigure *event, gpointer data)
        gdk_gc_unref(gc);
     }
 
-    /*
-     * Set up the colour map.
-     */
-    inst->colmap = gdk_colormap_get_system();
-    {
-       static const int ww[] = {
-           6, 7, 8, 9, 10, 11, 12, 13,
-           14, 15, 16, 17, 18, 19, 20, 21,
-           0, 1, 2, 3, 4, 5
-       };
-       gboolean success[NCOLOURS];
-       int i;
-
-       assert(lenof(ww) == NCOLOURS);
-
-       for (i = 0; i < NCOLOURS; i++) {
-           inst->cols[i].red = cfg.colours[ww[i]][0] * 0x0101;
-           inst->cols[i].green = cfg.colours[ww[i]][1] * 0x0101;
-           inst->cols[i].blue = cfg.colours[ww[i]][2] * 0x0101;
-       }
-
-       gdk_colormap_alloc_colors(inst->colmap, inst->cols, NCOLOURS,
-                                 FALSE, FALSE, success);
-       for (i = 0; i < NCOLOURS; i++) {
-           if (!success[i])
-               g_error("pterm: couldn't allocate colour %d (#%02x%02x%02x)\n",
-                       i, cfg.colours[i][0], cfg.colours[i][1], cfg.colours[i][2]);
-       }
+    if (need_size) {
+       term_size(h, w, cfg.savelines);
     }
 
     return TRUE;
@@ -270,8 +331,6 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
 
        /*
         * NYI:
-        *  - Shift-PgUp/PgDn for scrollbar
-        *  - nethack mode
         *  - alt+numpad
         *  - Compose key (!!! requires Unicode faff before even trying)
         */
@@ -353,6 +412,32 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
        }
 
        /*
+        * NetHack keypad mode.
+        */
+       if (cfg.nethack_keypad) {
+           char *keys = NULL;
+           switch (event->keyval) {
+             case GDK_KP_1: case GDK_KP_End: keys = "bB"; break;
+             case GDK_KP_2: case GDK_KP_Down: keys = "jJ"; break;
+             case GDK_KP_3: case GDK_KP_Page_Down: keys = "nN"; break;
+             case GDK_KP_4: case GDK_KP_Left: keys = "hH"; break;
+             case GDK_KP_5: case GDK_KP_Begin: keys = ".."; break;
+             case GDK_KP_6: case GDK_KP_Right: keys = "lL"; break;
+             case GDK_KP_7: case GDK_KP_Home: keys = "yY"; break;
+             case GDK_KP_8: case GDK_KP_Up: keys = "kK"; break;
+             case GDK_KP_9: case GDK_KP_Page_Up: keys = "uU"; break;
+           }
+           if (keys) {
+               end = 2;
+               if (event->state & GDK_SHIFT_MASK)
+                   output[1] = keys[1];
+               else
+                   output[1] = keys[0];
+               goto done;
+           }
+       }
+
+       /*
         * Application keypad mode.
         */
        if (app_keypad_keys && !cfg.no_applic_k) {
@@ -620,8 +705,11 @@ gint key_event(GtkWidget *widget, GdkEventKey *event, gpointer data)
            printf("\n");
        }
 #endif
-       ldisc_send(output+start, end-start, 1);
-       term_out();
+       if (end-start > 0) {
+           ldisc_send(output+start, end-start, 1);
+           show_mouseptr(0);
+           term_out();
+       }
     }
 
     return TRUE;
@@ -632,6 +720,8 @@ gint button_event(GtkWidget *widget, GdkEventButton *event, gpointer data)
     struct gui_data *inst = (struct gui_data *)data;
     int shift, ctrl, alt, x, y, button, act;
 
+    show_mouseptr(1);
+
     shift = event->state & GDK_SHIFT_MASK;
     ctrl = event->state & GDK_CONTROL_MASK;
     alt = event->state & GDK_MOD1_MASK;
@@ -669,6 +759,8 @@ gint motion_event(GtkWidget *widget, GdkEventMotion *event, gpointer data)
     struct gui_data *inst = (struct gui_data *)data;
     int shift, ctrl, alt, x, y, button;
 
+    show_mouseptr(1);
+
     shift = event->state & GDK_SHIFT_MASK;
     ctrl = event->state & GDK_CONTROL_MASK;
     alt = event->state & GDK_MOD1_MASK;
@@ -692,6 +784,19 @@ gint motion_event(GtkWidget *widget, GdkEventMotion *event, gpointer data)
 gint timer_func(gpointer data)
 {
     /* struct gui_data *inst = (struct gui_data *)data; */
+    extern int pty_child_is_dead();  /* declared in pty.c */
+
+    if (pty_child_is_dead()) {
+       /*
+        * The primary child process died. We could keep the
+        * terminal open for remaining subprocesses to output to,
+        * but conventional wisdom seems to feel that that's the
+        * Wrong Thing for an xterm-alike, so we bail out now. This
+        * would be easy enough to change or make configurable if
+        * necessary.
+        */
+       exit(0);
+    }
 
     term_update();
     return TRUE;
@@ -733,6 +838,7 @@ gint focus_event(GtkWidget *widget, GdkEventFocus *event, gpointer data)
     has_focus = event->in;
     term_out();
     term_update();
+    show_mouseptr(1);
     return FALSE;
 }
 
@@ -744,23 +850,137 @@ void set_raw_mouse_mode(int activate)
     activate = activate && !cfg.no_mouse_rep;
     send_raw_mouse = activate;
     if (send_raw_mouse)
-       gdk_window_set_cursor(inst->area->window, inst->rawcursor);
+       inst->currcursor = inst->rawcursor;
     else
-       gdk_window_set_cursor(inst->area->window, inst->textcursor);
+       inst->currcursor = inst->textcursor;
+    show_mouseptr(inst->mouseptr_visible);
 }
 
 void request_resize(int w, int h)
 {
-    /* FIXME: currently ignored */
+    int large_x, large_y;
+    int offset_x, offset_y;
+    int area_x, area_y;
+    GtkRequisition inner, outer;
+
+    /*
+     * This is a heinous hack dreamed up by the gnome-terminal
+     * people to get around a limitation in gtk. The problem is
+     * that in order to set the size correctly we really need to be
+     * calling gtk_window_resize - but that needs to know the size
+     * of the _whole window_, not the drawing area. So what we do
+     * is to set an artificially huge size request on the drawing
+     * area, recompute the resulting size request on the window,
+     * and look at the difference between the two. That gives us
+     * the x and y offsets we need to translate drawing area size
+     * into window size for real, and then we call
+     * gtk_window_resize.
+     */
+
+    /*
+     * We start by retrieving the current size of the whole window.
+     * Adding a bit to _that_ will give us a value we can use as a
+     * bogus size request which guarantees to be bigger than the
+     * current size of the drawing area.
+     */
+    get_window_pixels(&large_x, &large_y);
+    large_x += 32;
+    large_y += 32;
+
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_widget_set_size_request(inst->area, large_x, large_y);
+#else
+    gtk_widget_set_usize(inst->area, large_x, large_y);
+#endif
+    gtk_widget_size_request(inst->area, &inner);
+    gtk_widget_size_request(inst->window, &outer);
+
+    offset_x = outer.width - inner.width;
+    offset_y = outer.height - inner.height;
+
+    area_x = inst->font_width * w + 2*cfg.window_border;
+    area_y = inst->font_height * h + 2*cfg.window_border;
+
+    /*
+     * Now we must set the size request on the drawing area back to
+     * something sensible before we commit the real resize. Best
+     * way to do this, I think, is to set it to what the size is
+     * really going to end up being.
+     */
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_widget_set_size_request(inst->area, area_x, area_y);
+#else
+    gtk_widget_set_usize(inst->area, area_x, area_y);
+#endif
+
+#if GTK_CHECK_VERSION(2,0,0)
+    gtk_window_resize(GTK_WINDOW(inst->window),
+                     area_x + offset_x, area_y + offset_y);
+#else
+    gdk_window_resize(inst->window->window,
+                     area_x + offset_x, area_y + offset_y);
+#endif
+}
+
+void real_palette_set(int n, int r, int g, int b)
+{
+    gboolean success[1];
+
+    inst->cols[n].red = r * 0x0101;
+    inst->cols[n].green = g * 0x0101;
+    inst->cols[n].blue = b * 0x0101;
+
+    gdk_colormap_alloc_colors(inst->colmap, inst->cols + n, 1,
+                             FALSE, FALSE, success);
+    if (!success[0])
+       g_error("pterm: couldn't allocate colour %d (#%02x%02x%02x)\n",
+               n, r, g, b);
 }
 
 void palette_set(int n, int r, int g, int b)
 {
-    /* FIXME: currently ignored */
+    static const int first[21] = {
+       0, 2, 4, 6, 8, 10, 12, 14,
+       1, 3, 5, 7, 9, 11, 13, 15,
+       16, 17, 18, 20, 22
+    };
+    real_palette_set(first[n], r, g, b);
+    if (first[n] >= 18)
+       real_palette_set(first[n] + 1, r, g, b);
 }
+
 void palette_reset(void)
 {
-    /* FIXME: currently ignored */
+    /* This maps colour indices in cfg to those used in inst->cols. */
+    static const int ww[] = {
+       6, 7, 8, 9, 10, 11, 12, 13,
+        14, 15, 16, 17, 18, 19, 20, 21,
+       0, 1, 2, 3, 4, 5
+    };
+    gboolean success[NCOLOURS];
+    int i;
+
+    assert(lenof(ww) == NCOLOURS);
+
+    if (!inst->colmap) {
+       inst->colmap = gdk_colormap_get_system();
+    } else {
+       gdk_colormap_free_colors(inst->colmap, inst->cols, NCOLOURS);
+    }
+
+    for (i = 0; i < NCOLOURS; i++) {
+       inst->cols[i].red = cfg.colours[ww[i]][0] * 0x0101;
+       inst->cols[i].green = cfg.colours[ww[i]][1] * 0x0101;
+       inst->cols[i].blue = cfg.colours[ww[i]][2] * 0x0101;
+    }
+
+    gdk_colormap_alloc_colors(inst->colmap, inst->cols, NCOLOURS,
+                             FALSE, FALSE, success);
+    for (i = 0; i < NCOLOURS; i++) {
+       if (!success[i])
+           g_error("pterm: couldn't allocate colour %d (#%02x%02x%02x)\n",
+                   i, cfg.colours[i][0], cfg.colours[i][1], cfg.colours[i][2]);
+    }
 }
 
 void write_clip(wchar_t * data, int len, int must_deselect)
@@ -776,6 +996,8 @@ void write_clip(wchar_t * data, int len, int must_deselect)
                                GDK_CURRENT_TIME)) {
        gtk_selection_add_target(inst->area, GDK_SELECTION_PRIMARY,
                                 GDK_SELECTION_TYPE_STRING, 1);
+       gtk_selection_add_target(inst->area, GDK_SELECTION_PRIMARY,
+                                inst->compound_text_atom, 1);
     }
 }
 
@@ -808,6 +1030,8 @@ void request_paste(void)
                          GDK_SELECTION_TYPE_STRING, GDK_CURRENT_TIME);
 }
 
+gint idle_paste_func(gpointer data);   /* forward ref */
+
 void selection_received(GtkWidget *widget, GtkSelectionData *seldata,
                        gpointer data)
 {
@@ -824,8 +1048,24 @@ void selection_received(GtkWidget *widget, GtkSelectionData *seldata,
             inst->pastein_data, inst->pastein_data_len);
 
     term_do_paste();
+
+    if (term_paste_pending())
+       inst->term_paste_idle_id = gtk_idle_add(idle_paste_func, inst);
 }
 
+gint idle_paste_func(gpointer data)
+{
+    struct gui_data *inst = (struct gui_data *)data;
+
+    if (term_paste_pending())
+       term_paste();
+    else
+       gtk_idle_remove(inst->term_paste_idle_id);
+
+    return TRUE;
+}
+
+
 void get_clip(wchar_t ** p, int *len)
 {
     if (p) {
@@ -836,28 +1076,39 @@ void get_clip(wchar_t ** p, int *len)
 
 void set_title(char *title)
 {
-    /* FIXME: currently ignored */
+    strncpy(inst->wintitle, title, lenof(inst->wintitle));
+    inst->wintitle[lenof(inst->wintitle)-1] = '\0';
+    gtk_window_set_title(GTK_WINDOW(inst->window), inst->wintitle);
 }
 
 void set_icon(char *title)
 {
-    /* FIXME: currently ignored */
+    strncpy(inst->icontitle, title, lenof(inst->icontitle));
+    inst->icontitle[lenof(inst->icontitle)-1] = '\0';
+    gdk_window_set_icon_name(inst->window->window, inst->icontitle);
 }
 
 void set_sbar(int total, int start, int page)
 {
+    if (!cfg.scrollbar)
+       return;
     inst->sbar_adjust->lower = 0;
     inst->sbar_adjust->upper = total;
     inst->sbar_adjust->value = start;
     inst->sbar_adjust->page_size = page;
     inst->sbar_adjust->step_increment = 1;
     inst->sbar_adjust->page_increment = page/2;
+    inst->ignore_sbar = TRUE;
     gtk_adjustment_changed(inst->sbar_adjust);
+    inst->ignore_sbar = FALSE;
 }
 
 void scrollbar_moved(GtkAdjustment *adj, gpointer data)
 {
-    term_scroll(1, (int)adj->value);
+    if (!cfg.scrollbar)
+       return;
+    if (!inst->ignore_sbar)
+       term_scroll(1, (int)adj->value);
 }
 
 void sys_cursor(int x, int y)
@@ -911,12 +1162,9 @@ void do_text(Context ctx, int x, int y, char *text, int len,
 
     /*
      * NYI:
-     *  - ATTR_WIDE (is this for Unicode CJK? I hope so)
-     *  - LATTR_* (ESC # 4 double-width and double-height stuff)
+     *  - Unicode, code pages, and ATTR_WIDE for CJK support.
      *  - cursor shapes other than block
-     *  - VT100 line drawing stuff; code pages in general!
      *  - shadow bolding
-     *  - underline
      */
 
     nfg = 2 * ((attr & ATTR_FGMASK) >> ATTR_FGSHIFT);
@@ -935,6 +1183,14 @@ void do_text(Context ctx, int x, int y, char *text, int len,
        nbg = NCOLOURS-1;
     }
 
+    if (lattr != LATTR_NORM) {
+       x *= 2;
+       if (x >= cols)
+           return;
+       if (x + len*2 > cols)
+           len = (cols-x)/2;          /* trim to LH half */
+    }
+
     gdk_gc_set_foreground(gc, &inst->cols[nbg]);
     gdk_draw_rectangle(inst->pixmap, gc, 1,
                       x*inst->font_width+cfg.window_border,
@@ -957,6 +1213,44 @@ void do_text(Context ctx, int x, int y, char *text, int len,
                      y*inst->font_height + uheight + cfg.window_border);
     }
 
+    if (lattr != LATTR_NORM) {
+       /*
+        * I can't find any plausible StretchBlt equivalent in the
+        * X server, so I'm going to do this the slow and painful
+        * way. This will involve repeated calls to
+        * gdk_draw_pixmap() to stretch the text horizontally. It's
+        * O(N^2) in time and O(N) in network bandwidth, but you
+        * try thinking of a better way. :-(
+        */
+       int i;
+       for (i = 0; i < len * inst->font_width; i++) {
+           gdk_draw_pixmap(inst->pixmap, gc, inst->pixmap,
+                           x*inst->font_width+cfg.window_border + 2*i,
+                           y*inst->font_height+cfg.window_border,
+                           x*inst->font_width+cfg.window_border + 2*i+1,
+                           y*inst->font_height+cfg.window_border,
+                           len * inst->font_width - i, inst->font_height);
+       }
+       len *= 2;
+       if (lattr != LATTR_WIDE) {
+           int dt, db;
+           /* Now stretch vertically, in the same way. */
+           if (lattr == LATTR_BOT)
+               dt = 0, db = 1;
+           else
+               dt = 1, db = 0;
+           for (i = 0; i < inst->font_height; i+=2) {
+               gdk_draw_pixmap(inst->pixmap, gc, inst->pixmap,
+                               x*inst->font_width+cfg.window_border,
+                               y*inst->font_height+cfg.window_border+dt*i+db,
+                               x*inst->font_width+cfg.window_border,
+                               y*inst->font_height+cfg.window_border+dt*(i+1),
+                               len * inst->font_width, inst->font_height-i-1);
+           }
+       }
+       len *= 2;
+    }
+
     gdk_draw_pixmap(inst->area->window, gc, inst->pixmap,
                    x*inst->font_width+cfg.window_border,
                    y*inst->font_height+cfg.window_border,
@@ -995,6 +1289,98 @@ void do_cursor(Context ctx, int x, int y, char *text, int len,
     }
 }
 
+GdkCursor *make_mouse_ptr(int cursor_val)
+{
+    /*
+     * Truly hideous hack: GTK doesn't allow us to set the mouse
+     * cursor foreground and background colours unless we've _also_
+     * created our own cursor from bitmaps. Therefore, I need to
+     * load the `cursor' font and draw glyphs from it on to
+     * pixmaps, in order to construct my cursors with the fg and bg
+     * I want. This is a gross hack, but it's more self-contained
+     * than linking in Xlib to find the X window handle to
+     * inst->area and calling XRecolorCursor, and it's more
+     * futureproof than hard-coding the shapes as bitmap arrays.
+     */
+    static GdkFont *cursor_font = NULL;
+    GdkPixmap *source, *mask;
+    GdkGC *gc;
+    GdkColor cfg = { 0, 65535, 65535, 65535 };
+    GdkColor cbg = { 0, 0, 0, 0 };
+    GdkColor dfg = { 1, 65535, 65535, 65535 };
+    GdkColor dbg = { 0, 0, 0, 0 };
+    GdkCursor *ret;
+    gchar text[2];
+    gint lb, rb, wid, asc, desc, w, h, x, y;
+
+    if (cursor_val == -2) {
+       gdk_font_unref(cursor_font);
+       return NULL;
+    }
+
+    if (cursor_val >= 0 && !cursor_font)
+       cursor_font = gdk_font_load("cursor");
+
+    /*
+     * Get the text extent of the cursor in question. We use the
+     * mask character for this, because it's typically slightly
+     * bigger than the main character.
+     */
+    if (cursor_val >= 0) {
+       text[1] = '\0';
+       text[0] = (char)cursor_val + 1;
+       gdk_string_extents(cursor_font, text, &lb, &rb, &wid, &asc, &desc);
+       w = rb-lb; h = asc+desc; x = -lb; y = asc;
+    } else {
+       w = h = 1;
+       x = y = 0;
+    }
+
+    source = gdk_pixmap_new(NULL, w, h, 1);
+    mask = gdk_pixmap_new(NULL, w, h, 1);
+
+    /*
+     * Draw the mask character on the mask pixmap.
+     */
+    gc = gdk_gc_new(mask);
+    gdk_gc_set_foreground(gc, &dbg);
+    gdk_draw_rectangle(mask, gc, 1, 0, 0, w, h);
+    if (cursor_val >= 0) {
+       text[1] = '\0';
+       text[0] = (char)cursor_val + 1;
+       gdk_gc_set_foreground(gc, &dfg);
+       gdk_draw_text(mask, cursor_font, gc, x, y, text, 1);
+    }
+    gdk_gc_unref(gc);
+
+    /*
+     * Draw the main character on the source pixmap.
+     */
+    gc = gdk_gc_new(source);
+    gdk_gc_set_foreground(gc, &dbg);
+    gdk_draw_rectangle(source, gc, 1, 0, 0, w, h);
+    if (cursor_val >= 0) {
+       text[1] = '\0';
+       text[0] = (char)cursor_val;
+       gdk_gc_set_foreground(gc, &dfg);
+       gdk_draw_text(source, cursor_font, gc, x, y, text, 1);
+    }
+    gdk_gc_unref(gc);
+
+    /*
+     * Create the cursor.
+     */
+    ret = gdk_cursor_new_from_pixmap(source, mask, &cfg, &cbg, x, y);
+
+    /*
+     * Clean up.
+     */
+    gdk_pixmap_unref(source);
+    gdk_pixmap_unref(mask);
+
+    return ret;
+}
+
 void modalfatalbox(char *p, ...)
 {
     va_list ap;
@@ -1006,37 +1392,109 @@ void modalfatalbox(char *p, ...)
     exit(1);
 }
 
+char *get_x_display(void)
+{
+    return gdk_get_display();
+}
+
 int main(int argc, char **argv)
 {
-    GtkWidget *window;
     extern int pty_master_fd;         /* declared in pty.c */
+    extern char **pty_argv;           /* declared in pty.c */
+    int err = 0;
 
     gtk_init(&argc, &argv);
 
     do_defaults(NULL, &cfg);
 
+    while (--argc > 0) {
+       char *p = *++argv;
+       if (!strcmp(p, "-fn")) {
+           if (--argc > 0) {
+               strncpy(cfg.font, *++argv, sizeof(cfg.font));
+               cfg.font[sizeof(cfg.font)-1] = '\0';
+           } else
+               err = 1, fprintf(stderr, "pterm: -fn expects an argument\n");
+       }
+       if (!strcmp(p, "-e")) {
+           if (--argc > 0) {
+               int i;
+               pty_argv = smalloc((argc+1) * sizeof(char *));
+               ++argv;
+               for (i = 0; i < argc; i++)
+                   pty_argv[i] = argv[i];
+               pty_argv[argc] = NULL;
+               break;                 /* finished command-line processing */
+           } else
+               err = 1, fprintf(stderr, "pterm: -e expects an argument\n");
+       }
+       if (!strcmp(p, "-T")) {
+           if (--argc > 0) {
+               strncpy(cfg.wintitle, *++argv, sizeof(cfg.wintitle));
+               cfg.wintitle[sizeof(cfg.wintitle)-1] = '\0';
+           } else
+               err = 1, fprintf(stderr, "pterm: -T expects an argument\n");
+       }
+       if (!strcmp(p, "-log")) {
+           if (--argc > 0) {
+               strncpy(cfg.logfilename, *++argv, sizeof(cfg.logfilename));
+               cfg.logfilename[sizeof(cfg.logfilename)-1] = '\0';
+               cfg.logtype = LGTYP_DEBUG;
+           } else
+               err = 1, fprintf(stderr, "pterm: -log expects an argument\n");
+       }
+       if (!strcmp(p, "-hide")) {
+           cfg.hide_mouseptr = 1;
+       }
+       if (!strcmp(p, "-ut-")) {
+           cfg.stamp_utmp = 0;
+       }
+       if (!strcmp(p, "-ls-")) {
+           cfg.login_shell = 0;
+       }
+       if (!strcmp(p, "-nethack")) {
+           cfg.nethack_keypad = 1;
+       }
+       if (!strcmp(p, "-sb-")) {
+           cfg.scrollbar = 0;
+       }
+    }
+
     inst->fonts[0] = gdk_font_load(cfg.font);
     inst->fonts[1] = NULL;             /* FIXME: what about bold font? */
     inst->font_width = gdk_char_width(inst->fonts[0], ' ');
     inst->font_height = inst->fonts[0]->ascent + inst->fonts[0]->descent;
 
+    inst->compound_text_atom = gdk_atom_intern("COMPOUND_TEXT", FALSE);
+
     init_ucs();
 
-    back = &pty_backend;
-    back->init(NULL, 0, NULL, 0);
+    inst->window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
+
+    if (cfg.wintitle[0])
+       set_title(cfg.wintitle);
+    else
+       set_title("pterm");
+
+    /*
+     * Set up the colour map.
+     */
+    palette_reset();
 
-    window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
     inst->area = gtk_drawing_area_new();
     gtk_drawing_area_size(GTK_DRAWING_AREA(inst->area),
                          inst->font_width * cfg.width + 2*cfg.window_border,
                          inst->font_height * cfg.height + 2*cfg.window_border);
-    inst->sbar_adjust = GTK_ADJUSTMENT(gtk_adjustment_new(0, 0, 0, 0, 0, 0));
-    inst->sbar = gtk_vscrollbar_new(inst->sbar_adjust);
+    if (cfg.scrollbar) {
+       inst->sbar_adjust = GTK_ADJUSTMENT(gtk_adjustment_new(0,0,0,0,0,0));
+       inst->sbar = gtk_vscrollbar_new(inst->sbar_adjust);
+    }
     inst->hbox = GTK_BOX(gtk_hbox_new(FALSE, 0));
-    gtk_box_pack_start(inst->hbox, inst->area, FALSE, FALSE, 0);
-    gtk_box_pack_start(inst->hbox, inst->sbar, FALSE, FALSE, 0);
+    gtk_box_pack_start(inst->hbox, inst->area, TRUE, TRUE, 0);
+    if (cfg.scrollbar)
+       gtk_box_pack_start(inst->hbox, inst->sbar, FALSE, FALSE, 0);
 
-    gtk_container_add(GTK_CONTAINER(window), GTK_WIDGET(inst->hbox));
+    gtk_container_add(GTK_CONTAINER(inst->window), GTK_WIDGET(inst->hbox));
 
     {
        GdkGeometry geom;
@@ -1048,20 +1506,20 @@ int main(int argc, char **argv)
        geom.width_inc = inst->font_width;
        geom.height_inc = inst->font_height;
        geom.min_aspect = geom.max_aspect = 0;
-       gtk_window_set_geometry_hints(GTK_WINDOW(window), inst->area, &geom,
+       gtk_window_set_geometry_hints(GTK_WINDOW(inst->window), inst->area, &geom,
                                      GDK_HINT_MIN_SIZE | GDK_HINT_BASE_SIZE |
                                      GDK_HINT_RESIZE_INC);
     }
 
-    gtk_signal_connect(GTK_OBJECT(window), "destroy",
+    gtk_signal_connect(GTK_OBJECT(inst->window), "destroy",
                       GTK_SIGNAL_FUNC(destroy), inst);
-    gtk_signal_connect(GTK_OBJECT(window), "delete_event",
+    gtk_signal_connect(GTK_OBJECT(inst->window), "delete_event",
                       GTK_SIGNAL_FUNC(delete_window), inst);
-    gtk_signal_connect(GTK_OBJECT(window), "key_press_event",
+    gtk_signal_connect(GTK_OBJECT(inst->window), "key_press_event",
                       GTK_SIGNAL_FUNC(key_event), inst);
-    gtk_signal_connect(GTK_OBJECT(window), "focus_in_event",
+    gtk_signal_connect(GTK_OBJECT(inst->window), "focus_in_event",
                       GTK_SIGNAL_FUNC(focus_event), inst);
-    gtk_signal_connect(GTK_OBJECT(window), "focus_out_event",
+    gtk_signal_connect(GTK_OBJECT(inst->window), "focus_out_event",
                       GTK_SIGNAL_FUNC(focus_event), inst);
     gtk_signal_connect(GTK_OBJECT(inst->area), "configure_event",
                       GTK_SIGNAL_FUNC(configure_area), inst);
@@ -1079,26 +1537,35 @@ int main(int argc, char **argv)
                       GTK_SIGNAL_FUNC(selection_get), inst);
     gtk_signal_connect(GTK_OBJECT(inst->area), "selection_clear_event",
                       GTK_SIGNAL_FUNC(selection_clear), inst);
-    gtk_signal_connect(GTK_OBJECT(inst->sbar_adjust), "value_changed",
-                      GTK_SIGNAL_FUNC(scrollbar_moved), inst);
+    if (cfg.scrollbar)
+       gtk_signal_connect(GTK_OBJECT(inst->sbar_adjust), "value_changed",
+                          GTK_SIGNAL_FUNC(scrollbar_moved), inst);
     gtk_timeout_add(20, timer_func, inst);
-    gdk_input_add(pty_master_fd, GDK_INPUT_READ, pty_input_func, inst);
     gtk_widget_add_events(GTK_WIDGET(inst->area),
                          GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK |
                          GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK |
-                         GDK_BUTTON_MOTION_MASK);
+                         GDK_POINTER_MOTION_MASK | GDK_BUTTON_MOTION_MASK);
 
     gtk_widget_show(inst->area);
-    gtk_widget_show(inst->sbar);
+    if (cfg.scrollbar)
+       gtk_widget_show(inst->sbar);
     gtk_widget_show(GTK_WIDGET(inst->hbox));
-    gtk_widget_show(window);
+    gtk_widget_show(inst->window);
 
-    inst->textcursor = gdk_cursor_new(GDK_XTERM);
-    inst->rawcursor = gdk_cursor_new(GDK_ARROW);
-    gdk_window_set_cursor(inst->area->window, inst->textcursor);
+    inst->textcursor = make_mouse_ptr(GDK_XTERM);
+    inst->rawcursor = make_mouse_ptr(GDK_LEFT_PTR);
+    inst->blankcursor = make_mouse_ptr(-1);
+    make_mouse_ptr(-2);                       /* clean up cursor font */
+    inst->currcursor = inst->textcursor;
+    show_mouseptr(1);
+
+    back = &pty_backend;
+    back->init(NULL, 0, NULL, 0);
+
+    gdk_input_add(pty_master_fd, GDK_INPUT_READ, pty_input_func, inst);
 
     term_init();
-    term_size(24, 80, 2000);
+    term_size(cfg.height, cfg.width, cfg.savelines);
 
     gtk_main();