path: root/widgets/text/e-text.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* EText - Text item for evolution.
 * Copyright (C) 2000, 2001 Ximian Inc.
 *
 * Author: Chris Lahey <clahey@ximian.com>
 * Further hacking by Jon Trowbridge <trow@ximian.com>
 *
 * A majority of code taken from:
 *
 * Text item type for GnomeCanvas widget
 *
 * GnomeCanvas is basically a port of the Tk toolkit's most excellent
 * canvas widget.  Tk is copyrighted by the Regents of the University
 * of California, Sun Microsystems, and other parties.
 *
 * Copyright (C) 1998 The Free Software Foundation
 *
 * Author: Federico Mena <federico@nuclecu.unam.mx> */

#include <config.h>

#include "e-text.h"

#include <math.h>
#include <ctype.h>
#include <string.h>
#include <gdk/gdkx.h> /* for BlackPixel */
#include <gtk/gtkinvisible.h>
#include <gtk/gtkmain.h>
#include <gtk/gtkselection.h>
#include <gtk/gtkwindow.h>
#include <libgnomeui/gnome-canvas-rect-ellipse.h>

#include "gal/widgets/e-canvas.h"
#include "gal/widgets/e-canvas-utils.h"
#include "gal/widgets/e-unicode.h"
#include "gal/util/e-text-event-processor-emacs-like.h"
#include <libart_lgpl/art_affine.h>
#include <libart_lgpl/art_rgb.h>
#include <libart_lgpl/art_rgb_bitmap_affine.h>

#define BORDER_INDENT 4

enum {
    E_TEXT_CHANGED,
    E_TEXT_ACTIVATE,
    E_TEXT_KEYPRESS,
    E_TEXT_POPUP,
    E_TEXT_LAST_SIGNAL
};

static guint e_text_signals[E_TEXT_LAST_SIGNAL] = { 0 };



/* This defines a line of text */
struct line {
    const char *text;   /* Line's text, it is a pointer into the text->text string */
    int length; /* Line's length IN BYTES */
    int width;  /* Line's width in pixels */
    int ellipsis_length;  /* Length before adding ellipsis */
};

/* Object argument IDs */
enum {
    ARG_0,
    ARG_MODEL,
    ARG_EVENT_PROCESSOR,
    ARG_TEXT,
    ARG_FONT,
        ARG_FONTSET,
    ARG_FONT_GDK,
    ARG_FONT_E,
    ARG_BOLD,
    ARG_STRIKEOUT,
    ARG_ANCHOR,
    ARG_JUSTIFICATION,
    ARG_CLIP_WIDTH,
    ARG_CLIP_HEIGHT,
    ARG_CLIP,
    ARG_FILL_CLIP_RECTANGLE,
    ARG_X_OFFSET,
    ARG_Y_OFFSET,
    ARG_FILL_COLOR,
    ARG_FILL_COLOR_GDK,
    ARG_FILL_COLOR_RGBA,
    ARG_FILL_STIPPLE,
    ARG_TEXT_WIDTH,
    ARG_TEXT_HEIGHT,
    ARG_EDITABLE,
    ARG_USE_ELLIPSIS,
    ARG_ELLIPSIS,
    ARG_LINE_WRAP,
    ARG_BREAK_CHARACTERS,
    ARG_MAX_LINES,
    ARG_WIDTH,
    ARG_HEIGHT,
    ARG_DRAW_BORDERS,
    ARG_ALLOW_NEWLINES,
    ARG_DRAW_BACKGROUND,
    ARG_CURSOR_POS
};


enum {
    E_SELECTION_PRIMARY,
    E_SELECTION_CLIPBOARD
};
enum {
  TARGET_STRING,
  TARGET_TEXT,
  TARGET_COMPOUND_TEXT
};

static void e_text_class_init (ETextClass *class);
static void e_text_init (EText *text);
static void e_text_destroy (GtkObject *object);
static void e_text_set_arg (GtkObject *object, GtkArg *arg, guint arg_id);
static void e_text_get_arg (GtkObject *object, GtkArg *arg, guint arg_id);

static void e_text_reflow (GnomeCanvasItem *item, int flags);
static void e_text_update (GnomeCanvasItem *item, double *affine,
                      ArtSVP *clip_path, int flags);
static void e_text_realize (GnomeCanvasItem *item);
static void e_text_unrealize (GnomeCanvasItem *item);
static void e_text_draw (GnomeCanvasItem *item, GdkDrawable *drawable,
                    int x, int y, int width, int height);
static double e_text_point (GnomeCanvasItem *item, double x, double y, int cx, int cy,
                       GnomeCanvasItem **actual_item);
static void e_text_bounds (GnomeCanvasItem *item,
                      double *x1, double *y1, double *x2, double *y2);
static void e_text_render (GnomeCanvasItem *item, GnomeCanvasBuf *buf);
static gint e_text_event (GnomeCanvasItem *item, GdkEvent *event);

static void e_text_command(ETextEventProcessor *tep, ETextEventProcessorCommand *command, gpointer data);

static void e_text_get_selection(EText *text, GdkAtom selection, guint32 time);
static void e_text_supply_selection (EText *text, guint time, GdkAtom selection, guchar *data, gint length);

static void e_text_text_model_changed(ETextModel *model, EText *text);
static void e_text_text_model_reposition (ETextModel *model, ETextModelReposFn fn, gpointer repos_data, gpointer data);

static void _get_tep(EText *text);

static GtkWidget *e_text_get_invisible(EText *text);
static void _selection_clear_event (GtkInvisible *invisible,
                    GdkEventSelection *event,
                    EText *text);
static void _selection_get (GtkInvisible *invisible,
                GtkSelectionData *selection_data,
                guint info,
                guint time_stamp,
                EText *text);
static void _selection_received (GtkInvisible *invisible,
                 GtkSelectionData *selection_data,
                 guint time,
                 EText *text);

#if 0
static ETextSuckFont *e_suck_font (GdkFont *font);
static void e_suck_font_free (ETextSuckFont *suckfont);
#endif

static void e_text_free_lines(EText *text);

static gint text_width_with_objects (ETextModel *model,
                     EFont *font, EFontStyle style,
                     const gchar *text, gint bytelen);

static void calc_height (EText *text);
static void calc_line_widths (EText *text);
static void split_into_lines (EText *text);

static GnomeCanvasItemClass *parent_class;
static GdkAtom clipboard_atom = GDK_NONE;



/**
 * e_text_get_type:
 * @void: 
 * 
 * Registers the &EText class if necessary, and returns the type ID
 * associated to it.
 * 
 * Return value: The type ID of the &EText class.
 **/
GtkType
e_text_get_type (void)
{
    static GtkType text_type = 0;

    if (!text_type) {
        GtkTypeInfo text_info = {
            "EText",
            sizeof (EText),
            sizeof (ETextClass),
            (GtkClassInitFunc) e_text_class_init,
            (GtkObjectInitFunc) e_text_init,
            NULL, /* reserved_1 */
            NULL, /* reserved_2 */
            (GtkClassInitFunc) NULL
        };

        text_type = gtk_type_unique (gnome_canvas_item_get_type (), &text_info);
    }

    return text_type;
}

/* Class initialization function for the text item */
static void
e_text_class_init (ETextClass *klass)
{
    GtkObjectClass *object_class;
    GnomeCanvasItemClass *item_class;

    object_class = (GtkObjectClass *) klass;
    item_class = (GnomeCanvasItemClass *) klass;

    parent_class = gtk_type_class (gnome_canvas_item_get_type ());

    e_text_signals[E_TEXT_CHANGED] =
        gtk_signal_new ("changed",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (ETextClass, changed),
                gtk_marshal_NONE__NONE,
                GTK_TYPE_NONE, 0);

    e_text_signals[E_TEXT_ACTIVATE] =
        gtk_signal_new ("activate",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (ETextClass, activate),
                gtk_marshal_NONE__NONE,
                GTK_TYPE_NONE, 0);

    e_text_signals[E_TEXT_KEYPRESS] =
        gtk_signal_new ("keypress",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (ETextClass, keypress),
                gtk_marshal_NONE__INT_INT,
                GTK_TYPE_NONE, 2, GTK_TYPE_UINT, GTK_TYPE_UINT);

    e_text_signals[E_TEXT_POPUP] =
        gtk_signal_new ("popup",
                GTK_RUN_LAST,
                object_class->type,
                GTK_SIGNAL_OFFSET (ETextClass, popup),
                gtk_marshal_NONE__POINTER_INT,
                GTK_TYPE_NONE, 2, GTK_TYPE_POINTER, GTK_TYPE_INT);

    gtk_object_class_add_signals (object_class, e_text_signals, E_TEXT_LAST_SIGNAL);


    gtk_object_add_arg_type ("EText::model",
                 GTK_TYPE_OBJECT, GTK_ARG_READWRITE, ARG_MODEL);  
    gtk_object_add_arg_type ("EText::event_processor",
                 GTK_TYPE_OBJECT, GTK_ARG_READWRITE, ARG_EVENT_PROCESSOR);
    gtk_object_add_arg_type ("EText::text",
                 GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_TEXT);
    gtk_object_add_arg_type ("EText::font",
                 GTK_TYPE_STRING, GTK_ARG_WRITABLE, ARG_FONT);
    gtk_object_add_arg_type ("EText::fontset",
                 GTK_TYPE_STRING, GTK_ARG_WRITABLE, ARG_FONTSET);
    gtk_object_add_arg_type ("EText::font_gdk",
                 GTK_TYPE_GDK_FONT, GTK_ARG_WRITABLE, ARG_FONT_GDK);
    gtk_object_add_arg_type ("EText::font_e",
                 GTK_TYPE_POINTER, GTK_ARG_READWRITE, ARG_FONT_E);
    gtk_object_add_arg_type ("EText::bold",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_BOLD);
    gtk_object_add_arg_type ("EText::strikeout",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_STRIKEOUT);
    gtk_object_add_arg_type ("EText::anchor",
                 GTK_TYPE_ANCHOR_TYPE, GTK_ARG_READWRITE, ARG_ANCHOR);
    gtk_object_add_arg_type ("EText::justification",
                 GTK_TYPE_JUSTIFICATION, GTK_ARG_READWRITE, ARG_JUSTIFICATION);
    gtk_object_add_arg_type ("EText::clip_width",
                 GTK_TYPE_DOUBLE, GTK_ARG_READWRITE, ARG_CLIP_WIDTH);
    gtk_object_add_arg_type ("EText::clip_height",
                 GTK_TYPE_DOUBLE, GTK_ARG_READWRITE, ARG_CLIP_HEIGHT);
    gtk_object_add_arg_type ("EText::clip",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_CLIP);
    gtk_object_add_arg_type ("EText::fill_clip_rectangle",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_FILL_CLIP_RECTANGLE);
    gtk_object_add_arg_type ("EText::x_offset",
                 GTK_TYPE_DOUBLE, GTK_ARG_READWRITE, ARG_X_OFFSET);
    gtk_object_add_arg_type ("EText::y_offset",
                 GTK_TYPE_DOUBLE, GTK_ARG_READWRITE, ARG_Y_OFFSET);
    gtk_object_add_arg_type ("EText::fill_color",
                 GTK_TYPE_STRING, GTK_ARG_WRITABLE, ARG_FILL_COLOR);
    gtk_object_add_arg_type ("EText::fill_color_gdk",
                 GTK_TYPE_GDK_COLOR, GTK_ARG_READWRITE, ARG_FILL_COLOR_GDK);
    gtk_object_add_arg_type ("EText::fill_color_rgba",
                 GTK_TYPE_UINT, GTK_ARG_READWRITE, ARG_FILL_COLOR_RGBA);
    gtk_object_add_arg_type ("EText::fill_stipple",
                 GTK_TYPE_GDK_WINDOW, GTK_ARG_READWRITE, ARG_FILL_STIPPLE);
    gtk_object_add_arg_type ("EText::text_width",
                 GTK_TYPE_DOUBLE, GTK_ARG_READABLE, ARG_TEXT_WIDTH);
    gtk_object_add_arg_type ("EText::text_height",
                 GTK_TYPE_DOUBLE, GTK_ARG_READABLE, ARG_TEXT_HEIGHT);
    gtk_object_add_arg_type ("EText::editable",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_EDITABLE);
    gtk_object_add_arg_type ("EText::use_ellipsis",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_USE_ELLIPSIS);
    gtk_object_add_arg_type ("EText::ellipsis",
                 GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_ELLIPSIS);
    gtk_object_add_arg_type ("EText::line_wrap",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_LINE_WRAP);
    gtk_object_add_arg_type ("EText::break_characters",
                 GTK_TYPE_STRING, GTK_ARG_READWRITE, ARG_BREAK_CHARACTERS);
    gtk_object_add_arg_type ("EText::max_lines",
                 GTK_TYPE_INT, GTK_ARG_READWRITE, ARG_MAX_LINES);
    gtk_object_add_arg_type ("EText::width",
                 GTK_TYPE_DOUBLE, GTK_ARG_READWRITE, ARG_WIDTH);
    gtk_object_add_arg_type ("EText::height",
                 GTK_TYPE_DOUBLE, GTK_ARG_READABLE, ARG_HEIGHT);
    gtk_object_add_arg_type ("EText::draw_borders",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_DRAW_BORDERS);
    gtk_object_add_arg_type ("EText::allow_newlines",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_ALLOW_NEWLINES);
    gtk_object_add_arg_type ("EText::draw_background",
                 GTK_TYPE_BOOL, GTK_ARG_READWRITE, ARG_DRAW_BACKGROUND);
    gtk_object_add_arg_type ("EText::cursor_pos",
                 GTK_TYPE_INT, GTK_ARG_READWRITE, ARG_CURSOR_POS);

    if (!clipboard_atom)
        clipboard_atom = gdk_atom_intern ("CLIPBOARD", FALSE);



    klass->changed = NULL;
    klass->activate = NULL;

    object_class->destroy = e_text_destroy;
    object_class->set_arg = e_text_set_arg;
    object_class->get_arg = e_text_get_arg;

    item_class->update = e_text_update;
    item_class->realize = e_text_realize;
    item_class->unrealize = e_text_unrealize;
    item_class->draw = e_text_draw;
    item_class->point = e_text_point;
    item_class->bounds = e_text_bounds;
    item_class->render = e_text_render;
    item_class->event = e_text_event;
}

/* Object initialization function for the text item */
static void
e_text_init (EText *text)
{
    text->model = e_text_model_new ();
    text->text = e_text_model_get_text (text->model);
    
    gtk_object_ref (GTK_OBJECT (text->model));
    gtk_object_sink (GTK_OBJECT (text->model));

    text->model_changed_signal_id =
        gtk_signal_connect (GTK_OBJECT (text->model),
                   "changed",
                    GTK_SIGNAL_FUNC (e_text_text_model_changed),
                    text);
    text->model_repos_signal_id =
        gtk_signal_connect (GTK_OBJECT (text->model),
                    "reposition",
                    GTK_SIGNAL_FUNC (e_text_text_model_reposition),
                    text);

    text->anchor = GTK_ANCHOR_CENTER;
    text->justification = GTK_JUSTIFY_LEFT;
    text->clip_width = -1.0;
    text->clip_height = -1.0;
    text->xofs = 0.0;
    text->yofs = 0.0;

    text->ellipsis = NULL;
    text->use_ellipsis = FALSE;
    text->ellipsis_width = 0;

    text->editable = FALSE;
    text->editing = FALSE;
    text->xofs_edit = 0;
    text->yofs_edit = 0;
    
    text->selection_start = 0;
    text->selection_end = 0;
    text->select_by_word = FALSE;

    text->timeout_id = 0;
    text->timer = NULL;

    text->lastx = 0;
    text->lasty = 0;
    text->last_state = 0;

    text->scroll_start = 0;
    text->show_cursor = TRUE;
    text->button_down = FALSE;
    
    text->tep = NULL;
    text->tep_command_id = 0;

    text->has_selection = FALSE;
    
    text->invisible = NULL;
    text->primary_selection = NULL;
    text->primary_length = 0;
    text->clipboard_selection = NULL;
    text->clipboard_length = 0;

    text->pointer_in = FALSE;
    text->default_cursor_shown = TRUE;

    text->line_wrap = FALSE;
    text->break_characters = NULL;
    text->max_lines = -1;

    text->tooltip_timeout = 0;
    text->tooltip_count = 0;

    text->dbl_timeout = 0;
    text->tpl_timeout = 0;

    text->draw_background = FALSE;

    text->bold = FALSE;
    text->strikeout = FALSE;

    text->style = E_FONT_PLAIN;
    
    e_canvas_item_set_reflow_callback(GNOME_CANVAS_ITEM(text), e_text_reflow);
}

/* Destroy handler for the text item */
static void
e_text_destroy (GtkObject *object)
{
    EText *text;

    g_return_if_fail (object != NULL);
    g_return_if_fail (E_IS_TEXT (object));

    text = E_TEXT (object);

    if (text->model_changed_signal_id)
        gtk_signal_disconnect (GTK_OBJECT (text->model), 
                       text->model_changed_signal_id);

    if (text->model_repos_signal_id)
        gtk_signal_disconnect (GTK_OBJECT (text->model),
                       text->model_repos_signal_id);

    if (text->model)
        gtk_object_unref(GTK_OBJECT(text->model));

    if (text->tep_command_id)
        gtk_signal_disconnect(GTK_OBJECT(text->tep),
                      text->tep_command_id);

    if (text->tep)
        gtk_object_unref (GTK_OBJECT(text->tep));
    
    if (text->invisible)
        gtk_object_unref (GTK_OBJECT(text->invisible));

    if (text->lines)
        g_free (text->lines);

    if (text->font)
        e_font_unref (text->font);

#if 0
    if (text->suckfont)
        e_suck_font_free (text->suckfont);
#endif

    if (text->stipple)
        gdk_bitmap_unref (text->stipple);

    if (text->timeout_id) {
        g_source_remove(text->timeout_id);
        text->timeout_id = 0;
    }
    
    if (text->timer) {
        g_timer_stop(text->timer);
        g_timer_destroy(text->timer);
        text->timer = NULL;
    }
                
    if ( text->tooltip_timeout ) {
        gtk_timeout_remove (text->tooltip_timeout);
        text->tooltip_timeout = 0;
    }

    if ( text->dbl_timeout ) {
        gtk_timeout_remove (text->dbl_timeout);
        text->dbl_timeout = 0;
    }

    if ( text->tpl_timeout ) {
        gtk_timeout_remove (text->tpl_timeout);
        text->tpl_timeout = 0;
    }

    if (GTK_OBJECT_CLASS (parent_class)->destroy)
        (* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
}

static void
e_text_text_model_changed (ETextModel *model, EText *text)
{
    text->text = e_text_model_get_text(model);
    e_text_free_lines(text);
    gtk_signal_emit (GTK_OBJECT (text), e_text_signals[E_TEXT_CHANGED]);
    text->needs_split_into_lines = 1;
    e_canvas_item_request_reflow (GNOME_CANVAS_ITEM(text));
}

static void
e_text_text_model_reposition (ETextModel *model, ETextModelReposFn fn, gpointer repos_data, gpointer user_data)
{
    EText *text = E_TEXT (user_data);
    gint model_len = e_text_model_get_text_length (model);

    text->selection_start = fn (text->selection_start, repos_data);
    text->selection_end   = fn (text->selection_end,   repos_data);

    /* Our repos function should make sure we don't overrun the buffer, but it never
       hurts to be paranoid. */
    text->selection_start = CLAMP (text->selection_start, 0, model_len);
    text->selection_end   = CLAMP (text->selection_end,   0, model_len);

    if (text->selection_start > text->selection_end) {
        gint tmp = text->selection_start;
        text->selection_start = text->selection_end;
        text->selection_end = tmp;
    }
}

static void
get_bounds_item_relative (EText *text, double *px1, double *py1, double *px2, double *py2)
{
    GnomeCanvasItem *item;
    double x, y;
    double clip_x, clip_y;
    int old_height;

    item = GNOME_CANVAS_ITEM (text);
    
    x = 0;
    y = 0;

    clip_x = x;
    clip_y = y;

    /* Calculate text dimensions */

    old_height = text->height;

    if (text->text && text->font)
        text->height = (e_font_height (text->font)) * text->num_lines;
    else
        text->height = 0;

    if (old_height != text->height)
        e_canvas_item_request_parent_reflow(item);

    /* Anchor text */

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_W:
    case GTK_ANCHOR_SW:
        break;

    case GTK_ANCHOR_N:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_S:
        x -= text->max_width / 2;
        if ( text->clip_width >= 0)
            clip_x -= text->clip_width / 2;
        else
            clip_x -= text->width / 2;
        break;

    case GTK_ANCHOR_NE:
    case GTK_ANCHOR_E:
    case GTK_ANCHOR_SE:
        x -= text->max_width;
        if (text->clip_width >= 0)
            clip_x -= text->clip_width;
        else
            clip_x -= text->width;
        break;
    }

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_N:
    case GTK_ANCHOR_NE:
        break;

    case GTK_ANCHOR_W:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_E:
        y -= text->height / 2;
        if ( text->clip_height >= 0 )
            clip_y -= text->clip_height / 2;
        else
            clip_y -= text->height / 2;
        break;

    case GTK_ANCHOR_SW:
    case GTK_ANCHOR_S:
    case GTK_ANCHOR_SE:
        y -= text->height;
        if ( text->clip_height >= 0 )
            clip_y -= text->clip_height;
        else
            clip_y -= text->height;
        break;
    }

    /* Bounds */

    if (text->clip) {
        /* maybe do bbox intersection here? */
        *px1 = clip_x;
        *py1 = clip_y;
        if (text->clip_width >= 0)
            *px2 = clip_x + text->clip_width;
        else
            *px2 = clip_x + text->width;

        if ( text->clip_height >= 0 )
            *py2 = clip_y + text->clip_height;
        else
            *py2 = clip_y + text->height;
    } else {
        *px1 = x;
        *py1 = y;
        *px2 = x + text->max_width;
        *py2 = y + text->height;
    }
}

static void
get_bounds (EText *text, double *px1, double *py1, double *px2, double *py2)
{
    GnomeCanvasItem *item;
    double wx, wy, clip_width;

    item = GNOME_CANVAS_ITEM (text);

    /* Get canvas pixel coordinates for text position */

    wx = 0;
    wy = 0;
    gnome_canvas_item_i2w (item, &wx, &wy);
    gnome_canvas_w2c (item->canvas, wx + text->xofs, wy + text->yofs, &text->cx, &text->cy);

    /* Calculate the width and heights */
    calc_height (text);
    calc_line_widths (text);

    if (text->clip_width < 0)
        clip_width = text->max_width;
    else
        clip_width = text->clip_width;

    /* Get canvas pixel coordinates for clip rectangle position */
    gnome_canvas_w2c (item->canvas, wx, wy, &text->clip_cx, &text->clip_cy);
    text->clip_cwidth = clip_width * item->canvas->pixels_per_unit;
    if ( text->clip_height >= 0 )
        text->clip_cheight = text->clip_height * item->canvas->pixels_per_unit;
    else
        text->clip_cheight = text->height * item->canvas->pixels_per_unit;

    /* Anchor text */

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_W:
    case GTK_ANCHOR_SW:
        break;

    case GTK_ANCHOR_N:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_S:
        text->cx -= text->max_width / 2;
        text->clip_cx -= text->clip_cwidth / 2;
        break;

    case GTK_ANCHOR_NE:
    case GTK_ANCHOR_E:
    case GTK_ANCHOR_SE:
        text->cx -= text->max_width;
        text->clip_cx -= text->clip_cwidth;
        break;
    }

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_N:
    case GTK_ANCHOR_NE:
        break;

    case GTK_ANCHOR_W:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_E:
        text->cy -= text->height / 2;
        text->clip_cy -= text->clip_cheight / 2;
        break;

    case GTK_ANCHOR_SW:
    case GTK_ANCHOR_S:
    case GTK_ANCHOR_SE:
        text->cy -= text->height;
        text->clip_cy -= text->clip_cheight;
        break;
    }

    /* Bounds */

    if (text->clip) {
        *px1 = text->clip_cx;
        *py1 = text->clip_cy;
        *px2 = text->clip_cx + text->clip_cwidth;
        *py2 = text->clip_cy + text->clip_cheight;
    } else {
        *px1 = text->cx;
        *py1 = text->cy;
        *px2 = text->cx + text->max_width;
        *py2 = text->cy + text->height;
    }
}

static void
calc_height (EText *text)
{
    GnomeCanvasItem *item;
    int old_height;

    item = GNOME_CANVAS_ITEM (text);

    /* Calculate text dimensions */

    old_height = text->height;

    /* Make sure the text is split into lines first */
    if (text->text && text->num_lines == 0) 
        split_into_lines (text);

    if (text->text && text->font)
        text->height = e_font_height (text->font) * text->num_lines;
    else
        text->height = 0;

    if (old_height != text->height)
        e_canvas_item_request_parent_reflow(item);
}

static void
calc_ellipsis (EText *text)
{
    if (text->font)
        text->ellipsis_width = 
            e_font_utf8_text_width (text->font, text->style,
                        text->ellipsis ? text->ellipsis : "...",
                        text->ellipsis ? strlen (text->ellipsis) : 3);
}

/* Calculates the line widths (in pixels) of the text's splitted lines */
static void
calc_line_widths (EText *text)
{
    struct line *lines;
    int i;
    gdouble clip_width;
    const gchar *p;

    /* Make sure line has been split */
    if (text->text && text->num_lines == 0)
        split_into_lines (text);

    lines = text->lines;
    text->max_width = 0;

    clip_width = text->clip_width;
    if (clip_width >= 0 && text->draw_borders) {
        clip_width -= 6;
        if (clip_width < 0)
            clip_width = 0;
    }


    if (!lines)
        return;

    for (i = 0; i < text->num_lines; i++) {
        if (lines->length != 0) {
            if (text->font) {
                lines->width = text_width_with_objects (text->model,
                                    text->font, text->style,
                                    lines->text, lines->length);
                lines->ellipsis_length = 0;
            } else {
                lines->width = 0;
            }
            
            if (text->clip && 
                text->use_ellipsis &&
                ! text->editing &&
                lines->width > clip_width &&
                clip_width >= 0) {
                if (text->font) {
                    lines->ellipsis_length = 0;
                    for (p = lines->text; p && *p && (p - lines->text) < lines->length; p = g_utf8_next_char (p)) {
                        gint text_width = text_width_with_objects (text->model,
                                               text->font, text->style,
                                               lines->text, p - lines->text);
                        if (clip_width >= text_width + text->ellipsis_width)
                            lines->ellipsis_length = p - lines->text;
                        else
                            break;
                    }
                }
                else
                    lines->ellipsis_length = 0;
                lines->width = text_width_with_objects (text->model,
                                    text->font, text->style,
                                    lines->text, lines->ellipsis_length) + 
                    text->ellipsis_width;
            } else
                lines->ellipsis_length = lines->length;

            if (lines->width > text->max_width)
                text->max_width = lines->width;
        }

        lines++;
    }
}

static void
e_text_free_lines(EText *text)
{
    if (text->lines)
        g_free (text->lines);

    text->lines = NULL;
    text->num_lines = 0;
}

static gint
text_width_with_objects (ETextModel *model,
             EFont *font, EFontStyle style,
             const gchar *text, gint numbytes)
{
    return e_font_utf8_text_width (font, style, text, numbytes);
}

static void
text_draw_with_objects (ETextModel *model, 
            GdkDrawable *drawable,
            EFont *font, EFontStyle style,
            GdkGC *gc,
            gint x, gint y,
            const gchar *text, gint numbytes)
{
    const gchar *c;
    
    while (*text && numbytes > 0) {
        gint obj_num = -1;
        
        c = text;

        while (*c
               && (obj_num = e_text_model_get_object_at_pointer (model, c)) == -1
               && numbytes > 0) {
            ++c;
            --numbytes;
        }

        e_font_draw_utf8_text (drawable, font, style, gc, x, y, text, c-text);
        x += e_font_utf8_text_width (font, style, text, c-text);
        
        if (obj_num != -1 && numbytes > 0) {
            gint len;
            gint start_x = x;

            e_text_model_get_nth_object (model, obj_num, &len);

            if (len > numbytes)
                len = numbytes;
            e_font_draw_utf8_text (drawable, font, style, gc, x, y, c, len);
            x += e_font_utf8_text_width (font, style, c, len);

            /* We underline our objects. */
            gdk_draw_line (drawable, gc, start_x, y+1, x, y+1);

            c += len;
            numbytes -= len;
        }
        
        text = c;
    }
}

#define IS_BREAKCHAR(text,c) ((text)->break_characters && g_utf8_strchr ((text)->break_characters, (c)))
/* Splits the text of the text item into lines */
static void
split_into_lines (EText *text)
{
    const char *p, *cp;
    struct line *lines;
    int len;
    int line_num;
    const char *laststart;
    const char *lastend;
    const char *linestart;
    double clip_width;
    gunichar unival;

    /* Free old array of lines */
    e_text_free_lines(text);

    if (!text->text)
        return;

    /* First, count the number of lines */

    lastend = text->text;
    laststart = text->text;
    linestart = text->text;

    clip_width = text->clip_width;
    if (clip_width >= 0 && text->draw_borders) {
        clip_width -= 6;
        if (clip_width < 0)
            clip_width = 0;
    }

    cp = text->text;

    for (p = e_unicode_get_utf8 (cp, &unival); (unival && p); cp = p, p = e_unicode_get_utf8 (p, &unival)) {
        if (text->line_wrap
            && (g_unichar_isspace (unival) || unival == '\n')
            && e_text_model_get_object_at_pointer (text->model, cp) == -1) { /* don't break mid-object */
            if (laststart != lastend
                && clip_width < text_width_with_objects (text->model,
                                     text->font, text->style,
                                     linestart, cp - linestart)) {
                text->num_lines ++;
                
                linestart = laststart;
                laststart = p;
                lastend = cp;
            } else if (g_unichar_isspace (unival)) {
                laststart = p;
                lastend = cp;
            }
        } else if (text->line_wrap
               && IS_BREAKCHAR (text, unival)) {
            
            if (laststart != lastend
                && g_utf8_pointer_to_offset (linestart, cp) != 1
                && clip_width < text_width_with_objects (text->model,
                                     text->font, text->style,
                                     linestart, p - linestart)) {
                text->num_lines ++;
                
                linestart = laststart;
                laststart = p;
                lastend = p;
            } else {
                laststart = p;
                lastend = p;
            }
        }

        if (unival == '\n') {
            text->num_lines ++;

            lastend = p;
            laststart = p;
            linestart = p;
        } 
    }

    if ( text->line_wrap
         && p
         && laststart != lastend
         && clip_width < text_width_with_objects (text->model,
                              text->font, text->style, 
                              linestart, cp - linestart)) {
        text->num_lines ++;
    }

    text->num_lines++;

    if ( (!text->editing) && text->max_lines != -1 && text->num_lines > text->max_lines ) {
        text->num_lines = text->max_lines;
    }

    /* Allocate array of lines and calculate split positions */

    text->lines = lines = g_new0 (struct line, text->num_lines);
    len = 0;
    line_num = 1;
    lastend = text->text;
    laststart = text->text;

    cp = text->text;

    for (p = e_unicode_get_utf8 (cp, &unival); p && unival && line_num < text->num_lines; cp = p, p = e_unicode_get_utf8 (p, &unival)) {
        gboolean handled = FALSE;

        if (len == 0)
            lines->text = cp;
        if (text->line_wrap
            && (g_unichar_isspace (unival) || unival == '\n')
            && e_text_model_get_object_at_pointer (text->model, cp) == -1) { /* don't break mid-object */
            if (clip_width < text_width_with_objects (text->model,
                                  text->font, text->style,
                                  lines->text, cp - lines->text)
                && laststart != lastend) {

                lines->length = lastend - lines->text;

                lines++;
                line_num++;
                len = cp - laststart;
                lines->text = laststart;
                laststart = p;
                lastend = cp;
            } else if (g_unichar_isspace (unival)) {
                laststart = p;
                lastend = cp;
                len ++;
            }
            handled = TRUE;
        } else if (text->line_wrap
               && IS_BREAKCHAR(text, unival) 
               && e_text_model_get_object_at_pointer (text->model, cp) == -1) {
            if (laststart != lastend
                && g_utf8_pointer_to_offset (lines->text, cp) != 1
                && clip_width < text_width_with_objects (text->model,
                                     text->font, text->style,
                                     lines->text, p - lines->text)) {

                lines->length = lastend - lines->text;

                lines++;
                line_num++;
                len = p - laststart;
                lines->text = laststart;
                laststart = p;
                lastend = p;
            } else {
                laststart = p;
                lastend = p;
                len ++;
            }
        } 
        if (line_num >= text->num_lines)
            break;
        if (unival == '\n') {

            lines->length = cp - lines->text;
            
            lines++;
            line_num++;
            len = 0;
            lastend = p;
            laststart = p;
            handled = TRUE;
        } 
        if (!handled)
            len++;
    }

    if ( line_num < text->num_lines && text->line_wrap ) {
        if (clip_width < text_width_with_objects (text->model,
                              text->font, text->style,
                              lines->text, cp - lines->text)
            && laststart != lastend ) {

            lines->length = lastend - lines->text;

            lines++;
            line_num++;
            len = cp - laststart;
            lines->text = laststart;
            laststart = p;
            lastend = cp;
        }
    } 
    
    if (len == 0)
        lines->text = cp;
    lines->length = strlen (lines->text);
}

/* Convenience function to set the text's GC's foreground color */
static void
set_text_gc_foreground (EText *text)
{
    if (!text->gc)
        return;

    gdk_gc_set_foreground (text->gc, &text->color);
}

/* Sets the stipple pattern for the text */
static void
set_stipple (EText *text, GdkBitmap *stipple, int reconfigure)
{
    if (text->stipple && !reconfigure)
        gdk_bitmap_unref (text->stipple);

    text->stipple = stipple;
    if (stipple && !reconfigure)
        gdk_bitmap_ref (stipple);

    if (text->gc) {
        if (stipple) {
            gdk_gc_set_stipple (text->gc, stipple);
            gdk_gc_set_fill (text->gc, GDK_STIPPLED);
        } else
            gdk_gc_set_fill (text->gc, GDK_SOLID);
    }
}

/* Set_arg handler for the text item */
static void
e_text_set_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    GnomeCanvasItem *item;
    EText *text;
    GdkColor color = { 0, 0, 0, 0, };
    GdkColor *pcolor;
    gboolean color_changed;
    int have_pixel;
    
    gboolean needs_update = 0;
    gboolean needs_reflow = 0;

    item = GNOME_CANVAS_ITEM (object);
    text = E_TEXT (object);

    color_changed = FALSE;
    have_pixel = FALSE;

    switch (arg_id) {
    case ARG_MODEL:

        if ( text->model_changed_signal_id )
            gtk_signal_disconnect (GTK_OBJECT (text->model),
                           text->model_changed_signal_id);

        if ( text->model_repos_signal_id )
            gtk_signal_disconnect (GTK_OBJECT (text->model),
                           text->model_repos_signal_id);

        gtk_object_unref (GTK_OBJECT (text->model));
        text->model = E_TEXT_MODEL (GTK_VALUE_OBJECT (*arg));
        gtk_object_ref (GTK_OBJECT (text->model));

        text->model_changed_signal_id =
            gtk_signal_connect (GTK_OBJECT (text->model),
                        "changed",
                        GTK_SIGNAL_FUNC (e_text_text_model_changed),
                        text);

        text->model_repos_signal_id =
            gtk_signal_connect (GTK_OBJECT (text->model),
                        "reposition",
                        GTK_SIGNAL_FUNC (e_text_text_model_reposition),
                        text);

        e_text_free_lines(text);

        text->text = e_text_model_get_text(text->model);
        gtk_signal_emit (GTK_OBJECT (text), e_text_signals[E_TEXT_CHANGED]);

        text->needs_split_into_lines = 1;
        needs_reflow = 1;
        break;

    case ARG_EVENT_PROCESSOR:
        if ( text->tep && text->tep_command_id )
            gtk_signal_disconnect(GTK_OBJECT(text->tep),
                          text->tep_command_id);
        if ( text->tep ) {
            gtk_object_unref(GTK_OBJECT(text->tep));
        }
        text->tep = E_TEXT_EVENT_PROCESSOR(GTK_VALUE_OBJECT (*arg));
        gtk_object_ref(GTK_OBJECT(text->tep));
        text->tep_command_id = 
            gtk_signal_connect(GTK_OBJECT(text->tep),
                       "command",
                       GTK_SIGNAL_FUNC(e_text_command),
                       text);
        break;

    case ARG_TEXT:
        text->num_lines = 1;
        e_text_model_set_text(text->model, GTK_VALUE_STRING (*arg));
        break;

    case ARG_FONT:
        if (text->font)
            e_font_unref (text->font);

        text->font = e_font_from_gdk_name (GTK_VALUE_STRING (*arg));

#if 0
        if (item->canvas->aa) {
            if (text->suckfont)
                e_suck_font_free (text->suckfont);

            text->suckfont = e_suck_font (text->font);
        }
#endif
        
        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_FONTSET:
        if (text->font)
            e_font_unref (text->font); 

        text->font = e_font_from_gdk_name (GTK_VALUE_STRING (*arg));

#if 0
        if (item->canvas->aa) {
            if (text->suckfont)
                e_suck_font_free (text->suckfont);

            text->suckfont = e_suck_font (text->font);
        }
#endif

        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_FONT_GDK:
        /* Ref the font in case it was the font that is stored
           in the e-font */
        gdk_font_ref (GTK_VALUE_POINTER (*arg));
        if (text->font)
            e_font_unref (text->font); 

        text->font = e_font_from_gdk_font (GTK_VALUE_POINTER (*arg));
#if 0
        if (item->canvas->aa) {
            if (text->suckfont)
                e_suck_font_free (text->suckfont);

            text->suckfont = e_suck_font (text->font);
        }
#endif

        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;
    case ARG_FONT_E:
        if (text->font)
            e_font_unref (text->font);

        text->font = GTK_VALUE_POINTER (*arg);

        calc_ellipsis (text);
        if (text->line_wrap)
            text->needs_split_into_lines = 1;
        else 
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;
    case ARG_BOLD:
        text->bold = GTK_VALUE_BOOL (*arg);
        text->style = text->bold ? E_FONT_BOLD : E_FONT_PLAIN;

        text->needs_redraw = 1;
        text->needs_recalc_bounds = 1;
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_update = 1;
        needs_reflow = 1;
        break;
    case ARG_STRIKEOUT:
        text->strikeout = GTK_VALUE_BOOL (*arg);
        text->needs_redraw = 1;
        needs_update = 1;
        break;
    case ARG_ANCHOR:
        text->anchor = GTK_VALUE_ENUM (*arg);
        text->needs_recalc_bounds = 1;
        needs_update = 1;
        break;

    case ARG_JUSTIFICATION:
        text->justification = GTK_VALUE_ENUM (*arg);
        text->needs_redraw = 1;
        needs_update = 1;
        break;

    case ARG_CLIP_WIDTH:
        text->clip_width = fabs (GTK_VALUE_DOUBLE (*arg));
        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_CLIP_HEIGHT:
        text->clip_height = fabs (GTK_VALUE_DOUBLE (*arg));
        text->needs_recalc_bounds = 1;
        needs_reflow = 1;
        break;

    case ARG_CLIP:
        text->clip = GTK_VALUE_BOOL (*arg);
        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_FILL_CLIP_RECTANGLE:
        text->fill_clip_rectangle = GTK_VALUE_BOOL (*arg);
        needs_update = 1;
        break;

    case ARG_X_OFFSET:
        text->xofs = GTK_VALUE_DOUBLE (*arg);
        text->needs_recalc_bounds = 1;
        needs_update = 1;
        break;

    case ARG_Y_OFFSET:
        text->yofs = GTK_VALUE_DOUBLE (*arg);
        text->needs_recalc_bounds = 1;
        needs_update = 1;
        break;

        case ARG_FILL_COLOR:
        if (GTK_VALUE_STRING (*arg))
            gdk_color_parse (GTK_VALUE_STRING (*arg), &color);

        text->rgba = ((color.red & 0xff00) << 16 |
                  (color.green & 0xff00) << 8 |
                  (color.blue & 0xff00) |
                  0xff);
        color_changed = TRUE;
        break;

    case ARG_FILL_COLOR_GDK:
        pcolor = GTK_VALUE_BOXED (*arg);
        if (pcolor) {
            color = *pcolor;
        }

        text->rgba = ((color.red & 0xff00) << 16 |
                  (color.green & 0xff00) << 8 |
                  (color.blue & 0xff00) |
                  0xff);
        color_changed = TRUE;
        break;

        case ARG_FILL_COLOR_RGBA:
        text->rgba = GTK_VALUE_UINT (*arg);
        color.red = ((text->rgba >> 24) & 0xff) * 0x101;
        color.green = ((text->rgba >> 16) & 0xff) * 0x101;
        color.blue = ((text->rgba >> 8) & 0xff) * 0x101;
        color_changed = TRUE;
        break;

    case ARG_FILL_STIPPLE:
        set_stipple (text, GTK_VALUE_BOXED (*arg), FALSE);
        text->needs_redraw = 1;
        needs_update = 1;
        break;

    case ARG_EDITABLE:
        text->editable = GTK_VALUE_BOOL (*arg);
        text->needs_redraw = 1;
        needs_update = 1;
        break;

    case ARG_USE_ELLIPSIS:
        text->use_ellipsis = GTK_VALUE_BOOL (*arg);
        text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_ELLIPSIS:
        if (text->ellipsis)
            g_free (text->ellipsis);

        text->ellipsis = g_strdup (GTK_VALUE_STRING (*arg));
        calc_ellipsis (text);
        text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;

    case ARG_LINE_WRAP:
        text->line_wrap = GTK_VALUE_BOOL (*arg);
        text->needs_split_into_lines = 1;
        needs_reflow = 1;
        break;
        
    case ARG_BREAK_CHARACTERS:
        if ( text->break_characters ) {
            g_free(text->break_characters);
            text->break_characters = NULL;
        }
        if ( GTK_VALUE_STRING (*arg) )
            text->break_characters = g_strdup( GTK_VALUE_STRING (*arg) );
        text->needs_split_into_lines = 1;
        needs_reflow = 1;
        break;

    case ARG_MAX_LINES:
        text->max_lines = GTK_VALUE_INT (*arg);
        text->needs_split_into_lines = 1;
        needs_reflow = 1;
        break;

    case ARG_WIDTH:
        text->clip_width = fabs (GTK_VALUE_DOUBLE (*arg));
        calc_ellipsis (text);
        if ( text->line_wrap )
            text->needs_split_into_lines = 1;
        else
            text->needs_calc_line_widths = 1;
        needs_reflow = 1;
        break;
        
    case ARG_DRAW_BORDERS:
        if (text->draw_borders != GTK_VALUE_BOOL (*arg)) {
            text->draw_borders = GTK_VALUE_BOOL (*arg);
            text->needs_calc_height = 1;
            text->needs_redraw = 1;
            needs_reflow = 1;
            needs_update = 1;
        }
        break;

    case ARG_DRAW_BACKGROUND:
        if (text->draw_background != GTK_VALUE_BOOL (*arg)){
            text->draw_background = GTK_VALUE_BOOL (*arg);
            text->needs_redraw = 1;
        }
        break;
        
    case ARG_ALLOW_NEWLINES:
        _get_tep(text);
        gtk_object_set (GTK_OBJECT (text->tep),
                "allow_newlines", GTK_VALUE_BOOL (*arg),
                NULL);
        break;

    case ARG_CURSOR_POS: {
        ETextEventProcessorCommand command;

        command.action = E_TEP_MOVE;
        command.position = E_TEP_VALUE;
        command.value = GTK_VALUE_INT (*arg);
        command.time = GDK_CURRENT_TIME;
        e_text_command (text->tep, &command, text);
        break;
    }
        
    default:
        return;
    }

    if (color_changed) {
        if (GNOME_CANVAS_ITEM_REALIZED & GTK_OBJECT_FLAGS(item))
            gdk_color_context_query_color (item->canvas->cc, &color);

        text->color = color;

        if (!item->canvas->aa)
            set_text_gc_foreground (text);

        text->needs_redraw = 1;
        needs_update = 1;
    }

    if ( needs_reflow )
        e_canvas_item_request_reflow (item);
    if ( needs_update )
        gnome_canvas_item_request_update (item);
}

/* Get_arg handler for the text item */
static void
e_text_get_arg (GtkObject *object, GtkArg *arg, guint arg_id)
{
    EText *text;
    GdkColor *color;

    text = E_TEXT (object);

    switch (arg_id) {
    case ARG_MODEL:
        GTK_VALUE_OBJECT (*arg) = GTK_OBJECT(text->model);
        break;

    case ARG_EVENT_PROCESSOR:
        _get_tep(text);
        GTK_VALUE_OBJECT (*arg) = GTK_OBJECT(text->tep);
        break;

    case ARG_TEXT:
        GTK_VALUE_STRING (*arg) = g_strdup (text->text);
        break;

    case ARG_FONT_E:
        GTK_VALUE_BOXED (*arg) = text->font;
        break;

    case ARG_BOLD:
        GTK_VALUE_BOOL (*arg) = text->bold;
        break;

    case ARG_STRIKEOUT:
        GTK_VALUE_BOOL (*arg) = text->strikeout;
        break;

    case ARG_ANCHOR:
        GTK_VALUE_ENUM (*arg) = text->anchor;
        break;

    case ARG_JUSTIFICATION:
        GTK_VALUE_ENUM (*arg) = text->justification;
        break;

    case ARG_CLIP_WIDTH:
        GTK_VALUE_DOUBLE (*arg) = text->clip_width;
        break;

    case ARG_CLIP_HEIGHT:
        GTK_VALUE_DOUBLE (*arg) = text->clip_height;
        break;

    case ARG_CLIP:
        GTK_VALUE_BOOL (*arg) = text->clip;
        break;

    case ARG_FILL_CLIP_RECTANGLE:
        GTK_VALUE_BOOL (*arg) = text->fill_clip_rectangle;
        break;

    case ARG_X_OFFSET:
        GTK_VALUE_DOUBLE (*arg) = text->xofs;
        break;

    case ARG_Y_OFFSET:
        GTK_VALUE_DOUBLE (*arg) = text->yofs;
        break;

    case ARG_FILL_COLOR_GDK:
        color = g_new (GdkColor, 1);
        *color = text->color;
        GTK_VALUE_BOXED (*arg) = color;
        break;

    case ARG_FILL_COLOR_RGBA:
        GTK_VALUE_UINT (*arg) = text->rgba;
        break;

    case ARG_FILL_STIPPLE:
        GTK_VALUE_BOXED (*arg) = text->stipple;
        break;

    case ARG_TEXT_WIDTH:
        GTK_VALUE_DOUBLE (*arg) = text->max_width / text->item.canvas->pixels_per_unit;
        break;

    case ARG_TEXT_HEIGHT:
        GTK_VALUE_DOUBLE (*arg) = text->height / text->item.canvas->pixels_per_unit;
        break;

    case ARG_EDITABLE:
        GTK_VALUE_BOOL (*arg) = text->editable;
        break;

    case ARG_USE_ELLIPSIS:
        GTK_VALUE_BOOL (*arg) = text->use_ellipsis;
        break;

    case ARG_ELLIPSIS:
        GTK_VALUE_STRING (*arg) = g_strdup (text->ellipsis);
        break;

    case ARG_LINE_WRAP:
        GTK_VALUE_BOOL (*arg) = text->line_wrap;
        break;
        
    case ARG_BREAK_CHARACTERS:
        GTK_VALUE_STRING (*arg) = g_strdup (text->break_characters);
        break;

    case ARG_MAX_LINES:
        GTK_VALUE_INT (*arg) = text->max_lines;
        break;

    case ARG_WIDTH:
        GTK_VALUE_DOUBLE (*arg) = text->clip_width;
        break;

    case ARG_HEIGHT:
        GTK_VALUE_DOUBLE (*arg) = text->clip && text->clip_height != -1 ? text->clip_height : text->height / text->item.canvas->pixels_per_unit;
        break;

    case ARG_DRAW_BORDERS:
        GTK_VALUE_BOOL (*arg) = text->draw_borders;
        break;

    case ARG_DRAW_BACKGROUND:
        GTK_VALUE_BOOL (*arg) = text->draw_background;
        break;
        
    case ARG_ALLOW_NEWLINES:
        {
            gboolean allow_newlines;
            _get_tep(text);
            gtk_object_get (GTK_OBJECT (text->tep),
                    "allow_newlines", &allow_newlines,
                    NULL);
            GTK_VALUE_BOOL (*arg) = allow_newlines;
        }
        break;

    case ARG_CURSOR_POS:
        GTK_VALUE_INT (*arg) = text->selection_start;
        break;
        
    default:
        arg->type = GTK_TYPE_INVALID;
        break;
    }
}

/* Update handler for the text item */
static void
e_text_reflow (GnomeCanvasItem *item, int flags)
{
    EText *text;

    text = E_TEXT (item);

    if ( text->needs_split_into_lines ) {
        split_into_lines(text);
        text->needs_split_into_lines = 0;
        text->needs_calc_line_widths = 1;
    }
    if ( text->needs_calc_line_widths ) {
        int x;
        int i;
        struct line *lines;
        gdouble clip_width;
        calc_line_widths(text);
        text->needs_calc_line_widths = 0;
        text->needs_calc_height = 1;
        text->needs_redraw = 1;

        lines = text->lines;
        if ( !lines )
            return;

        for (lines = text->lines, i = 0; i < text->num_lines ; i++, lines ++) {
            if ((lines->text - text->text) > text->selection_end) {
                break;
            }
        }
        lines --;
        i--;
        x = text_width_with_objects (text->model,
                         text->font, text->style,
                         lines->text,
                         text->selection_end - (lines->text - text->text));
        

        if (x < text->xofs_edit) {
            text->xofs_edit = x;
        }

        clip_width = text->clip_width;
        if (clip_width >= 0 && text->draw_borders) {
            clip_width -= 6;
            if (clip_width < 0)
                clip_width = 0;
        }

        if (2 + x - clip_width > text->xofs_edit) {
            text->xofs_edit = 2 + x - clip_width;
        }
        
        if (e_font_height (text->font) * i < text->yofs_edit)
            text->yofs_edit = e_font_height (text->font) * i;
        
        if (e_font_height (text->font) * (i + 1) -
             (text->clip_height != -1 ? text->clip_height : text->height) > text->yofs_edit)
            text->yofs_edit = e_font_height (text->font) * (i + 1) -
                (text->clip_height != -1 ? text->clip_height : text->height);
    }
    if ( text->needs_calc_height ) {
        calc_height (text);
        gnome_canvas_item_request_update(item);
        text->needs_calc_height = 0;
        text->needs_recalc_bounds = 1;
    }
}

/* Update handler for the text item */
static void
e_text_update (GnomeCanvasItem *item, double *affine, ArtSVP *clip_path, int flags)
{
    EText *text;
    double x1, y1, x2, y2;
    ArtDRect i_bbox, c_bbox;
    int i;

    text = E_TEXT (item);

    if (parent_class->update)
        (* parent_class->update) (item, affine, clip_path, flags);

    if ( text->needs_recalc_bounds
         || (flags & GNOME_CANVAS_UPDATE_AFFINE)) {
        if (!item->canvas->aa) {
            set_text_gc_foreground (text);
            set_stipple (text, text->stipple, TRUE);
            get_bounds (text, &x1, &y1, &x2, &y2);
            if ( item->x1 != x1 ||
                 item->x2 != x2 ||
                 item->y1 != y1 ||
                 item->y2 != y2 ) {
                gnome_canvas_request_redraw (item->canvas, item->x1, item->y1, item->x2, item->y2);
                item->x1 = x1;
                item->y1 = y1;
                item->x2 = x2;
                item->y2 = y2;
                text->needs_redraw = 1;
            }
        } else {
            /* aa rendering */
            for (i = 0; i < 6; i++)
                text->affine[i] = affine[i];
            get_bounds_item_relative (text, &i_bbox.x0, &i_bbox.y0, &i_bbox.x1, &i_bbox.y1);
            art_drect_affine_transform (&c_bbox, &i_bbox, affine);
        }
        text->needs_recalc_bounds = 0;
    }
    if ( text->needs_redraw ) {
        gnome_canvas_request_redraw (item->canvas, item->x1, item->y1, item->x2, item->y2);
        text->needs_redraw = 0;
    }
}

/* Realize handler for the text item */
static void
e_text_realize (GnomeCanvasItem *item)
{
    EText *text;

    text = E_TEXT (item);

    if (parent_class->realize)
        (* parent_class->realize) (item);

    text->gc = gdk_gc_new (item->canvas->layout.bin_window);
    gdk_color_context_query_color (item->canvas->cc, &text->color);
    gdk_gc_set_foreground (text->gc, &text->color);
    
    text->i_cursor = gdk_cursor_new (GDK_XTERM);
    text->default_cursor = gdk_cursor_new (GDK_LEFT_PTR);
    if (text->font == NULL) {
        gdk_font_ref (GTK_WIDGET (item->canvas)->style->font);
        text->font = e_font_from_gdk_font (GTK_WIDGET (item->canvas)->style->font);
    }
}

/* Unrealize handler for the text item */
static void
e_text_unrealize (GnomeCanvasItem *item)
{
    EText *text;

    text = E_TEXT (item);

    gdk_gc_unref (text->gc);
    text->gc = NULL;

    gdk_cursor_destroy (text->i_cursor);
    text->i_cursor = NULL;
    gdk_cursor_destroy (text->default_cursor);
    text->default_cursor = NULL;

    if (parent_class->unrealize)
        (* parent_class->unrealize) (item);
}

/* Calculates the x position of the specified line of text, based on the text's justification */
static double
get_line_xpos_item_relative (EText *text, struct line *line)
{
    double x;

    x = 0;

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_W:
    case GTK_ANCHOR_SW:
        break;

    case GTK_ANCHOR_N:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_S:
        x -= text->max_width / 2;
        break;

    case GTK_ANCHOR_NE:
    case GTK_ANCHOR_E:
    case GTK_ANCHOR_SE:
        x -= text->max_width;
        break;
    }

    switch (text->justification) {
    case GTK_JUSTIFY_RIGHT:
        x += text->max_width - line->width;
        break;

    case GTK_JUSTIFY_CENTER:
        x += (text->max_width - line->width) * 0.5;
        break;

    default:
        if (text->draw_borders)
            x += BORDER_INDENT;

        /* For GTK_JUSTIFY_LEFT, we don't have to do anything.  We do not support
         * GTK_JUSTIFY_FILL, yet.
         */
        break;
    }
    
    return x;
}

#if 0
/* Calculates the y position of the first line of text. */
static double
get_line_ypos_item_relative (EText *text)
{
    double y;

    y = 0;

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_N:
    case GTK_ANCHOR_NE:
        break;

    case GTK_ANCHOR_W:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_E:
        y -= text->height / 2;
        break;

    case GTK_ANCHOR_SW:
    case GTK_ANCHOR_S:
    case GTK_ANCHOR_SE:
        y -= text->height;
        break;
    }

    return y;
}
#endif

/* Calculates the x position of the specified line of text, based on the text's justification */
static int
get_line_xpos (EText *text, struct line *line)
{
    int x;

    x = text->cx;

    switch (text->justification) {
    case GTK_JUSTIFY_RIGHT:
        x += text->max_width - line->width;
        break;

    case GTK_JUSTIFY_CENTER:
        x += (text->max_width - line->width) / 2;
        break;

    default:
        if (text->draw_borders)
            x += BORDER_INDENT;
        /* For GTK_JUSTIFY_LEFT, we don't have to do anything.  We do not support
         * GTK_JUSTIFY_FILL, yet.
         */
        break;
    }


    return x;
}

static void
_get_tep(EText *text)
{
    if (!text->tep) {
        text->tep = e_text_event_processor_emacs_like_new();
        gtk_object_ref (GTK_OBJECT (text->tep));
        gtk_object_sink (GTK_OBJECT (text->tep));
        text->tep_command_id = 
            gtk_signal_connect(GTK_OBJECT(text->tep),
                       "command",
                       GTK_SIGNAL_FUNC(e_text_command),
                       (gpointer) text);
    }
}

/* Draw handler for the text item */
static void
e_text_draw (GnomeCanvasItem *item, GdkDrawable *drawable,
            int x, int y, int width, int height)
{
    EText *text;
    GdkRectangle rect, *clip_rect;
    struct line *lines;
    int i;
    int xpos, ypos;
    int start_char, end_char;
    int sel_start, sel_end;
    GdkRectangle sel_rect;
    GdkGC *fg_gc;
    GnomeCanvas *canvas;
    GtkWidget *widget;

    text = E_TEXT (item);
    canvas = GNOME_CANVAS_ITEM(text)->canvas;
    widget = GTK_WIDGET(canvas);

    fg_gc = widget->style->fg_gc[text->has_selection ? GTK_STATE_SELECTED : GTK_STATE_ACTIVE];
    
    if (text->draw_borders || text->draw_background) {
        gdouble thisx = item->x1 - x;
        gdouble thisy = item->y1 - y;
        gdouble thiswidth, thisheight;
        GtkWidget *widget = GTK_WIDGET(item->canvas);

        gtk_object_get(GTK_OBJECT(text),
                   "width", &thiswidth,
                   "height", &thisheight,
                   NULL);
        
        if (text->draw_borders){

            if (text->editing) {
                thisx += 1;
                thisy += 1;
                thiswidth -= 2;
                thisheight -= 2;
            }

            gtk_paint_shadow (widget->style, drawable,
                      GTK_STATE_NORMAL, GTK_SHADOW_IN,
                      NULL, widget, "entry",
                      thisx, thisy, thiswidth, thisheight);
        
            if (text->editing) {
                thisx -= 1;
                thisy -= 1;
                thiswidth += 2;
                thisheight += 2;
                /*
                 * Chris: I am here "filling in" for the additions
                 * and substractions done in the previous if (text->editing).
                 * but you might have other plans for this.  Please enlighten
                 * me as to whether it should be:
                 * thiswidth + 2 or thiswidth + 1.
                 */
                gtk_paint_focus (widget->style, drawable, 
                         NULL, widget, "entry",
                         thisx, thisy, thiswidth - 1, thisheight - 1);
            }
        }

        if (text->draw_background) {
            gtk_paint_flat_box (widget->style, drawable,
                        GTK_WIDGET_STATE(widget), GTK_SHADOW_NONE,
                        NULL, widget, "entry_bg", 
                        thisx + widget->style->klass->xthickness,
                        thisy + widget->style->klass->ythickness, 
                        thiswidth - widget->style->klass->xthickness * 2,
                        thisheight - widget->style->klass->ythickness * 2);
        }
    }

    if (!text->text || !text->font)
        return;

    lines = text->lines;
    if ( !lines ) {
        text->needs_split_into_lines = 1;
        e_canvas_item_request_reflow (item);
        return;
    }

    clip_rect = NULL;
    if (text->clip) {
        rect.x = text->clip_cx - x;
        rect.y = text->clip_cy - y;
        rect.width = text->clip_cwidth;
        rect.height = text->clip_cheight;
        
        gdk_gc_set_clip_rectangle (text->gc, &rect);
        gdk_gc_set_clip_rectangle (fg_gc, &rect);
        clip_rect = &rect;
    }
    ypos = text->cy + e_font_ascent (text->font);
    if (text->draw_borders)
        ypos += BORDER_INDENT;

    if (text->editing)
        ypos -= text->yofs_edit;

    if (text->stipple)
        gnome_canvas_set_stipple_origin (item->canvas, text->gc);

    for (i = 0; i < text->num_lines; i++) {

        xpos = get_line_xpos (text, lines);
        if (text->editing) {
            xpos -= text->xofs_edit;
            start_char = lines->text - text->text;
            end_char = start_char + lines->length;
            sel_start = text->selection_start;
            sel_end = text->selection_end;
            if (sel_start > sel_end ) {
                sel_start ^= sel_end;
                sel_end ^= sel_start;
                sel_start ^= sel_end;
            }
            if ( sel_start < start_char )
                sel_start = start_char;
            if ( sel_end > end_char )
                sel_end = end_char;
            if ( sel_start < sel_end ) {
                sel_rect.x = xpos - x + text_width_with_objects (text->model,
                                         text->font, text->style,
                                         lines->text,
                                         sel_start - start_char);
                sel_rect.y = ypos - y - e_font_ascent (text->font);
                sel_rect.width = text_width_with_objects (text->model,
                                      text->font, text->style,
                                      lines->text + sel_start - start_char,
                                      sel_end - sel_start);
                sel_rect.height = e_font_height (text->font);
                gtk_paint_flat_box(GTK_WIDGET(item->canvas)->style,
                           drawable,
                           text->has_selection ?
                           GTK_STATE_SELECTED :
                           GTK_STATE_ACTIVE,
                           GTK_SHADOW_NONE,
                           clip_rect,
                           GTK_WIDGET(item->canvas),
                           "text",
                           sel_rect.x,
                           sel_rect.y,
                           sel_rect.width,
                           sel_rect.height);
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            text->gc,
                            xpos - x,
                            ypos - y,
                            lines->text,
                            sel_start - start_char);
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            fg_gc,
                            xpos - x + text_width_with_objects (text->model,
                                                text->font, text->style,
                                                lines->text,
                                                sel_start - start_char),
                            ypos - y,
                            lines->text + sel_start - start_char,
                            sel_end - sel_start);
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            text->gc,
                            xpos - x + text_width_with_objects (text->model,
                                                text->font, text->style,
                                                lines->text,
                                                sel_end - start_char),
                            ypos - y,
                            lines->text + sel_end - start_char,
                            end_char - sel_end);
            } else {
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            text->gc,
                            xpos - x,
                            ypos - y,
                            lines->text,
                            lines->length);
            }
            if (text->selection_start == text->selection_end &&
                text->selection_start >= start_char &&
                text->selection_start <= end_char &&
                text->show_cursor) {
                gdk_draw_rectangle (drawable,
                            text->gc,
                            TRUE,
                            xpos - x + text_width_with_objects (text->model,
                                            text->font, text->style,
                                            lines->text,
                                            sel_start - start_char),
                            ypos - y - e_font_ascent (text->font),
                            1,
                            e_font_height (text->font));
            }
        } else {
            if (text->clip && text->use_ellipsis && lines->ellipsis_length < lines->length) {
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            text->gc,
                            xpos - x,
                            ypos - y,
                            lines->text,
                            lines->ellipsis_length);
                e_font_draw_utf8_text (drawable,
                               text->font, text->style,
                               text->gc,
                               xpos - x + lines->width - text->ellipsis_width,
                               ypos - y,
                               text->ellipsis ? text->ellipsis : "...",
                               text->ellipsis ? strlen (text->ellipsis) : 3);
            } else {
                text_draw_with_objects (text->model,
                            drawable,
                            text->font, text->style,
                            text->gc,
                            xpos - x,
                            ypos - y,
                            lines->text,
                            lines->length);
            }
        }

        if (text->strikeout)
            gdk_draw_rectangle (drawable,
                        text->gc,
                        TRUE,
                        xpos - x,
                        ypos - y - e_font_ascent (text->font) / 2,
                        lines->width, 1);
        ypos += e_font_height (text->font);
        lines++;
    }

    if (text->clip) {
        gdk_gc_set_clip_rectangle (text->gc, NULL);
        gdk_gc_set_clip_rectangle (fg_gc, NULL);
    }
}

/* Render handler for the text item */
static void
e_text_render (GnomeCanvasItem *item, GnomeCanvasBuf *buf)
{
#if 0
    EText *text;
    guint32 fg_color;
    double xpos, ypos;
    struct line *lines;
    int i, j;
    double affine[6];
    int dx, dy;
    ArtPoint start_i, start_c;

    text = E_TEXT (item);

    if (!text->text || !text->font || !text->suckfont)
        return;

    suckfont = text->suckfont;

    fg_color = text->rgba;

        gnome_canvas_buf_ensure_buf (buf);

    lines = text->lines;
    if ( !lines )
        return;

    start_i.y = get_line_ypos_item_relative (text);

    art_affine_scale (affine, item->canvas->pixels_per_unit, item->canvas->pixels_per_unit);
    for (i = 0; i < 6; i++)
        affine[i] = text->affine[i];

    for (i = 0; i < text->num_lines; i++) {
        if (lines->length != 0) {
            start_i.x = get_line_xpos_item_relative (text, lines);
            art_affine_point (&start_c, &start_i, text->affine);
            xpos = start_c.x;
            ypos = start_c.y;

            for (j = 0; j < lines->length; j++) {
                ETextSuckChar *ch;

                ch = &suckfont->chars[(unsigned char)((lines->text)[j])];

                affine[4] = xpos;
                affine[5] = ypos;
                art_rgb_bitmap_affine (
                    buf->buf,
                    buf->rect.x0, buf->rect.y0, buf->rect.x1, buf->rect.y1,
                    buf->buf_rowstride,
                    suckfont->bitmap + (ch->bitmap_offset >> 3),
                    ch->width,
                    suckfont->bitmap_height,
                    suckfont->bitmap_width >> 3,
                    fg_color,
                    affine,
                    ART_FILTER_NEAREST, NULL);

                dx = ch->left_sb + ch->width + ch->right_sb;
                xpos += dx * affine[0];
                ypos += dx * affine[1];
            }
        }

        dy = text->font->ascent + text->font->descent;
        start_i.y += dy;
        lines++;
    }

    buf->is_bg = 0;
#endif
}

/* Point handler for the text item */
static double
e_text_point (GnomeCanvasItem *item, double x, double y,
             int cx, int cy, GnomeCanvasItem **actual_item)
{
    EText *text;
    int i;
    struct line *lines;
    int x1, y1, x2, y2;
    int font_height;
    int dx, dy;
    double dist, best;

    text = E_TEXT (item);

    *actual_item = item;

    /* The idea is to build bounding rectangles for each of the lines of
     * text (clipped by the clipping rectangle, if it is activated) and see
     * whether the point is inside any of these.  If it is, we are done.
     * Otherwise, calculate the distance to the nearest rectangle.
     */

    if (text->font)
        font_height = e_font_height (text->font);
    else
        font_height = 0;

    best = 1.0e36;

    lines = text->lines;

    if (text->fill_clip_rectangle) {
        double clip_width;
        double clip_height;

        /* Calculate the width and heights */
        calc_height (text);
        calc_line_widths (text);
        
        if (text->clip_width < 0)
            clip_width = text->max_width;
        else
            clip_width = text->clip_width;

        /* Get canvas pixel coordinates for clip rectangle position */
        clip_width = clip_width * item->canvas->pixels_per_unit;
        if ( text->clip_height >= 0 )
            clip_height = text->clip_height * item->canvas->pixels_per_unit;
        else
            clip_height = text->height * item->canvas->pixels_per_unit;

        if (cx >= text->clip_cx &&
            cx <= text->clip_cx + clip_width &&
            cy >= text->clip_cy &&
            cy <= text->clip_cy + clip_height)
            return 0;
        else
            return 1;
    }

    for (i = 0; i < text->num_lines; i++) {
        /* Compute the coordinates of rectangle for the current line,
         * clipping if appropriate.
         */

        x1 = get_line_xpos (text, lines);
        y1 = text->cy + i * font_height;
        x2 = x1 + lines->width;
        y2 = y1 + font_height;

        if (text->clip) {
            if (x1 < text->clip_cx)
                x1 = text->clip_cx;

            if (y1 < text->clip_cy)
                y1 = text->clip_cy;
            
            if ( text->clip_width >= 0 ) {
                if (x2 > (text->clip_cx + text->clip_width))
                    x2 = text->clip_cx + text->clip_width;
            }

            if ( text->clip_height >= 0 ) {
                if (y2 > (text->clip_cy + text->clip_height))
                    y2 = text->clip_cy + text->clip_height;
            }

            if ((x1 >= x2) || (y1 >= y2))
                continue;
        }

        /* Calculate distance from point to rectangle */

        if (cx < x1)
            dx = x1 - cx;
        else if (cx >= x2)
            dx = cx - x2 + 1;
        else
            dx = 0;

        if (cy < y1)
            dy = y1 - cy;
        else if (cy >= y2)
            dy = cy - y2 + 1;
        else
            dy = 0;

        if ((dx == 0) && (dy == 0))
            return 0.0;

        dist = sqrt (dx * dx + dy * dy);
        if (dist < best)
            best = dist;

        /* Next! */

        lines++;
    }

    return best / item->canvas->pixels_per_unit;
}

/* Bounds handler for the text item */
static void
e_text_bounds (GnomeCanvasItem *item, double *x1, double *y1, double *x2, double *y2)
{
    EText *text;
    double width, height;

    text = E_TEXT (item);

    *x1 = 0;
    *y1 = 0;

    if (text->clip) {
        width = text->clip_width;
        if ( text->clip_height >= 0 )
            height = text->clip_height;
        else height = text->height;
    } else {
        width = text->max_width / item->canvas->pixels_per_unit;
        height = text->height / item->canvas->pixels_per_unit;
    }

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_W:
    case GTK_ANCHOR_SW:
        break;

    case GTK_ANCHOR_N:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_S:
        *x1 -= width / 2.0;
        break;

    case GTK_ANCHOR_NE:
    case GTK_ANCHOR_E:
    case GTK_ANCHOR_SE:
        *x1 -= width;
        break;
    }

    switch (text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_N:
    case GTK_ANCHOR_NE:
        break;

    case GTK_ANCHOR_W:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_E:
        *y1 -= height / 2.0;
        break;

    case GTK_ANCHOR_SW:
    case GTK_ANCHOR_S:
    case GTK_ANCHOR_SE:
        *y1 -= height;
        break;
    }

    *x2 = *x1 + width;
    *y2 = *y1 + height;
}

static gboolean
_get_xy_from_position (EText *text, gint position, gint *xp, gint *yp)
{
    if (text->lines && (xp || yp)) {
        struct line *lines = NULL;
        int x, y;
        double xd, yd;
        int j;
        x = get_line_xpos_item_relative (text, lines);
        y = text->yofs;
        y -= text->yofs_edit;
        for (j = 0, lines = text->lines; j < text->num_lines; lines++, j++) {
            if (lines->text > text->text + position)
                break;
            y += e_font_height (text->font);
        }
        lines --;
        y -= e_font_descent (text->font);
        
        x += text_width_with_objects (text->model,
                          text->font, text->style,
                          lines->text,
                          position - (lines->text - text->text));
        x -= text->xofs_edit;

        xd = x;  yd = y;
        gnome_canvas_item_i2w (GNOME_CANVAS_ITEM(text), &xd, &yd);
        gnome_canvas_w2c (GNOME_CANVAS_ITEM(text)->canvas, xd, yd, &x, &y);

        if (xp)
            *xp = x;
        if (yp)
            *yp = y;

        return TRUE;
    }

    return FALSE;
}

static gint
_get_position_from_xy (EText *text, gint x, gint y)
{
    int i, j;
    int ypos = text->yofs;
    int xpos;
    double xd, yd;
    const char *p;
    gunichar unival;
    gint font_ht, adjust=0;
    struct line *lines;

    xd = x;  yd = y;
    gnome_canvas_c2w (GNOME_CANVAS_ITEM(text)->canvas, xd, yd, &xd, &yd);
    gnome_canvas_item_w2i (GNOME_CANVAS_ITEM(text), &xd, &yd);
    x = xd;  y = yd;

    y += text->yofs_edit;
    font_ht = e_font_height (text->font);

    if (text->draw_borders)
        ypos += BORDER_INDENT;

    switch (text->anchor) {
    case GTK_ANCHOR_WEST:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_EAST:
        y += (text->num_lines * font_ht)/2;
        break;
    case GTK_ANCHOR_SOUTH:
    case GTK_ANCHOR_SOUTH_EAST:
    case GTK_ANCHOR_SOUTH_WEST:
        y += text->num_lines * font_ht;
    default:
        /* Do nothing */
        break;
    }
        

    j = 0;
    while (y > ypos) {
        ypos += font_ht;
        j ++;
    }
    j--;
    if (j >= text->num_lines)
        j = text->num_lines - 1;
    if (j < 0)
        j = 0;
    i = 0;
    lines = text->lines;
    
    if ( !lines )
        return 0;

    lines += j;
    x += text->xofs_edit;
    xpos = get_line_xpos_item_relative (text, lines);

    for (i = 0, p = lines->text; p && i < lines->length; i++, p = e_unicode_get_utf8 (p, &unival)) {
        int charwidth;
        int step1, step2;

#if 0
        if (unival == '\1') {
            const gchar *obj_str = NULL; /*e_text_model_get_nth_object (text->model, object_num);*/
            charwidth = e_font_utf8_text_width (text->font, text->style, obj_str, strlen (obj_str));
            ++object_num;

            step1 = charwidth;
            step2 = 0;
            adjust = -1;

        } else {
#endif
            charwidth = e_font_utf8_char_width (text->font, text->style, (gchar *) p);
            
            step1 = charwidth / 2;
            step2 = (charwidth + 1) / 2;
            adjust = 0;
#if 0
        }
#endif

        xpos += step1;
        if (xpos > x) {
            break;
        }
        xpos += step2;
    }

    if (!p) return 0;
    
    return MAX (p - text->text + adjust, 0);
}

#define SCROLL_WAIT_TIME 30000

static gboolean
_blink_scroll_timeout (gpointer data)
{
    EText *text = E_TEXT(data);
    gulong current_time;
    gboolean scroll = FALSE;
    gboolean redraw = FALSE;
    
    g_timer_elapsed(text->timer, &current_time);

    if (text->scroll_start + SCROLL_WAIT_TIME > 1000000) {
        if (current_time > text->scroll_start - (1000000 - SCROLL_WAIT_TIME) &&
            current_time < text->scroll_start)
            scroll = TRUE;
    } else {
        if (current_time > text->scroll_start + SCROLL_WAIT_TIME ||
            current_time < text->scroll_start)
            scroll = TRUE;
    }
    if (scroll && text->button_down) {
        if (text->lastx - text->clip_cx > text->clip_cwidth &&
            text->xofs_edit < text->max_width - text->clip_cwidth) {
            text->xofs_edit += 4;
            if (text->xofs_edit > text->max_width - text->clip_cwidth + 1)
                text->xofs_edit = text->max_width - text->clip_cwidth + 1;
            redraw = TRUE;
        }
        if (text->lastx - text->clip_cx < 0 &&
            text->xofs_edit > 0) {
            text->xofs_edit -= 4;
            if (text->xofs_edit < 0)
                text->xofs_edit = 0;
            redraw = TRUE;
        }

        if (text->lasty - text->clip_cy > text->clip_cheight &&
            text->yofs_edit < text->height - text->clip_cheight) {
            text->yofs_edit += 4;
            if (text->yofs_edit > text->height - text->clip_cheight + 1)
                text->yofs_edit = text->height - text->clip_cheight + 1;
            redraw = TRUE;
        }
        if (text->lasty - text->clip_cy < 0 &&
            text->yofs_edit > 0) {
            text->yofs_edit -= 4;
            if (text->yofs_edit < 0)
                text->yofs_edit = 0;
            redraw = TRUE;
        }

        if (redraw) {
            ETextEventProcessorEvent e_tep_event;
            e_tep_event.type = GDK_MOTION_NOTIFY;
            e_tep_event.motion.state = text->last_state;
            e_tep_event.motion.time = 0;
            e_tep_event.motion.position = _get_position_from_xy(text, text->lastx, text->lasty);
            _get_tep(text);
            e_text_event_processor_handle_event (text->tep,
                                 &e_tep_event);
            text->scroll_start = current_time;
        }
    }

    if (!((current_time / 500000) % 2)) {
        if (!text->show_cursor)
            redraw = TRUE;
        text->show_cursor = TRUE;
    } else {
        if (text->show_cursor)
            redraw = TRUE;
        text->show_cursor = FALSE;
    }
    if (redraw) {
        text->needs_redraw = 1;
        gnome_canvas_item_request_update (GNOME_CANVAS_ITEM(text));
    }
    return TRUE;
}

static gboolean
tooltip_event(GtkWidget *tooltip, GdkEvent *event, EText *text)
{
    gint ret_val = FALSE;
    switch (event->type) {
    case GDK_LEAVE_NOTIFY:
        e_canvas_hide_tooltip (E_CANVAS(GNOME_CANVAS_ITEM(text)->canvas));
        break;
    case GDK_BUTTON_PRESS:
    case GDK_BUTTON_RELEASE:
        if (event->type == GDK_BUTTON_RELEASE) {
            e_canvas_hide_tooltip (E_CANVAS(GNOME_CANVAS_ITEM(text)->canvas));
        }
        /* Forward events to the text item */
        gtk_signal_emit_by_name (GTK_OBJECT (text), "event", event,
                     &ret_val);
        if (!ret_val)
            gtk_propagate_event (GTK_WIDGET(GNOME_CANVAS_ITEM(text)->canvas), event);
        ret_val = TRUE;
    default:
        break;
    }
    return ret_val;
}

static gboolean
_do_tooltip (gpointer data)
{
    EText *text = E_TEXT (data);
    struct line *lines;
    GtkWidget *canvas;
    int i;
    gdouble max_width;
    gboolean cut_off;
    double i2c[6];
    ArtPoint origin = {0, 0};
    ArtPoint pixel_origin;
    int canvas_x, canvas_y;
    GnomeCanvasItem *tooltip_text;
    double tooltip_width;
    double tooltip_height;
    double tooltip_x;
    double tooltip_y;
#if 0
    double x1, x2, y1, y2;
#endif
    GnomeCanvasItem *rect;
    GtkWidget *tooltip_window;      /* GtkWindow for displaying the tooltip */

    text->tooltip_count = 0;

    lines = text->lines;

    if (E_CANVAS(GNOME_CANVAS_ITEM(text)->canvas)->tooltip_window || text->editing || (!lines)) {
        text->tooltip_timeout = 0;
        return FALSE;
    }

    cut_off = FALSE;
    for ( lines = text->lines, i = 0; i < text->num_lines; lines++, i++ ) {
        if (lines->length > lines->ellipsis_length) {
            cut_off = TRUE;
            break;
        }
    }
    if ( ! cut_off ) {
        text->tooltip_timeout = 0;
        return FALSE;
    }

    gnome_canvas_item_i2c_affine(GNOME_CANVAS_ITEM(text), i2c);
    art_affine_point (&pixel_origin, &origin, i2c);

    gdk_window_get_origin (GTK_WIDGET(GNOME_CANVAS_ITEM(text)->canvas)->window, &canvas_x, &canvas_y);
    pixel_origin.x += canvas_x;
    pixel_origin.y += canvas_y;
    pixel_origin.x -= (int) gtk_layout_get_hadjustment(GTK_LAYOUT(GNOME_CANVAS_ITEM(text)->canvas))->value;
    pixel_origin.y -= (int) gtk_layout_get_vadjustment(GTK_LAYOUT(GNOME_CANVAS_ITEM(text)->canvas))->value;

    tooltip_window = gtk_window_new (GTK_WINDOW_POPUP);
    gtk_container_set_border_width (GTK_CONTAINER (tooltip_window), 1);

    canvas = e_canvas_new ();

    gtk_container_add (GTK_CONTAINER (tooltip_window), canvas);
    
    /* Get the longest line length */
    max_width = 0.0;
    for (lines = text->lines, i = 0; i < text->num_lines; lines++, i++) {
        gdouble line_width;

        line_width = text_width_with_objects (text->model, text->font, text->style, lines->text, lines->length);
        max_width = MAX (max_width, line_width);
    }

    rect = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS (canvas)),
                      gnome_canvas_rect_get_type (),
                      "x1", (double) 0,
                      "y1", (double) 0,
                      "x2", (double) max_width + 4,
                      "y2", (double) text->height + 4,
                      "fill_color", "light gray",
                      NULL);

    /* Ref the font so that it is not destroyed
       when the tooltip text is destroyed */
    e_font_ref (text->font);
    tooltip_text = gnome_canvas_item_new (gnome_canvas_root (GNOME_CANVAS (canvas)),
                          e_text_get_type (),
                          "anchor", GTK_ANCHOR_NW,
                          "bold", text->bold,
                          "strikeout", text->strikeout,
                          "font_e", text->font,
                          "text", text->text,
                          "editable", FALSE,
                          "clip_width", text->max_lines != 1 ? text->clip_width : max_width,
                          "clip_height", text->max_lines != 1 ? -1 : (double)text->height,
                          "clip", TRUE,
                          "line_wrap", text->line_wrap,
                          "justification", text->justification,
                          NULL);



    if (text->draw_borders)
        e_canvas_item_move_absolute(tooltip_text, 1 + BORDER_INDENT, 1 + BORDER_INDENT);
    else
        e_canvas_item_move_absolute(tooltip_text, 1, 1);


    calc_height(E_TEXT(tooltip_text));
    calc_line_widths(E_TEXT(tooltip_text));
    gnome_canvas_item_set (tooltip_text,
                   "clip_height", (double) E_TEXT(tooltip_text)->height,
                   "clip_width", (double) E_TEXT(tooltip_text)->max_width,
                   NULL);
    tooltip_width = E_TEXT(tooltip_text)->max_width;
    tooltip_height = E_TEXT(tooltip_text)->height;
    tooltip_x = 0;
    tooltip_y = 0;
    switch(E_TEXT(tooltip_text)->justification) {
    case GTK_JUSTIFY_CENTER:
        tooltip_x = - tooltip_width / 2;
        break;
    case GTK_JUSTIFY_RIGHT:
        tooltip_x = tooltip_width / 2;
        break;
    case GTK_JUSTIFY_FILL:
    case GTK_JUSTIFY_LEFT:
        tooltip_x = 0;
        break;
    }
    switch(text->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_N:
    case GTK_ANCHOR_NE:
        break;

    case GTK_ANCHOR_W:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_E:
        tooltip_y -= tooltip_height / 2.0;
        break;

    case GTK_ANCHOR_SW:
    case GTK_ANCHOR_S:
    case GTK_ANCHOR_SE:
        tooltip_y -= tooltip_height;
        break;
    }
    switch(E_TEXT(tooltip_text)->anchor) {
    case GTK_ANCHOR_NW:
    case GTK_ANCHOR_W:
    case GTK_ANCHOR_SW:
        break;

    case GTK_ANCHOR_N:
    case GTK_ANCHOR_CENTER:
    case GTK_ANCHOR_S:
        tooltip_x -= tooltip_width / 2.0;
        break;

    case GTK_ANCHOR_NE:
    case GTK_ANCHOR_E:
    case GTK_ANCHOR_SE:
        tooltip_x -= tooltip_width;
        break;
    }
#if 0
    get_bounds(text, &x1, &y1, &x2, &y2);
    if ( x1 < tooltip_x ) {
        gnome_canvas_item_move(tooltip_text, tooltip_x - x1, 0);
        tooltip_x = x1;
    }
    if ( y1 < tooltip_y ) {
        gnome_canvas_item_move(tooltip_text, 0, tooltip_y - y1);
        tooltip_y = y1;
    }
    if ( x2 > tooltip_x + tooltip_width )
        tooltip_width = x2 - tooltip_x;
    if ( y2 > tooltip_y + tooltip_height )
        tooltip_height = y2 - tooltip_y;
#endif

    gnome_canvas_item_set(rect,
                  "x2", (double) tooltip_width + 4 + (text->draw_borders ? BORDER_INDENT * 2 : 0),
                  "y2", (double) tooltip_height + 4 + (text->draw_borders ? BORDER_INDENT * 2 : 0),
                  NULL);
    
    gtk_widget_set_usize (tooltip_window,
                  tooltip_width + 4 + (text->draw_borders ? BORDER_INDENT * 2 : 0),
                  tooltip_height + 4 + (text->draw_borders ? BORDER_INDENT * 2 : 0));
    gnome_canvas_set_scroll_region (GNOME_CANVAS(canvas), 0.0, 0.0,
                    tooltip_width + (text->draw_borders ? BORDER_INDENT * 2 : 0), 
                    (double)tooltip_height + (text->draw_borders ? BORDER_INDENT * 2 : 0));
    gtk_widget_show (canvas);
    gtk_widget_realize (tooltip_window);
    gtk_signal_connect (GTK_OBJECT(tooltip_window), "event",
                GTK_SIGNAL_FUNC(tooltip_event), text);

    e_canvas_popup_tooltip (E_CANVAS(GNOME_CANVAS_ITEM(text)->canvas),
                tooltip_window,
                pixel_origin.x - 2 + tooltip_x,
                pixel_origin.y - 2 + tooltip_y);
    
    text->tooltip_timeout = 0;
    return FALSE;
}

static gboolean
_click (gpointer data)
{
    *(gint *)data = 0;
    return FALSE;
}

static gint
e_text_event (GnomeCanvasItem *item, GdkEvent *event)
{
    EText *text = E_TEXT(item);
    ETextEventProcessorEvent e_tep_event;

    gint return_val = 0;

    if (GTK_OBJECT_DESTROYED (item))
        return FALSE;

    e_tep_event.type = event->type;
    switch (event->type) {
    case GDK_FOCUS_CHANGE:
        if (text->editable) {
            GdkEventFocus *focus_event;
            focus_event = (GdkEventFocus *) event;
            if (focus_event->in) {
                if(!text->editing) {
                    text->editing = TRUE;
                    if ( text->pointer_in ) {
                        if ( text->default_cursor_shown && (!text->draw_borders)) {
                            gdk_window_set_cursor(GTK_WIDGET(item->canvas)->window, text->i_cursor);
                            text->default_cursor_shown = FALSE;
                        }
                    }
                    text->select_by_word = FALSE;
                    text->xofs_edit = 0;
                    text->yofs_edit = 0;
                    if (text->timeout_id == 0)
                        text->timeout_id = g_timeout_add(10, _blink_scroll_timeout, text);
                    text->timer = g_timer_new();
                    g_timer_elapsed(text->timer, &(text->scroll_start));
                    g_timer_start(text->timer);
                }
            } else {
                text->editing = FALSE;
                if ( (!text->default_cursor_shown) && (!text->draw_borders) ) {
                    gdk_window_set_cursor(GTK_WIDGET(item->canvas)->window, text->default_cursor);
                    text->default_cursor_shown = TRUE;
                }
                if (text->timeout_id) {
                    g_source_remove(text->timeout_id);
                    text->timeout_id = 0;
                }
                if (text->timer) {
                    g_timer_stop(text->timer);
                    g_timer_destroy(text->timer);
                    text->timer = NULL;
                }
            }
            if ( text->line_wrap )
                text->needs_split_into_lines = 1;
            else
                text->needs_calc_line_widths = 1;
            e_canvas_item_request_reflow (GNOME_CANVAS_ITEM(text));
        }
        return_val = 0;
        break;
    case GDK_KEY_PRESS: /* Fall Through */
    case GDK_KEY_RELEASE:
        if (text->editing) {
            GdkEventKey key = event->key;
            gint ret;

            e_tep_event.key.time = key.time;
            e_tep_event.key.state = key.state;
            e_tep_event.key.keyval = key.keyval;

            // g_print ("etext got keyval \"%s\"\n", gdk_keyval_name (key.keyval));

            /* This is probably ugly hack, but we have to handle UTF-8 input somehow */
#if 0
            e_tep_event.key.length = key.length;
            e_tep_event.key.string = key.string;
#else
            e_tep_event.key.string = e_utf8_from_gtk_event_key (GTK_WIDGET (item->canvas), key.keyval, key.string);
            if (e_tep_event.key.string != NULL) {
                e_tep_event.key.length = strlen (e_tep_event.key.string);
            } else {
                e_tep_event.key.length = 0;
            }
#endif
            _get_tep(text);
            ret = e_text_event_processor_handle_event (text->tep, &e_tep_event);

            if (e_tep_event.key.string) g_free (e_tep_event.key.string);

            if (event->type == GDK_KEY_PRESS)
                gtk_signal_emit (GTK_OBJECT (text), e_text_signals[E_TEXT_KEYPRESS],
                         e_tep_event.key.keyval, e_tep_event.key.state);

            return ret;
        }
        else
            return 0;
        break;
    case GDK_BUTTON_PRESS: /* Fall Through */
    case GDK_BUTTON_RELEASE:
        if (text->tooltip_timeout) {
            gtk_timeout_remove (text->tooltip_timeout);
            text->tooltip_timeout = 0;
        }
        e_canvas_hide_tooltip (E_CANVAS(GNOME_CANVAS_ITEM(text)->canvas));
#if 0
        if ((!text->editing) 
            && text->editable 
            && event->type == GDK_BUTTON_RELEASE
            && event->button.button == 1) {
            GdkEventButton button = event->button;

            e_canvas_item_grab_focus (item, TRUE);

            e_tep_event.type = GDK_BUTTON_RELEASE;
            e_tep_event.button.time = button.time;
            e_tep_event.button.state = button.state;
            e_tep_event.button.button = button.button;
            e_tep_event.button.position = _get_position_from_xy(text, button.x, button.y);
            _get_tep(text);
            return_val = e_text_event_processor_handle_event (text->tep,
                                      &e_tep_event);
            e_tep_event.type = GDK_BUTTON_RELEASE;
        }
#else
        if ((!text->editing) 
            && text->editable 
            && (event->button.button == 1 ||
            event->button.button == 2)) {
            e_canvas_item_grab_focus (item, TRUE);
        }
#endif

        /* We follow convention and emit popup events on right-clicks. */
        if (event->type == GDK_BUTTON_PRESS && event->button.button == 3) {
            gtk_signal_emit (GTK_OBJECT (text),
                     e_text_signals[E_TEXT_POPUP],
                     &(event->button),
                     _get_position_from_xy (text, event->button.x, event->button.y));

            break;
        }

        /* Create our own double and triple click events, 
           as gnome-canvas doesn't forward them to us */
        if (event->type == GDK_BUTTON_PRESS) {
            if (text->dbl_timeout == 0 && 
                text->tpl_timeout == 0) {
                text->dbl_timeout = gtk_timeout_add (200,
                                     _click,
                                     &(text->dbl_timeout));
            } else {
                if (text->tpl_timeout == 0) {
                    e_tep_event.type = GDK_2BUTTON_PRESS;
                    text->tpl_timeout = gtk_timeout_add (200, _click, &(text->tpl_timeout));
                } else {
                    e_tep_event.type = GDK_3BUTTON_PRESS;
                }                    
            }
        }
        
        if (text->editing) {
            GdkEventButton button = event->button;
            e_tep_event.button.time = button.time;
            e_tep_event.button.state = button.state;
            e_tep_event.button.button = button.button;
            e_tep_event.button.position = _get_position_from_xy(text, button.x, button.y);
            _get_tep(text);
            return_val = e_text_event_processor_handle_event (text->tep,
                                      &e_tep_event);
            if (event->button.button == 1) {
                if (event->type == GDK_BUTTON_PRESS)
                    text->button_down = TRUE;
                else
                    text->button_down = FALSE;
            }
            text->lastx = button.x;
            text->lasty = button.y;
            text->last_state = button.state;
        }
        break;
    case GDK_MOTION_NOTIFY:
        if (text->editing) {
            GdkEventMotion motion = event->motion;
            e_tep_event.motion.time = motion.time;
            e_tep_event.motion.state = motion.state;
            e_tep_event.motion.position = _get_position_from_xy(text, motion.x, motion.y);
            _get_tep(text);
            return_val = e_text_event_processor_handle_event (text->tep,
                                       &e_tep_event);
            text->lastx = motion.x;
            text->lasty = motion.y;
            text->last_state = motion.state;
        }
        break;
    case GDK_ENTER_NOTIFY:
        {
            GdkEventCrossing *crossing = (GdkEventCrossing *) event;
            double x1, y1, x2, y2;
            get_bounds (text, &x1, &y1, &x2, &y2);
            if (crossing->x >= x1 &&
                crossing->y >= y1 &&
                crossing->x <= x2 &&
                crossing->y <= y2) {
                if ( text->tooltip_count == 0 && text->clip) {
                    if (!text->tooltip_timeout)
                        text->tooltip_timeout = gtk_timeout_add (1000, _do_tooltip, text);
                }
                text->tooltip_count ++;
            }
        }

        text->pointer_in = TRUE;
        if (text->editing || text->draw_borders) {
            if ( text->default_cursor_shown ) {
                gdk_window_set_cursor(GTK_WIDGET(item->canvas)->window, text->i_cursor);
                text->default_cursor_shown = FALSE;
            }
        }
        break;
    case GDK_LEAVE_NOTIFY:
        if (text->tooltip_count > 0)
            text->tooltip_count --;
        if ( text->tooltip_count == 0 && text->clip) {
            if ( text->tooltip_timeout ) {
                gtk_timeout_remove (text->tooltip_timeout);
                text->tooltip_timeout = 0;
            }
        }
        
        text->pointer_in = FALSE;
        if (text->editing || text->draw_borders) {
            if ( ! text->default_cursor_shown ) {
                gdk_window_set_cursor(GTK_WIDGET(item->canvas)->window, text->default_cursor);
                text->default_cursor_shown = TRUE;
            }
        }
        break;
    default:
        break;
    }
    if (return_val)
        return return_val;
    if (GNOME_CANVAS_ITEM_CLASS(parent_class)->event)
        return GNOME_CANVAS_ITEM_CLASS(parent_class)->event(item, event);
    else
        return 0;
}

/* fixme: */

static int
_get_position(EText *text, ETextEventProcessorCommand *command)
{
    int length, obj_num;
    int x, y;
    gunichar unival;
    char *p = NULL;
    gint new_pos = 0;
    
    switch (command->position) {
        
    case E_TEP_VALUE:
        new_pos = command->value;
        break;

    case E_TEP_SELECTION:
        new_pos = text->selection_end;
        break;

    case E_TEP_START_OF_BUFFER:
        new_pos = 0;
        break;

    case E_TEP_END_OF_BUFFER:
        new_pos = g_utf8_strlen (text->text, -1);
        break;

    case E_TEP_START_OF_LINE:

        new_pos = 0;
        
        if (text->selection_end >= 1) {
            
            p = g_utf8_find_prev_char (text->text, text->text + text->selection_end);
            if (p != text->text) {
                p = g_utf8_find_prev_char (text->text, p);

                while (p && p > text->text && !new_pos) {
                    if (*p == '\n')
                        new_pos = p - text->text + 1;
                    p = g_utf8_find_prev_char (text->text, p);
                }
            }
        }

        break;

    case E_TEP_END_OF_LINE:
        new_pos = -1;
        length = strlen (text->text);
        
        if (text->selection_end >= length) {
            new_pos = length;
        } else {

            p = g_utf8_next_char (text->text + text->selection_end);

            while (p && *p) {
                if (*p == '\n') {
                    new_pos = p - text->text;
                    p = NULL;
                } else 
                    p = g_utf8_next_char (p);
            }
        }

        if (new_pos == -1)
            new_pos = p - text->text;

        break;

    case E_TEP_FORWARD_CHARACTER:
        length = strlen (text->text);

        if (text->selection_end >= length) {
            new_pos = length;
        } else {
            p = g_utf8_next_char (text->text + text->selection_end);
            new_pos = p - text->text;
        }

        break;

    case E_TEP_BACKWARD_CHARACTER:
        new_pos = 0;
        if (text->selection_end >= 1) {
            p = g_utf8_find_prev_char (text->text, text->text + text->selection_end);

            if (p != NULL)
                new_pos = p - text->text;
        }

        break;

    case E_TEP_FORWARD_WORD:
        new_pos = -1;
        length = strlen (text->text);

        if (text->selection_end >= length) {
            new_pos = length;
        } else {

            p = g_utf8_next_char (text->text + text->selection_end);

            while (p && *p) {
                unival = g_utf8_get_char (p);
                if (g_unichar_isspace (unival)) {
                    new_pos = p - text->text;
                    p = NULL;
                } else 
                    p = g_utf8_next_char (p);
            }
        }
            
        if (new_pos == -1)
            new_pos = p - text->text;

        break;

    case E_TEP_BACKWARD_WORD:
        new_pos = 0;
        if (text->selection_end >= 1) {
            p = g_utf8_find_prev_char (text->text, text->text + text->selection_end);
            if (p != text->text) {
                p = g_utf8_find_prev_char (text->text, p);

                while (p && p > text->text) {
                    unival = g_utf8_get_char (p);
                    if (g_unichar_isspace (unival)) {
                        new_pos = g_utf8_next_char (p) - text->text; 
                        p = NULL;
                    } else
                        p = g_utf8_find_prev_char (text->text, p);
                }
            }
        }
                    
        break;

    case E_TEP_FORWARD_LINE:
        if (_get_xy_from_position(text, text->selection_end, &x, &y)) {
            y += e_font_height (text->font);
            new_pos = _get_position_from_xy(text, x, y);
        }
        break;

    case E_TEP_BACKWARD_LINE:
        if (_get_xy_from_position(text, text->selection_end, &x, &y)) {
            y -= e_font_height (text->font);
            new_pos = _get_position_from_xy(text, x, y);
        }
        break;

    case E_TEP_SELECT_WORD:

        /* This is a silly hack to cause double-clicking on an object
           to activate that object.
           (Normally, double click == select word, which is why this is here.) */
        
        obj_num = e_text_model_get_object_at_offset (text->model, text->selection_start);
        if (obj_num != -1) {
            e_text_model_activate_nth_object (text->model, obj_num);
            new_pos = text->selection_start;
            break;
        }


        if (text->selection_end < 1) {
            new_pos = 0;
            break;
        }

        p = g_utf8_find_prev_char (text->text, text->text + text->selection_end);
        if (p == text->text) {
            new_pos = 0;
            break;
        }
        p = g_utf8_find_prev_char (text->text, p);

        while (p && p > text->text) {
            unival = g_utf8_get_char (p);
            if (g_unichar_isspace (unival)) {
                p = g_utf8_next_char (p);
                break;
            }
            p = g_utf8_find_prev_char (text->text, p);
        }

        if (!p)
            text->selection_start = 0;
        else
            text->selection_start = p - text->text;


        text->selection_start = e_text_model_validate_position (text->model, text->selection_start);
        
        length = strlen (text->text);
        if (text->selection_end >= length) {
            new_pos = length;
            break;
        }

        p = g_utf8_next_char (text->text + text->selection_end);

        while (p && *p) {
            unival = g_utf8_get_char (p);
            if (g_unichar_isspace (unival)) {
                new_pos =  p - text->text;
                p = NULL;
            } else
                p = g_utf8_next_char (p);
        }

        if (p)
            new_pos = p - text->text;

        return new_pos;

    case E_TEP_SELECT_ALL:
        text->selection_start = 0;
        new_pos = strlen (text->text);
        break;

    case E_TEP_FORWARD_PARAGRAPH:
    case E_TEP_BACKWARD_PARAGRAPH:
        
    case E_TEP_FORWARD_PAGE:
    case E_TEP_BACKWARD_PAGE:
        new_pos = text->selection_end;
        break;

    default:
        new_pos = text->selection_end;
    }

    new_pos = e_text_model_validate_position (text->model, new_pos);

    return new_pos;
}

static void
_delete_selection(EText *text)
{
    if ( text->selection_start < text->selection_end ) {
        e_text_model_delete(text->model, text->selection_start, text->selection_end - text->selection_start);
#if 0
        text->selection_end = text->selection_start;
#endif
    } else {
        e_text_model_delete(text->model, text->selection_end, text->selection_start - text->selection_end);
#if 0
        text->selection_start = text->selection_end;
#endif
    }
}

static void
_insert(EText *text, char *string, int value)
{
    if (value > 0) {
        e_text_model_insert_length(text->model, text->selection_start, string, value);
        
#if 0
        text->selection_start += value;
        text->selection_end = text->selection_start;
#endif
    }
}

static void
e_text_command(ETextEventProcessor *tep, ETextEventProcessorCommand *command, gpointer data)
{
    EText *text = E_TEXT(data);
    int sel_start, sel_end;

    switch (command->action) {
    case E_TEP_MOVE:
        text->selection_start = _get_position(text, command);
        text->selection_end = text->selection_start;
        if (text->timer) {
            g_timer_reset(text->timer);
        }

        break;
    case E_TEP_SELECT:
        text->selection_start = e_text_model_validate_position (text->model, text->selection_start); /* paranoia */
        text->selection_end = _get_position(text, command);
        
        sel_start = MIN(text->selection_start, text->selection_end);
        sel_end   = MAX(text->selection_start, text->selection_end);

        sel_start = e_text_model_validate_position (text->model, sel_start);
        
        if (sel_start != sel_end) {
            e_text_supply_selection (text, command->time, GDK_SELECTION_PRIMARY,
                         (guchar *) text->text + sel_start, sel_end - sel_start);
        } else if (text->timer) {
            g_timer_reset(text->timer);
        }

        break;
    case E_TEP_DELETE:
        if (text->selection_end == text->selection_start) {
            text->selection_end = _get_position(text, command);
        }
        _delete_selection(text);
        if (text->timer) {
            g_timer_reset(text->timer);
        }
        break;

    case E_TEP_INSERT:
        if (text->selection_end != text->selection_start) {
            _delete_selection(text);
        }
        _insert(text, command->string, command->value);
        if (text->timer) {
            g_timer_reset(text->timer);
        }
        break;
    case E_TEP_COPY:
        sel_start = MIN(text->selection_start, text->selection_end);
        sel_end = MAX(text->selection_start, text->selection_end);
        if (sel_start != sel_end) {
            e_text_supply_selection (text, command->time, clipboard_atom,
                         (guchar *) text->text + sel_start, sel_end - sel_start);
        }
        if (text->timer) {
            g_timer_reset(text->timer);
        }
        break;
    case E_TEP_PASTE:
        e_text_get_selection (text, clipboard_atom, command->time);
        if (text->timer) {
            g_timer_reset(text->timer);
        }
        break;
    case E_TEP_GET_SELECTION:
        e_text_get_selection (text, GDK_SELECTION_PRIMARY, command->time);
        break;
    case E_TEP_ACTIVATE:
        gtk_signal_emit (GTK_OBJECT (text), e_text_signals[E_TEXT_ACTIVATE]);
        if (text->timer) {
            g_timer_reset(text->timer);
        }
        break;
    case E_TEP_SET_SELECT_BY_WORD:
        text->select_by_word = command->value;
        break;
    case E_TEP_GRAB:
        gnome_canvas_item_grab (GNOME_CANVAS_ITEM(text), 
                    GDK_BUTTON_RELEASE_MASK | GDK_POINTER_MOTION_MASK,
                    text->i_cursor,
                    command->time);
        break;
    case E_TEP_UNGRAB:
        gnome_canvas_item_ungrab (GNOME_CANVAS_ITEM(text), command->time);
        break;
    case E_TEP_NOP:
        break;
    }

    if (!text->button_down) {
        int x;
        int i;
        struct line *lines = text->lines;
        gdouble clip_width;
        if ( !lines )
            return;

        for (lines = text->lines, i = 0; i < text->num_lines ; i++, lines ++) {
            if ((lines->text - text->text) > text->selection_end) {
                break;
            }
        }
        lines --;
        i --;
        x = text_width_with_objects (text->model,
                         text->font, text->style,
                         lines->text, 
                         text->selection_end - (lines->text - text->text));
        

        if (x < text->xofs_edit) {
            text->xofs_edit = x;
        }

        clip_width = text->clip_width;
        if (clip_width >= 0 && text->draw_borders) {
            clip_width -= 6;
            if (clip_width < 0)
                clip_width = 0;
        }

        if (2 + x - clip_width > text->xofs_edit) {
            text->xofs_edit = 2 + x - clip_width;
        }
        
        if (e_font_height (text->font) * i < text->yofs_edit)
            text->yofs_edit = e_font_height (text->font) * i;
        
        if (e_font_height (text->font) * (i + 1) - (text->clip_height != -1 ? text->clip_height : text->height) > text->yofs_edit)
            text->yofs_edit = e_font_height (text->font) * (i + 1) - (text->clip_height != -1 ? text->clip_height : text->height);
    }

    text->needs_redraw = 1;
    gnome_canvas_item_request_update (GNOME_CANVAS_ITEM(text));
}

static void 
_invisible_destroy (GtkInvisible *invisible,
                EText *text)
{
    text->invisible = NULL;
}

static GtkWidget *
e_text_get_invisible(EText *text)
{   
    GtkWidget *invisible;
    if (text->invisible) {
        invisible = text->invisible;
    } else {
        invisible = gtk_invisible_new();
        text->invisible = invisible;
        
        gtk_selection_add_target (invisible,
                      GDK_SELECTION_PRIMARY,
                      GDK_SELECTION_TYPE_STRING,
                      E_SELECTION_PRIMARY);
        gtk_selection_add_target (invisible,
                      clipboard_atom,
                      GDK_SELECTION_TYPE_STRING,
                      E_SELECTION_CLIPBOARD);
        
        gtk_signal_connect (GTK_OBJECT(invisible), "selection_get",
                    GTK_SIGNAL_FUNC (_selection_get), 
                    text);
        gtk_signal_connect (GTK_OBJECT(invisible), "selection_clear_event",
                    GTK_SIGNAL_FUNC (_selection_clear_event),
                    text);
        gtk_signal_connect (GTK_OBJECT(invisible), "selection_received",
                    GTK_SIGNAL_FUNC (_selection_received),
                    text);
        
        gtk_signal_connect (GTK_OBJECT(invisible), "destroy",
                    GTK_SIGNAL_FUNC (_invisible_destroy),
                    text);
    }
    return invisible;
}

static void
_selection_clear_event (GtkInvisible *invisible,
            GdkEventSelection *event,
            EText *text)
{
    if (event->selection == GDK_SELECTION_PRIMARY) {
        g_free (text->primary_selection);
        text->primary_selection = NULL;
        text->primary_length = 0;

        text->has_selection = FALSE;
        text->needs_redraw = 1;
        gnome_canvas_item_request_update (GNOME_CANVAS_ITEM(text));

    } else if (event->selection == clipboard_atom) {
        g_free (text->clipboard_selection);
        text->clipboard_selection = NULL;
        text->clipboard_length = 0;
    }
}

static void
_selection_get (GtkInvisible *invisible,
        GtkSelectionData *selection_data,
        guint info,
        guint time_stamp,
        EText *text)
{
    switch (info) {
    case E_SELECTION_PRIMARY:
        gtk_selection_data_set (selection_data, GDK_SELECTION_TYPE_STRING,
                    8, text->primary_selection, text->primary_length);
        break;
    case E_SELECTION_CLIPBOARD:
        gtk_selection_data_set (selection_data, GDK_SELECTION_TYPE_STRING,
                    8, text->clipboard_selection, text->clipboard_length);
        break;
    }
}

static void
_selection_received (GtkInvisible *invisible,
             GtkSelectionData *selection_data,
             guint time,
             EText *text)
{
    if (selection_data->length < 0 || selection_data->type != GDK_SELECTION_TYPE_STRING) {
        return;
    } else {
        ETextEventProcessorCommand command;
        command.action = E_TEP_INSERT;
        command.position = E_TEP_SELECTION;
        command.string = selection_data->data;
        command.value = selection_data->length;
        command.time = time;
        e_text_command(text->tep, &command, text);
    }
}

static void 
e_text_supply_selection (EText *text, guint time, GdkAtom selection, guchar *data, gint length)
{
    gboolean successful;
    GtkWidget *invisible;

    invisible = e_text_get_invisible(text);

    if (selection == GDK_SELECTION_PRIMARY ) {
        if (text->primary_selection) {
            g_free (text->primary_selection);
        }
        text->primary_selection = g_strndup(data, length);
        text->primary_length = length;
    } else if (selection == clipboard_atom) {
        if (text->clipboard_selection) {
            g_free (text->clipboard_selection);
        }
        text->clipboard_selection = g_strndup(data, length);
        text->clipboard_length = length;
    }

    successful = gtk_selection_owner_set (invisible,
                          selection,
                          time);
    
    if (selection == GDK_SELECTION_PRIMARY)
        text->has_selection = successful;
}

static void
e_text_get_selection(EText *text, GdkAtom selection, guint32 time)
{
    GtkWidget *invisible;
    invisible = e_text_get_invisible(text);
    gtk_selection_convert(invisible,
                  selection,
                  GDK_SELECTION_TYPE_STRING,
                  time);
}

#if 0
static void
e_text_real_copy_clipboard (EText *text)
{
  guint32 time;
  gint selection_start_pos; 
  gint selection_end_pos;

  g_return_if_fail (text != NULL);
  g_return_if_fail (E_IS_TEXT (text));
  
  time = gtk_text_get_event_time (text);
  selection_start_pos = MIN (text->selection_start, text->selection_end);
  selection_end_pos = MAX (text->selection_start, text->selection_end);
 
  if (selection_start_pos != selection_end_pos)
    {
      if (gtk_selection_owner_set (GTK_WIDGET (text->canvas),
                   clipboard_atom,
                   time))
          text->clipboard_text = "";
    }
}

static void
e_text_real_paste_clipboard (EText *text)
{
  guint32 time;

  g_return_if_fail (text != NULL);
  g_return_if_fail (E_IS_TEXT (text));
  
  time = e_text_get_event_time (text);
  if (text->editable)
      gtk_selection_convert (GTK_WIDGET(text->widget),
                 clipboard_atom,
                 gdk_atom_intern ("COMPOUND_TEXT", FALSE), time);
}
#endif


#if 0
/* Routines for sucking fonts from the X server */

static ETextSuckFont *
e_suck_font (GdkFont *font)
{
    ETextSuckFont *suckfont;
    int i;
    int x, y;
    char text[1];
    int lbearing, rbearing, ch_width, ascent, descent;
    GdkPixmap *pixmap;
    GdkColor black, white;
    GdkImage *image;
    GdkGC *gc;
    guchar *line;
    int width, height;
    int black_pixel, pixel;

    if (!font)
        return NULL;

    suckfont = g_new (ETextSuckFont, 1);

    height = font->ascent + font->descent;
    x = 0;
    for (i = 0; i < 256; i++) {
        text[0] = i;
        gdk_text_extents (font, text, 1,
                  &lbearing, &rbearing, &ch_width, &ascent, &descent);
        suckfont->chars[i].left_sb = lbearing;
        suckfont->chars[i].right_sb = ch_width - rbearing;
        suckfont->chars[i].width = rbearing - lbearing;
        suckfont->chars[i].ascent = ascent;
        suckfont->chars[i].descent = descent;
        suckfont->chars[i].bitmap_offset = x;
        x += (ch_width + 31) & -32;
    }

    width = x;

    suckfont->bitmap_width = width;
    suckfont->bitmap_height = height;
    suckfont->ascent = font->ascent;

    pixmap = gdk_pixmap_new (NULL, suckfont->bitmap_width,
                 suckfont->bitmap_height, 1);
    gc = gdk_gc_new (pixmap);
    gdk_gc_set_font (gc, font);

    black_pixel = BlackPixel (gdk_display, DefaultScreen (gdk_display));
    black.pixel = black_pixel;
    white.pixel = WhitePixel (gdk_display, DefaultScreen (gdk_display));
    gdk_gc_set_foreground (gc, &white);
    gdk_draw_rectangle (pixmap, gc, 1, 0, 0, width, height);

    gdk_gc_set_foreground (gc, &black);
    for (i = 0; i < 256; i++) {
        text[0] = i;
        gdk_draw_text (pixmap, font, gc,
                   suckfont->chars[i].bitmap_offset - suckfont->chars[i].left_sb,
                   font->ascent,
                   text, 1);
    }

    /* The handling of the image leaves me with distinct unease.  But this
     * is more or less copied out of gimp/app/text_tool.c, so it _ought_ to
     * work. -RLL
     */

    image = gdk_image_get (pixmap, 0, 0, width, height);
    suckfont->bitmap = g_malloc0 ((width >> 3) * height);

    line = suckfont->bitmap;
    for (y = 0; y < height; y++) {
        for (x = 0; x < width; x++) {
            pixel = gdk_image_get_pixel (image, x, y);
            if (pixel == black_pixel)
                line[x >> 3] |= 128 >> (x & 7);
        }
        line += width >> 3;
    }

    gdk_image_destroy (image);

    /* free the pixmap */
    gdk_pixmap_unref (pixmap);

    /* free the gc */
    gdk_gc_destroy (gc);

    return suckfont;
}

static void
e_suck_font_free (ETextSuckFont *suckfont)
{
    g_free (suckfont->bitmap);
    g_free (suckfont);
}
#endif