/*
 * Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation
 * All rights reserved.
 *
 * This file is part of the Gnome Library.
 *
 * The Gnome Library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * The Gnome Library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with the Gnome Library; see the file COPYING.LIB.  If not,
 * see <http://www.gnu.org/licenses/>.
 */
/*
 *  @NOTATION@
 */
/*
 * EelCanvas widget - Tk-like canvas widget for Gnome
 *
 * EelCanvas 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.
 *
 *
 * Authors: Federico Mena <federico@nuclecu.unam.mx>
 *          Raph Levien <raph@gimp.org>
 */

/*
 * TO-DO list for the canvas:
 *
 * - Allow to specify whether EelCanvasImage sizes are in units or pixels (scale or don't scale).
 *
 * - GC put functions for items.
 *
 * - Widget item (finish it).
 *
 * - GList *eel_canvas_gimme_all_items_contained_in_this_area (EelCanvas *canvas, Rectangle area);
 *
 * - Retrofit all the primitive items with microtile support.
 *
 * - Curve support for line item.
 *
 * - Arc item (Havoc has it; to be integrated in EelCanvasEllipse).
 *
 * - Sane font handling API.
 *
 * - Get_arg methods for items:
 *   - How to fetch the outline width and know whether it is in pixels or units?
 */

#include <config.h>

#include <math.h>
#include <string.h>
#include <stdio.h>
#include <gdk/gdkprivate.h>
#include <gtk/gtk.h>
#include <glib/gi18n-lib.h>
#include <cairo-gobject.h>
#include "eel-canvas.h"

static void eel_canvas_request_update (EelCanvas *canvas);
static void group_add (EelCanvasGroup *group,
                       EelCanvasItem  *item);
static void group_remove (EelCanvasGroup *group,
                          EelCanvasItem  *item);
static void redraw_and_repick_if_mapped (EelCanvasItem *item);

/*** EelCanvasItem ***/

/* Some convenience stuff */
#define GCI_UPDATE_MASK (EEL_CANVAS_UPDATE_REQUESTED | EEL_CANVAS_UPDATE_DEEP)

enum
{
    ITEM_PROP_0,
    ITEM_PROP_VISIBLE
};

enum
{
    ITEM_DESTROY,
    ITEM_EVENT,
    ITEM_LAST_SIGNAL
};

static void eel_canvas_item_class_init (EelCanvasItemClass *klass);
static void eel_canvas_item_init (EelCanvasItem *item);
static int  emit_event (EelCanvas *canvas,
                        GdkEvent  *event);

static guint item_signals[ITEM_LAST_SIGNAL];

static GObjectClass *item_parent_class;

static gpointer accessible_item_parent_class;
static gpointer accessible_parent_class;


/**
 * eel_canvas_item_get_type:
 *
 * Registers the &EelCanvasItem class if necessary, and returns the type ID
 * associated to it.
 *
 * Return value:  The type ID of the &EelCanvasItem class.
 **/
GType
eel_canvas_item_get_type (void)
{
    static GType canvas_item_type = 0;

    if (!canvas_item_type)
    {
        static const GTypeInfo canvas_item_info =
        {
            sizeof (EelCanvasItemClass),
            (GBaseInitFunc) NULL,
            (GBaseFinalizeFunc) NULL,
            (GClassInitFunc) eel_canvas_item_class_init,
            NULL,                       /* class_finalize */
            NULL,                       /* class_data */
            sizeof (EelCanvasItem),
            0,                          /* n_preallocs */
            (GInstanceInitFunc) eel_canvas_item_init
        };

        canvas_item_type = g_type_register_static (G_TYPE_INITIALLY_UNOWNED,
                                                   "EelCanvasItem",
                                                   &canvas_item_info,
                                                   0);
    }

    return canvas_item_type;
}

/* Object initialization function for EelCanvasItem */
static void
eel_canvas_item_init (EelCanvasItem *item)
{
    item->flags |= EEL_CANVAS_ITEM_VISIBLE;
}

/* Performs post-creation operations on a canvas item (adding it to its parent
 * group, etc.)
 */
static void
item_post_create_setup (EelCanvasItem *item)
{
    group_add (EEL_CANVAS_GROUP (item->parent), item);

    redraw_and_repick_if_mapped (item);
}

/**
 * eel_canvas_item_new:
 * @parent: The parent group for the new item.
 * @type: The object type of the item.
 * @first_arg_name: A list of object argument name/value pairs, NULL-terminated,
 * used to configure the item.  For example, "fill_color", "black",
 * "width_units", 5.0, NULL.
 * @Varargs:
 *
 * Creates a new canvas item with @parent as its parent group.  The item is
 * created at the top of its parent's stack, and starts up as visible.  The item
 * is of the specified @type, for example, it can be
 * eel_canvas_rect_get_type().  The list of object arguments/value pairs is
 * used to configure the item.
 *
 * Return value: The newly-created item.
 **/
EelCanvasItem *
eel_canvas_item_new (EelCanvasGroup *parent,
                     GType           type,
                     const gchar    *first_arg_name,
                     ...)
{
    EelCanvasItem *item;
    va_list args;

    g_return_val_if_fail (EEL_IS_CANVAS_GROUP (parent), NULL);
    g_return_val_if_fail (g_type_is_a (type, eel_canvas_item_get_type ()), NULL);

    item = EEL_CANVAS_ITEM (g_object_new (type, NULL));

    item->parent = EEL_CANVAS_ITEM (parent);
    item->canvas = item->parent->canvas;

    va_start (args, first_arg_name);
    g_object_set_valist (G_OBJECT (item), first_arg_name, args);
    va_end (args);

    item_post_create_setup (item);

    return item;
}

/* Set_property handler for canvas items */
static void
eel_canvas_item_set_property (GObject      *gobject,
                              guint         param_id,
                              const GValue *value,
                              GParamSpec   *pspec)
{
    EelCanvasItem *item;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (gobject));

    item = EEL_CANVAS_ITEM (gobject);

    switch (param_id)
    {
        case ITEM_PROP_VISIBLE:
        {
            if (g_value_get_boolean (value))
            {
                eel_canvas_item_show (item);
            }
            else
            {
                eel_canvas_item_hide (item);
            }
        }
        break;

        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, param_id, pspec);
        }
        break;
    }
}

/* Get_property handler for canvas items */
static void
eel_canvas_item_get_property (GObject    *gobject,
                              guint       param_id,
                              GValue     *value,
                              GParamSpec *pspec)
{
    EelCanvasItem *item;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (gobject));

    item = EEL_CANVAS_ITEM (gobject);

    switch (param_id)
    {
        case ITEM_PROP_VISIBLE:
        {
            g_value_set_boolean (value, item->flags & EEL_CANVAS_ITEM_VISIBLE);
        }
        break;

        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, param_id, pspec);
        }
        break;
    }
}

static void
redraw_and_repick_if_mapped (EelCanvasItem *item)
{
    if (item->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        eel_canvas_item_request_redraw (item);
        item->canvas->need_repick = TRUE;
    }
}

/* Dispose handler for canvas items */
static void
eel_canvas_item_dispose (GObject *object)
{
    EelCanvasItem *item;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (object));

    item = EEL_CANVAS_ITEM (object);

    if (item->canvas)
    {
        eel_canvas_item_request_redraw (item);

        /* Make the canvas forget about us */

        if (item == item->canvas->current_item)
        {
            item->canvas->current_item = NULL;
            item->canvas->need_repick = TRUE;
        }

        if (item == item->canvas->new_current_item)
        {
            item->canvas->new_current_item = NULL;
            item->canvas->need_repick = TRUE;
        }

        eel_canvas_item_ungrab (item);

        if (item == item->canvas->focused_item)
        {
            item->canvas->focused_item = NULL;
        }

        /* Normal destroy stuff */

        if (item->flags & EEL_CANVAS_ITEM_MAPPED)
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->unmap)(item);
        }

        if (item->flags & EEL_CANVAS_ITEM_REALIZED)
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->unrealize)(item);
        }

        if (item->parent)
        {
            group_remove (EEL_CANVAS_GROUP (item->parent), item);
        }

        item->canvas = NULL;
    }

    g_object_set_data (object, "in-destruction", GINT_TO_POINTER (1));
    g_signal_emit (object, item_signals[ITEM_DESTROY], 0);

    g_object_set_data (object, "in-destruction", NULL);

    G_OBJECT_CLASS (item_parent_class)->dispose (object);
}

void
eel_canvas_item_destroy (EelCanvasItem *item)
{
    if (g_object_get_data (G_OBJECT (item), "in-destruction") == NULL)
    {
        g_object_run_dispose (G_OBJECT (item));
    }
}

/* Realize handler for canvas items */
static void
eel_canvas_item_realize (EelCanvasItem *item)
{
    if (item->parent && !(item->parent->flags & EEL_CANVAS_ITEM_REALIZED))
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (item->parent)->realize)(item->parent);
    }

    if (item->parent == NULL && !gtk_widget_get_realized (GTK_WIDGET (item->canvas)))
    {
        gtk_widget_realize (GTK_WIDGET (item->canvas));
    }

    item->flags |= EEL_CANVAS_ITEM_REALIZED;

    eel_canvas_item_request_update (item);
}

/* Unrealize handler for canvas items */
static void
eel_canvas_item_unrealize (EelCanvasItem *item)
{
    if (item->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (item)->unmap)(item);
    }

    item->flags &= ~(EEL_CANVAS_ITEM_REALIZED);
}

/* Map handler for canvas items */
static void
eel_canvas_item_map (EelCanvasItem *item)
{
    item->flags |= EEL_CANVAS_ITEM_MAPPED;
}

/* Unmap handler for canvas items */
static void
eel_canvas_item_unmap (EelCanvasItem *item)
{
    item->flags &= ~(EEL_CANVAS_ITEM_MAPPED);
}

/* Update handler for canvas items */
static void
eel_canvas_item_update (EelCanvasItem *item,
                        double         i2w_dx,
                        double         i2w_dy,
                        int            flags)
{
    item->flags &= ~(EEL_CANVAS_ITEM_NEED_UPDATE);
    item->flags &= ~(EEL_CANVAS_ITEM_NEED_DEEP_UPDATE);
}

/*
 * This routine invokes the update method of the item
 * Please notice, that we take parent to canvas pixel matrix as argument
 * unlike virtual method ::update, whose argument is item 2 canvas pixel
 * matrix
 *
 * I will try to force somewhat meaningful naming for affines (Lauris)
 * General naming rule is FROM2TO, where FROM and TO are abbreviations
 * So p2cpx is Parent2CanvasPixel and i2cpx is Item2CanvasPixel
 * I hope that this helps to keep track of what really happens
 *
 */

static void
eel_canvas_item_invoke_update (EelCanvasItem *item,
                               double         i2w_dx,
                               double         i2w_dy,
                               int            flags)
{
    int child_flags;

    child_flags = flags;

    /* apply object flags to child flags */
    child_flags &= ~EEL_CANVAS_UPDATE_REQUESTED;

    if (item->flags & EEL_CANVAS_ITEM_NEED_UPDATE)
    {
        child_flags |= EEL_CANVAS_UPDATE_REQUESTED;
    }

    if (item->flags & EEL_CANVAS_ITEM_NEED_DEEP_UPDATE)
    {
        child_flags |= EEL_CANVAS_UPDATE_DEEP;
    }

    if (child_flags & GCI_UPDATE_MASK)
    {
        if (EEL_CANVAS_ITEM_GET_CLASS (item)->update)
        {
            EEL_CANVAS_ITEM_GET_CLASS (item)->update (item, i2w_dx, i2w_dy, child_flags);
        }
    }

    /* If this fail you probably forgot to chain up to
     * EelCanvasItem::update from a derived class */
    g_return_if_fail (!(item->flags & EEL_CANVAS_ITEM_NEED_UPDATE));
}

/*
 * This routine invokes the point method of the item.
 * The arguments x, y should be in the parent item local coordinates.
 */

static double
eel_canvas_item_invoke_point (EelCanvasItem  *item,
                              double          x,
                              double          y,
                              int             cx,
                              int             cy,
                              EelCanvasItem **actual_item)
{
    /* Calculate x & y in item local coordinates */

    if (EEL_CANVAS_ITEM_GET_CLASS (item)->point)
    {
        return EEL_CANVAS_ITEM_GET_CLASS (item)->point (item, x, y, cx, cy, actual_item);
    }

    return 1e18;
}

/**
 * eel_canvas_item_set:
 * @item: A canvas item.
 * @first_arg_name: The list of object argument name/value pairs used to configure the item.
 * @Varargs:
 *
 * Configures a canvas item.  The arguments in the item are set to the specified
 * values, and the item is repainted as appropriate.
 **/
void
eel_canvas_item_set (EelCanvasItem *item,
                     const gchar   *first_arg_name,
                     ...)
{
    va_list args;

    va_start (args, first_arg_name);
    g_object_set_valist (G_OBJECT (item), first_arg_name, args);
    va_end (args);

    item->canvas->need_repick = TRUE;
}

/**
 * eel_canvas_item_move:
 * @item: A canvas item.
 * @dx: Horizontal offset.
 * @dy: Vertical offset.
 *
 * Moves a canvas item by creating an affine transformation matrix for
 * translation by using the specified values. This happens in item
 * local coordinate system, so if you have nontrivial transform, it
 * most probably does not do, what you want.
 **/
void
eel_canvas_item_move (EelCanvasItem *item,
                      double         dx,
                      double         dy)
{
    g_return_if_fail (item != NULL);
    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (!EEL_CANVAS_ITEM_GET_CLASS (item)->translate)
    {
        g_warning ("Item type %s does not implement translate method.\n",
                   g_type_name (G_OBJECT_TYPE (item)));
        return;
    }

    (*EEL_CANVAS_ITEM_GET_CLASS (item)->translate)(item, dx, dy);

    if (item->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        item->canvas->need_repick = TRUE;
    }

    if (!(item->flags & EEL_CANVAS_ITEM_NEED_DEEP_UPDATE))
    {
        item->flags |= EEL_CANVAS_ITEM_NEED_DEEP_UPDATE;
        if (item->parent != NULL)
        {
            eel_canvas_item_request_update (item->parent);
        }
        else
        {
            eel_canvas_request_update (item->canvas);
        }
    }
}

static void
eel_canvas_queue_resize (EelCanvas *canvas)
{
    if (gtk_widget_is_drawable (GTK_WIDGET (canvas)))
    {
        gtk_widget_queue_resize (GTK_WIDGET (canvas));
    }
}

/* Convenience function to reorder items in a group's child list.  This puts the
 * specified link after the "before" link. Returns TRUE if the list was changed.
 */
static gboolean
put_item_after (GList *link,
                GList *before)
{
    EelCanvasGroup *parent;

    if (link == before)
    {
        return FALSE;
    }

    parent = EEL_CANVAS_GROUP (EEL_CANVAS_ITEM (link->data)->parent);

    if (before == NULL)
    {
        if (link == parent->item_list)
        {
            return FALSE;
        }

        link->prev->next = link->next;

        if (link->next)
        {
            link->next->prev = link->prev;
        }
        else
        {
            parent->item_list_end = link->prev;
        }

        link->prev = before;
        link->next = parent->item_list;
        link->next->prev = link;
        parent->item_list = link;
    }
    else
    {
        if ((link == parent->item_list_end) && (before == parent->item_list_end->prev))
        {
            return FALSE;
        }

        if (link->next)
        {
            link->next->prev = link->prev;
        }

        if (link->prev)
        {
            link->prev->next = link->next;
        }
        else
        {
            parent->item_list = link->next;
            parent->item_list->prev = NULL;
        }

        link->prev = before;
        link->next = before->next;

        link->prev->next = link;

        if (link->next)
        {
            link->next->prev = link;
        }
        else
        {
            parent->item_list_end = link;
        }
    }
    return TRUE;
}


/**
 * eel_canvas_item_raise:
 * @item: A canvas item.
 * @positions: Number of steps to raise the item.
 *
 * Raises the item in its parent's stack by the specified number of positions.
 * If the number of positions is greater than the distance to the top of the
 * stack, then the item is put at the top.
 **/
void
eel_canvas_item_raise (EelCanvasItem *item,
                       int            positions)
{
    GList *link, *before;
    EelCanvasGroup *parent;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));
    g_return_if_fail (positions >= 0);

    if (!item->parent || positions == 0)
    {
        return;
    }

    parent = EEL_CANVAS_GROUP (item->parent);
    link = g_list_find (parent->item_list, item);
    g_assert (link != NULL);

    for (before = link; positions && before; positions--)
    {
        before = before->next;
    }

    if (!before)
    {
        before = parent->item_list_end;
    }

    if (put_item_after (link, before))
    {
        redraw_and_repick_if_mapped (item);
    }
}


/**
 * eel_canvas_item_lower:
 * @item: A canvas item.
 * @positions: Number of steps to lower the item.
 *
 * Lowers the item in its parent's stack by the specified number of positions.
 * If the number of positions is greater than the distance to the bottom of the
 * stack, then the item is put at the bottom.
 **/
void
eel_canvas_item_lower (EelCanvasItem *item,
                       int            positions)
{
    GList *link, *before;
    EelCanvasGroup *parent;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));
    g_return_if_fail (positions >= 1);

    if (!item->parent || positions == 0)
    {
        return;
    }

    parent = EEL_CANVAS_GROUP (item->parent);
    link = g_list_find (parent->item_list, item);
    g_assert (link != NULL);

    if (link->prev)
    {
        for (before = link->prev; positions && before; positions--)
        {
            before = before->prev;
        }
    }
    else
    {
        before = NULL;
    }

    if (put_item_after (link, before))
    {
        redraw_and_repick_if_mapped (item);
    }
}


/**
 * eel_canvas_item_raise_to_top:
 * @item: A canvas item.
 *
 * Raises an item to the top of its parent's stack.
 **/
void
eel_canvas_item_raise_to_top (EelCanvasItem *item)
{
    GList *link;
    EelCanvasGroup *parent;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (!item->parent)
    {
        return;
    }

    parent = EEL_CANVAS_GROUP (item->parent);
    link = g_list_find (parent->item_list, item);
    g_assert (link != NULL);

    if (put_item_after (link, parent->item_list_end))
    {
        redraw_and_repick_if_mapped (item);
    }
}


/**
 * eel_canvas_item_lower_to_bottom:
 * @item: A canvas item.
 *
 * Lowers an item to the bottom of its parent's stack.
 **/
void
eel_canvas_item_lower_to_bottom (EelCanvasItem *item)
{
    GList *link;
    EelCanvasGroup *parent;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (!item->parent)
    {
        return;
    }

    parent = EEL_CANVAS_GROUP (item->parent);
    link = g_list_find (parent->item_list, item);
    g_assert (link != NULL);

    if (put_item_after (link, NULL))
    {
        redraw_and_repick_if_mapped (item);
    }
}

/**
 * eel_canvas_item_send_behind:
 * @item: A canvas item.
 * @behind_item: The canvas item to put item behind, or NULL
 *
 * Moves item to a in the position in the stacking order so that
 * it is placed immediately below behind_item, or at the top if
 * behind_item is NULL.
 **/
void
eel_canvas_item_send_behind (EelCanvasItem *item,
                             EelCanvasItem *behind_item)
{
    GList *item_list;
    int item_position, behind_position;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (behind_item == NULL)
    {
        eel_canvas_item_raise_to_top (item);
        return;
    }

    g_return_if_fail (EEL_IS_CANVAS_ITEM (behind_item));
    g_return_if_fail (item->parent == behind_item->parent);

    item_list = EEL_CANVAS_GROUP (item->parent)->item_list;

    item_position = g_list_index (item_list, item);
    g_assert (item_position != -1);
    behind_position = g_list_index (item_list, behind_item);
    g_assert (behind_position != -1);
    g_assert (item_position != behind_position);

    if (item_position == behind_position - 1)
    {
        return;
    }

    if (item_position < behind_position)
    {
        eel_canvas_item_raise (item, (behind_position - 1) - item_position);
    }
    else
    {
        eel_canvas_item_lower (item, item_position - behind_position);
    }
}

/**
 * eel_canvas_item_show:
 * @item: A canvas item.
 *
 * Shows a canvas item.  If the item was already shown, then no action is taken.
 **/
void
eel_canvas_item_show (EelCanvasItem *item)
{
    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (!(item->flags & EEL_CANVAS_ITEM_VISIBLE))
    {
        item->flags |= EEL_CANVAS_ITEM_VISIBLE;

        if (!(item->flags & EEL_CANVAS_ITEM_REALIZED))
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->realize)(item);
        }

        if (item->parent != NULL)
        {
            if (!(item->flags & EEL_CANVAS_ITEM_MAPPED) &&
                item->parent->flags & EEL_CANVAS_ITEM_MAPPED)
            {
                (*EEL_CANVAS_ITEM_GET_CLASS (item)->map)(item);
            }
        }
        else
        {
            if (!(item->flags & EEL_CANVAS_ITEM_MAPPED) &&
                gtk_widget_get_mapped (GTK_WIDGET (item->canvas)))
            {
                (*EEL_CANVAS_ITEM_GET_CLASS (item)->map)(item);
            }
        }

        redraw_and_repick_if_mapped (item);
        eel_canvas_queue_resize (item->canvas);
    }
}


/**
 * eel_canvas_item_hide:
 * @item: A canvas item.
 *
 * Hides a canvas item.  If the item was already hidden, then no action is
 * taken.
 **/
void
eel_canvas_item_hide (EelCanvasItem *item)
{
    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (item->flags & EEL_CANVAS_ITEM_VISIBLE)
    {
        item->flags &= ~EEL_CANVAS_ITEM_VISIBLE;

        redraw_and_repick_if_mapped (item);

        if (item->flags & EEL_CANVAS_ITEM_MAPPED)
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->unmap)(item);
        }

        eel_canvas_queue_resize (item->canvas);

        /* No need to unrealize when we just want to hide */
    }
}


/*
 * Prepare the window for grabbing, i.e. show it.
 */
static void
seat_grab_prepare_window (GdkSeat   *seat,
                          GdkWindow *window,
                          gpointer   user_data)
{
    gdk_window_show (window);
}

/**
 * eel_canvas_item_grab:
 * @item: A canvas item.
 * @event_mask: Mask of events that will be sent to this item.
 * @cursor: If non-NULL, the cursor that will be used while the grab is active.
 * @event: The event, triggering the grab, if any.
 *
 * Specifies that all events that match the specified event mask should be sent
 * to the specified item, and also grabs the seat by calling gdk_seat_grab().
 * If @cursor is not NULL, then that cursor is used while the grab is active.
 *
 * Return value: If an item was already grabbed, it returns %GDK_GRAB_ALREADY_GRABBED. If
 * the specified item was hidden by calling eel_canvas_item_hide(), then it
 * returns %GDK_GRAB_NOT_VIEWABLE. Else, it returns the result of calling
 * gdk_seat_grab().
 **/
GdkGrabStatus
eel_canvas_item_grab (EelCanvasItem  *item,
                      GdkEventMask    event_mask,
                      GdkCursor      *cursor,
                      const GdkEvent *event)
{
    GdkGrabStatus retval;
    GdkDisplay *display;
    GdkSeat *seat;

    g_return_val_if_fail (EEL_IS_CANVAS_ITEM (item), GDK_GRAB_NOT_VIEWABLE);
    g_return_val_if_fail (gtk_widget_get_mapped (GTK_WIDGET (item->canvas)),
                          GDK_GRAB_NOT_VIEWABLE);

    if (item->canvas->grabbed_item)
    {
        return GDK_GRAB_ALREADY_GRABBED;
    }

    if (!(item->flags & EEL_CANVAS_ITEM_MAPPED))
    {
        return GDK_GRAB_NOT_VIEWABLE;
    }

    display = gtk_widget_get_display (GTK_WIDGET (item->canvas));
    seat = gdk_display_get_default_seat (display);

    retval = gdk_seat_grab (seat,
                            gtk_layout_get_bin_window (GTK_LAYOUT (item->canvas)),
                            GDK_SEAT_CAPABILITY_ALL_POINTING,
                            FALSE,
                            cursor,
                            event,
                            seat_grab_prepare_window,
                            NULL);

    if (retval != GDK_GRAB_SUCCESS)
    {
        return retval;
    }

    item->canvas->grabbed_item = item;
    item->canvas->grabbed_event_mask = event_mask;
    item->canvas->current_item = item;     /* So that events go to the grabbed item */

    return retval;
}


/**
 * eel_canvas_item_ungrab:
 * @item: A canvas item that holds a grab.
 *
 * Ungrabs the item, which must have been grabbed in the canvas, and ungrabs the
 * seat.
 **/
void
eel_canvas_item_ungrab (EelCanvasItem *item)
{
    GdkDisplay *display;
    GdkSeat *seat;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    if (item->canvas->grabbed_item != item)
    {
        return;
    }

    display = gtk_widget_get_display (GTK_WIDGET (item->canvas));
    seat = gdk_display_get_default_seat (display);

    item->canvas->grabbed_item = NULL;
    gdk_seat_ungrab (seat);
}

/**
 * eel_canvas_item_i2w:
 * @item: A canvas item.
 * @x: X coordinate to convert (input/output value).
 * @y: Y coordinate to convert (input/output value).
 *
 * Converts a coordinate pair from item-relative coordinates to world
 * coordinates.
 **/
void
eel_canvas_item_i2w (EelCanvasItem *item,
                     double        *x,
                     double        *y)
{
    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));
    g_return_if_fail (x != NULL);
    g_return_if_fail (y != NULL);

    item = item->parent;
    while (item)
    {
        if (EEL_IS_CANVAS_GROUP (item))
        {
            *x += EEL_CANVAS_GROUP (item)->xpos;
            *y += EEL_CANVAS_GROUP (item)->ypos;
        }

        item = item->parent;
    }
}

/* Returns whether the item is an inferior of or is equal to the parent. */
static int
is_descendant (EelCanvasItem *item,
               EelCanvasItem *parent)
{
    for (; item; item = item->parent)
    {
        if (item == parent)
        {
            return TRUE;
        }
    }

    return FALSE;
}

/**
 * eel_canvas_item_grab_focus:
 * @item: A canvas item.
 *
 * Makes the specified item take the keyboard focus, so all keyboard events will
 * be sent to it.  If the canvas widget itself did not have the focus, it grabs
 * it as well.
 **/
static void
eel_canvas_item_grab_focus (EelCanvasItem *item)
{
    EelCanvasItem *focused_item;
    GdkEvent ev;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));
    g_return_if_fail (gtk_widget_get_can_focus (GTK_WIDGET (item->canvas)));

    focused_item = item->canvas->focused_item;

    if (focused_item)
    {
        ev.focus_change.type = GDK_FOCUS_CHANGE;
        ev.focus_change.window = gtk_layout_get_bin_window (GTK_LAYOUT (item->canvas));
        ev.focus_change.send_event = FALSE;
        ev.focus_change.in = FALSE;

        emit_event (item->canvas, &ev);
    }

    item->canvas->focused_item = item;
    gtk_widget_grab_focus (GTK_WIDGET (item->canvas));

    if (focused_item)
    {
        ev.focus_change.type = GDK_FOCUS_CHANGE;
        ev.focus_change.window = gtk_layout_get_bin_window (GTK_LAYOUT (item->canvas));
        ev.focus_change.send_event = FALSE;
        ev.focus_change.in = TRUE;

        emit_event (item->canvas, &ev);
    }
}


/**
 * eel_canvas_item_get_bounds:
 * @item: A canvas item.
 * @x1: Leftmost edge of the bounding box (return value).
 * @y1: Upper edge of the bounding box (return value).
 * @x2: Rightmost edge of the bounding box (return value).
 * @y2: Lower edge of the bounding box (return value).
 *
 * Queries the bounding box of a canvas item.  The bounds are returned in the
 * coordinate system of the item's parent.
 **/
void
eel_canvas_item_get_bounds (EelCanvasItem *item,
                            double        *x1,
                            double        *y1,
                            double        *x2,
                            double        *y2)
{
    double tx1, ty1, tx2, ty2;

    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    tx1 = ty1 = tx2 = ty2 = 0.0;

    /* Get the item's bounds in its coordinate system */

    if (EEL_CANVAS_ITEM_GET_CLASS (item)->bounds)
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (item)->bounds)(item, &tx1, &ty1, &tx2, &ty2);
    }

    /* Return the values */

    if (x1)
    {
        *x1 = tx1;
    }

    if (y1)
    {
        *y1 = ty1;
    }

    if (x2)
    {
        *x2 = tx2;
    }

    if (y2)
    {
        *y2 = ty2;
    }
}


/**
 * eel_canvas_item_request_update
 * @item: A canvas item.
 *
 * To be used only by item implementations.  Requests that the canvas queue an
 * update for the specified item.
 **/
void
eel_canvas_item_request_update (EelCanvasItem *item)
{
    if (NULL == item->canvas)
    {
        return;
    }

    g_return_if_fail (!item->canvas->doing_update);

    if (item->flags & EEL_CANVAS_ITEM_NEED_UPDATE)
    {
        return;
    }

    item->flags |= EEL_CANVAS_ITEM_NEED_UPDATE;

    if (item->parent != NULL)
    {
        /* Recurse up the tree */
        eel_canvas_item_request_update (item->parent);
    }
    else
    {
        /* Have reached the top of the tree, make sure the update call gets scheduled. */
        eel_canvas_request_update (item->canvas);
    }
}

/**
 * eel_canvas_item_request_update
 * @item: A canvas item.
 *
 * Convenience function that informs a canvas that the specified item needs
 * to be repainted. To be used by item implementations
 **/
void
eel_canvas_item_request_redraw (EelCanvasItem *item)
{
    if (item->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        eel_canvas_request_redraw (item->canvas,
                                   item->x1, item->y1,
                                   item->x2 + 1, item->y2 + 1);
    }
}



/*** EelCanvasGroup ***/


enum
{
    GROUP_PROP_0,
    GROUP_PROP_X,
    GROUP_PROP_Y
};


static void eel_canvas_group_class_init (EelCanvasGroupClass *klass);
static void eel_canvas_group_init (EelCanvasGroup *group);
static void eel_canvas_group_set_property (GObject      *object,
                                           guint         param_id,
                                           const GValue *value,
                                           GParamSpec   *pspec);
static void eel_canvas_group_get_property (GObject    *object,
                                           guint       param_id,
                                           GValue     *value,
                                           GParamSpec *pspec);

static void eel_canvas_group_destroy (EelCanvasItem *object);

static void   eel_canvas_group_update (EelCanvasItem *item,
                                       double         i2w_dx,
                                       double         i2w_dy,
                                       int            flags);
static void   eel_canvas_group_unrealize (EelCanvasItem *item);
static void   eel_canvas_group_map (EelCanvasItem *item);
static void   eel_canvas_group_unmap (EelCanvasItem *item);
static void   eel_canvas_group_draw (EelCanvasItem  *item,
                                     cairo_t        *cr,
                                     cairo_region_t *region);
static double eel_canvas_group_point (EelCanvasItem  *item,
                                      double          x,
                                      double          y,
                                      int             cx,
                                      int             cy,
                                      EelCanvasItem **actual_item);
static void   eel_canvas_group_translate (EelCanvasItem *item,
                                          double         dx,
                                          double         dy);
static void   eel_canvas_group_bounds (EelCanvasItem *item,
                                       double        *x1,
                                       double        *y1,
                                       double        *x2,
                                       double        *y2);


static EelCanvasItemClass *group_parent_class;


/**
 * eel_canvas_group_get_type:
 *
 * Registers the &EelCanvasGroup class if necessary, and returns the type ID
 * associated to it.
 *
 * Return value:  The type ID of the &EelCanvasGroup class.
 **/
GType
eel_canvas_group_get_type (void)
{
    static GType group_type = 0;

    if (!group_type)
    {
        static const GTypeInfo group_info =
        {
            sizeof (EelCanvasGroupClass),
            (GBaseInitFunc) NULL,
            (GBaseFinalizeFunc) NULL,
            (GClassInitFunc) eel_canvas_group_class_init,
            NULL,                       /* class_finalize */
            NULL,                       /* class_data */
            sizeof (EelCanvasGroup),
            0,                          /* n_preallocs */
            (GInstanceInitFunc) eel_canvas_group_init
        };

        group_type = g_type_register_static (eel_canvas_item_get_type (),
                                             "EelCanvasGroup",
                                             &group_info,
                                             0);
    }

    return group_type;
}

/* Class initialization function for EelCanvasGroupClass */
static void
eel_canvas_group_class_init (EelCanvasGroupClass *klass)
{
    GObjectClass *gobject_class;
    EelCanvasItemClass *item_class;

    gobject_class = (GObjectClass *) klass;
    item_class = (EelCanvasItemClass *) klass;

    group_parent_class = g_type_class_peek_parent (klass);

    gobject_class->set_property = eel_canvas_group_set_property;
    gobject_class->get_property = eel_canvas_group_get_property;

    g_object_class_install_property
        (gobject_class, GROUP_PROP_X,
        g_param_spec_double ("x",
                             _("X"),
                             _("X"),
                             -G_MAXDOUBLE, G_MAXDOUBLE, 0.0,
                             G_PARAM_READWRITE));
    g_object_class_install_property
        (gobject_class, GROUP_PROP_Y,
        g_param_spec_double ("y",
                             _("Y"),
                             _("Y"),
                             -G_MAXDOUBLE, G_MAXDOUBLE, 0.0,
                             G_PARAM_READWRITE));

    item_class->destroy = eel_canvas_group_destroy;
    item_class->update = eel_canvas_group_update;
    item_class->unrealize = eel_canvas_group_unrealize;
    item_class->map = eel_canvas_group_map;
    item_class->unmap = eel_canvas_group_unmap;
    item_class->draw = eel_canvas_group_draw;
    item_class->point = eel_canvas_group_point;
    item_class->translate = eel_canvas_group_translate;
    item_class->bounds = eel_canvas_group_bounds;
}

/* Object initialization function for EelCanvasGroup */
static void
eel_canvas_group_init (EelCanvasGroup *group)
{
    group->xpos = 0.0;
    group->ypos = 0.0;
}

/* Set_property handler for canvas groups */
static void
eel_canvas_group_set_property (GObject      *gobject,
                               guint         param_id,
                               const GValue *value,
                               GParamSpec   *pspec)
{
    EelCanvasItem *item;
    EelCanvasGroup *group;
    double old;
    gboolean moved;

    g_return_if_fail (EEL_IS_CANVAS_GROUP (gobject));

    item = EEL_CANVAS_ITEM (gobject);
    group = EEL_CANVAS_GROUP (gobject);

    moved = FALSE;
    switch (param_id)
    {
        case GROUP_PROP_X:
        {
            old = group->xpos;
            group->xpos = g_value_get_double (value);
            if (old != group->xpos)
            {
                moved = TRUE;
            }
        }
        break;

        case GROUP_PROP_Y:
        {
            old = group->ypos;
            group->ypos = g_value_get_double (value);
            if (old != group->ypos)
            {
                moved = TRUE;
            }
        }
        break;

        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, param_id, pspec);
        }
        break;
    }

    if (moved)
    {
        item->flags |= EEL_CANVAS_ITEM_NEED_DEEP_UPDATE;
        if (item->parent != NULL)
        {
            eel_canvas_item_request_update (item->parent);
        }
        else
        {
            eel_canvas_request_update (item->canvas);
        }
    }
}

/* Get_property handler for canvas groups */
static void
eel_canvas_group_get_property (GObject    *gobject,
                               guint       param_id,
                               GValue     *value,
                               GParamSpec *pspec)
{
    EelCanvasGroup *group;

    g_return_if_fail (EEL_IS_CANVAS_GROUP (gobject));

    group = EEL_CANVAS_GROUP (gobject);

    switch (param_id)
    {
        case GROUP_PROP_X:
        {
            g_value_set_double (value, group->xpos);
        }
        break;

        case GROUP_PROP_Y:
        {
            g_value_set_double (value, group->ypos);
        }
        break;

        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (gobject, param_id, pspec);
        }
        break;
    }
}

/* Destroy handler for canvas groups */
static void
eel_canvas_group_destroy (EelCanvasItem *object)
{
    EelCanvasGroup *group;
    EelCanvasItem *child;
    GList *list;

    g_return_if_fail (EEL_IS_CANVAS_GROUP (object));

    group = EEL_CANVAS_GROUP (object);

    list = group->item_list;
    while (list)
    {
        child = list->data;
        list = list->next;

        eel_canvas_item_destroy (child);
    }

    if (EEL_CANVAS_ITEM_CLASS (group_parent_class)->destroy)
    {
        (*EEL_CANVAS_ITEM_CLASS (group_parent_class)->destroy)(object);
    }
}

/* Update handler for canvas groups */
static void
eel_canvas_group_update (EelCanvasItem *item,
                         double         i2w_dx,
                         double         i2w_dy,
                         int            flags)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *i;
    double bbox_x0, bbox_y0, bbox_x1, bbox_y1;
    gboolean first = TRUE;

    group = EEL_CANVAS_GROUP (item);

    (*group_parent_class->update)(item, i2w_dx, i2w_dy, flags);

    bbox_x0 = 0;
    bbox_y0 = 0;
    bbox_x1 = 0;
    bbox_y1 = 0;

    for (list = group->item_list; list; list = list->next)
    {
        i = list->data;

        eel_canvas_item_invoke_update (i, i2w_dx + group->xpos, i2w_dy + group->ypos, flags);

        if (first)
        {
            first = FALSE;
            bbox_x0 = i->x1;
            bbox_y0 = i->y1;
            bbox_x1 = i->x2;
            bbox_y1 = i->y2;
        }
        else
        {
            bbox_x0 = MIN (bbox_x0, i->x1);
            bbox_y0 = MIN (bbox_y0, i->y1);
            bbox_x1 = MAX (bbox_x1, i->x2);
            bbox_y1 = MAX (bbox_y1, i->y2);
        }
    }
    item->x1 = bbox_x0;
    item->y1 = bbox_y0;
    item->x2 = bbox_x1;
    item->y2 = bbox_y1;
}

/* Unrealize handler for canvas groups */
static void
eel_canvas_group_unrealize (EelCanvasItem *item)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *i;

    group = EEL_CANVAS_GROUP (item);

    /* Unmap group before children to avoid flash */
    if (item->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (item)->unmap)(item);
    }

    for (list = group->item_list; list; list = list->next)
    {
        i = list->data;

        if (i->flags & EEL_CANVAS_ITEM_REALIZED)
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (i)->unrealize)(i);
        }
    }

    (*group_parent_class->unrealize)(item);
}

/* Map handler for canvas groups */
static void
eel_canvas_group_map (EelCanvasItem *item)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *i;

    group = EEL_CANVAS_GROUP (item);

    for (list = group->item_list; list; list = list->next)
    {
        i = list->data;

        if (i->flags & EEL_CANVAS_ITEM_VISIBLE &&
            !(i->flags & EEL_CANVAS_ITEM_MAPPED))
        {
            if (!(i->flags & EEL_CANVAS_ITEM_REALIZED))
            {
                (*EEL_CANVAS_ITEM_GET_CLASS (i)->realize)(i);
            }

            (*EEL_CANVAS_ITEM_GET_CLASS (i)->map)(i);
        }
    }

    (*group_parent_class->map)(item);
}

/* Unmap handler for canvas groups */
static void
eel_canvas_group_unmap (EelCanvasItem *item)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *i;

    group = EEL_CANVAS_GROUP (item);

    for (list = group->item_list; list; list = list->next)
    {
        i = list->data;

        if (i->flags & EEL_CANVAS_ITEM_MAPPED)
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (i)->unmap)(i);
        }
    }

    (*group_parent_class->unmap)(item);
}

/* Draw handler for canvas groups */
static void
eel_canvas_group_draw (EelCanvasItem  *item,
                       cairo_t        *cr,
                       cairo_region_t *region)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *child = NULL;

    group = EEL_CANVAS_GROUP (item);

    for (list = group->item_list; list; list = list->next)
    {
        child = list->data;

        if ((child->flags & EEL_CANVAS_ITEM_MAPPED) &&
            (EEL_CANVAS_ITEM_GET_CLASS (child)->draw))
        {
            GdkRectangle child_rect;

            child_rect.x = child->x1;
            child_rect.y = child->y1;
            child_rect.width = child->x2 - child->x1 + 1;
            child_rect.height = child->y2 - child->y1 + 1;

            if (cairo_region_contains_rectangle (region, &child_rect) != CAIRO_REGION_OVERLAP_OUT)
            {
                EEL_CANVAS_ITEM_GET_CLASS (child)->draw (child, cr, region);
            }
        }
    }
}

/* Point handler for canvas groups */
static double
eel_canvas_group_point (EelCanvasItem  *item,
                        double          x,
                        double          y,
                        int             cx,
                        int             cy,
                        EelCanvasItem **actual_item)
{
    EelCanvasGroup *group;
    GList *list;
    EelCanvasItem *child, *point_item;
    int x1, y1, x2, y2;
    double gx, gy;
    double dist, best;
    int has_point;

    group = EEL_CANVAS_GROUP (item);

    x1 = cx - item->canvas->close_enough;
    y1 = cy - item->canvas->close_enough;
    x2 = cx + item->canvas->close_enough;
    y2 = cy + item->canvas->close_enough;

    best = 0.0;
    *actual_item = NULL;

    gx = x - group->xpos;
    gy = y - group->ypos;

    dist = 0.0;     /* keep gcc happy */

    for (list = group->item_list; list; list = list->next)
    {
        child = list->data;

        if ((child->x1 > x2) || (child->y1 > y2) || (child->x2 < x1) || (child->y2 < y1))
        {
            continue;
        }

        point_item = NULL;         /* cater for incomplete item implementations */

        if ((child->flags & EEL_CANVAS_ITEM_MAPPED)
            && EEL_CANVAS_ITEM_GET_CLASS (child)->point)
        {
            dist = eel_canvas_item_invoke_point (child, gx, gy, cx, cy, &point_item);
            has_point = TRUE;
        }
        else
        {
            has_point = FALSE;
        }

        if (has_point
            && point_item
            && ((int) (dist * item->canvas->pixels_per_unit + 0.5)
                <= item->canvas->close_enough))
        {
            best = dist;
            *actual_item = point_item;
        }
    }

    return best;
}

static void
eel_canvas_group_translate (EelCanvasItem *item,
                            double         dx,
                            double         dy)
{
    EelCanvasGroup *group;

    group = EEL_CANVAS_GROUP (item);

    group->xpos += dx;
    group->ypos += dy;
}

/* Bounds handler for canvas groups */
static void
eel_canvas_group_bounds (EelCanvasItem *item,
                         double        *x1,
                         double        *y1,
                         double        *x2,
                         double        *y2)
{
    EelCanvasGroup *group;
    EelCanvasItem *child;
    GList *list;
    double tx1, ty1, tx2, ty2;
    double minx, miny, maxx, maxy;
    int set;

    group = EEL_CANVAS_GROUP (item);

    /* Get the bounds of the first visible item */

    child = NULL;     /* Unnecessary but eliminates a warning. */

    set = FALSE;

    for (list = group->item_list; list; list = list->next)
    {
        child = list->data;

        if (child->flags & EEL_CANVAS_ITEM_MAPPED)
        {
            set = TRUE;
            eel_canvas_item_get_bounds (child, &minx, &miny, &maxx, &maxy);
            break;
        }
    }

    /* If there were no visible items, return an empty bounding box */

    if (!set)
    {
        *x1 = *y1 = *x2 = *y2 = 0.0;
        return;
    }

    /* Now we can grow the bounds using the rest of the items */

    list = list->next;

    for (; list; list = list->next)
    {
        child = list->data;

        if (!(child->flags & EEL_CANVAS_ITEM_MAPPED))
        {
            continue;
        }

        eel_canvas_item_get_bounds (child, &tx1, &ty1, &tx2, &ty2);

        if (tx1 < minx)
        {
            minx = tx1;
        }

        if (ty1 < miny)
        {
            miny = ty1;
        }

        if (tx2 > maxx)
        {
            maxx = tx2;
        }

        if (ty2 > maxy)
        {
            maxy = ty2;
        }
    }

    /* Make the bounds be relative to our parent's coordinate system */

    if (item->parent)
    {
        minx += group->xpos;
        miny += group->ypos;
        maxx += group->xpos;
        maxy += group->ypos;
    }

    *x1 = minx;
    *y1 = miny;
    *x2 = maxx;
    *y2 = maxy;
}

/* Adds an item to a group */
static void
group_add (EelCanvasGroup *group,
           EelCanvasItem  *item)
{
    g_object_ref_sink (item);

    if (!group->item_list)
    {
        group->item_list = g_list_append (group->item_list, item);
        group->item_list_end = group->item_list;
    }
    else
    {
        group->item_list_end = g_list_append (group->item_list_end, item)->next;
    }

    if (item->flags & EEL_CANVAS_ITEM_VISIBLE &&
        group->item.flags & EEL_CANVAS_ITEM_MAPPED)
    {
        if (!(item->flags & EEL_CANVAS_ITEM_REALIZED))
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->realize)(item);
        }

        if (!(item->flags & EEL_CANVAS_ITEM_MAPPED))
        {
            (*EEL_CANVAS_ITEM_GET_CLASS (item)->map)(item);
        }
    }

    if (item->flags & EEL_CANVAS_ITEM_VISIBLE)
    {
        eel_canvas_queue_resize (EEL_CANVAS_ITEM (group)->canvas);
    }
}

/* Removes an item from a group */
static void
group_remove (EelCanvasGroup *group,
              EelCanvasItem  *item)
{
    GList *children;

    g_return_if_fail (EEL_IS_CANVAS_GROUP (group));
    g_return_if_fail (EEL_IS_CANVAS_ITEM (item));

    for (children = group->item_list; children; children = children->next)
    {
        if (children->data == item)
        {
            if (item->flags & EEL_CANVAS_ITEM_MAPPED)
            {
                (*EEL_CANVAS_ITEM_GET_CLASS (item)->unmap)(item);
            }

            if (item->flags & EEL_CANVAS_ITEM_REALIZED)
            {
                (*EEL_CANVAS_ITEM_GET_CLASS (item)->unrealize)(item);
            }

            if (item->flags & EEL_CANVAS_ITEM_VISIBLE)
            {
                eel_canvas_queue_resize (item->canvas);
            }

            /* Unparent the child */

            item->parent = NULL;
            /* item->canvas = NULL; */
            g_object_unref (G_OBJECT (item));

            /* Remove it from the list */

            if (children == group->item_list_end)
            {
                group->item_list_end = children->prev;
            }

            group->item_list = g_list_remove_link (group->item_list, children);
            g_list_free (children);
            break;
        }
    }
}


/*** EelCanvas ***/


static void eel_canvas_class_init (EelCanvasClass *klass);
static void eel_canvas_init (EelCanvas *canvas);
static void eel_canvas_destroy (GtkWidget *object);
static void eel_canvas_map (GtkWidget *widget);
static void eel_canvas_unmap (GtkWidget *widget);
static void eel_canvas_realize (GtkWidget *widget);
static void eel_canvas_unrealize (GtkWidget *widget);
static void eel_canvas_size_allocate (GtkWidget     *widget,
                                      GtkAllocation *allocation);
static gint eel_canvas_button (GtkWidget      *widget,
                               GdkEventButton *event);
static gint eel_canvas_motion (GtkWidget      *widget,
                               GdkEventMotion *event);
static gint eel_canvas_draw (GtkWidget *widget,
                             cairo_t   *cr);
static gint eel_canvas_key (GtkWidget   *widget,
                            GdkEventKey *event);
static gint eel_canvas_crossing (GtkWidget        *widget,
                                 GdkEventCrossing *event);
static gint eel_canvas_focus_in (GtkWidget     *widget,
                                 GdkEventFocus *event);
static gint eel_canvas_focus_out (GtkWidget     *widget,
                                  GdkEventFocus *event);
static void eel_canvas_request_update_real (EelCanvas *canvas);
static GtkLayoutClass *canvas_parent_class;

/**
 * eel_canvas_get_type:
 *
 * Registers the &EelCanvas class if necessary, and returns the type ID
 * associated to it.
 *
 * Return value:  The type ID of the &EelCanvas class.
 **/
GType
eel_canvas_get_type (void)
{
    static GType canvas_type = 0;

    if (!canvas_type)
    {
        static const GTypeInfo canvas_info =
        {
            sizeof (EelCanvasClass),
            (GBaseInitFunc) NULL,
            (GBaseFinalizeFunc) NULL,
            (GClassInitFunc) eel_canvas_class_init,
            NULL,                       /* class_finalize */
            NULL,                       /* class_data */
            sizeof (EelCanvas),
            0,                          /* n_preallocs */
            (GInstanceInitFunc) eel_canvas_init
        };

        canvas_type = g_type_register_static (gtk_layout_get_type (),
                                              "EelCanvas",
                                              &canvas_info,
                                              0);
    }

    return canvas_type;
}

static void
eel_canvas_get_property (GObject    *object,
                         guint       prop_id,
                         GValue     *value,
                         GParamSpec *pspec)
{
    switch (prop_id)
    {
        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
        }
        break;
    }
}

static void
eel_canvas_set_property (GObject      *object,
                         guint         prop_id,
                         const GValue *value,
                         GParamSpec   *pspec)
{
    switch (prop_id)
    {
        default:
        {
            G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
        }
        break;
    }
}

static void
eel_canvas_accessible_adjustment_changed (GtkAdjustment *adjustment,
                                          gpointer       data)
{
    AtkObject *atk_obj;

    /* The scrollbars have changed */
    atk_obj = ATK_OBJECT (data);

    g_signal_emit_by_name (atk_obj, "visible-data-changed");
}

static void
eel_canvas_accessible_initialize (AtkObject *obj,
                                  gpointer   data)
{
    EelCanvas *canvas = data;

    if (ATK_OBJECT_CLASS (accessible_parent_class)->initialize != NULL)
    {
        ATK_OBJECT_CLASS (accessible_parent_class)->initialize (obj, data);
    }

    gtk_accessible_set_widget (GTK_ACCESSIBLE (obj), GTK_WIDGET (data));
    g_signal_connect (gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas)),
                      "value-changed",
                      G_CALLBACK (eel_canvas_accessible_adjustment_changed),
                      obj);
    g_signal_connect (gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas)),
                      "value-changed",
                      G_CALLBACK (eel_canvas_accessible_adjustment_changed),
                      obj);

    obj->role = ATK_ROLE_LAYERED_PANE;
}

static gint
eel_canvas_accessible_get_n_children (AtkObject *obj)
{
    GtkAccessible *accessible;
    GtkWidget *widget;
    EelCanvas *canvas;
    EelCanvasGroup *root_group;

    accessible = GTK_ACCESSIBLE (obj);
    widget = gtk_accessible_get_widget (accessible);

    if (widget == NULL)
    {
        return 0;
    }

    g_return_val_if_fail (EEL_IS_CANVAS (widget), 0);

    canvas = EEL_CANVAS (widget);
    root_group = eel_canvas_root (canvas);
    g_return_val_if_fail (root_group, 0);

    return 1;
}

static AtkObject *
eel_canvas_accessible_ref_child (AtkObject *obj,
                                 gint       i)
{
    GtkAccessible *accessible;
    GtkWidget *widget;
    EelCanvas *canvas;
    EelCanvasGroup *root_group;
    AtkObject *atk_object;

    /* Canvas only has one child, so return NULL if index is non zero */
    if (i != 0)
    {
        return NULL;
    }

    accessible = GTK_ACCESSIBLE (obj);
    widget = gtk_accessible_get_widget (accessible);

    if (widget == NULL)
    {
        return NULL;
    }

    canvas = EEL_CANVAS (widget);
    root_group = eel_canvas_root (canvas);
    g_return_val_if_fail (root_group, NULL);

    atk_object = atk_gobject_accessible_for_object (G_OBJECT (root_group));

    return g_object_ref (atk_object);
}

static void
eel_canvas_accessible_class_init (EelCanvasAccessibleClass *klass)
{
    AtkObjectClass *atk_class = ATK_OBJECT_CLASS (klass);

    accessible_parent_class = g_type_class_peek_parent (klass);

    atk_class->initialize = eel_canvas_accessible_initialize;
    atk_class->get_n_children = eel_canvas_accessible_get_n_children;
    atk_class->ref_child = eel_canvas_accessible_ref_child;
}

static void
eel_canvas_accessible_init (EelCanvasAccessible *accessible)
{
}

G_DEFINE_TYPE (EelCanvasAccessible, eel_canvas_accessible, GTK_TYPE_CONTAINER_ACCESSIBLE)

/* Class initialization function for EelCanvasClass */
static void
eel_canvas_class_init (EelCanvasClass *klass)
{
    GObjectClass *gobject_class;
    GtkWidgetClass *widget_class;

    gobject_class = (GObjectClass *) klass;
    widget_class = (GtkWidgetClass *) klass;

    canvas_parent_class = g_type_class_peek_parent (klass);

    gobject_class->set_property = eel_canvas_set_property;
    gobject_class->get_property = eel_canvas_get_property;

    widget_class->destroy = eel_canvas_destroy;
    widget_class->map = eel_canvas_map;
    widget_class->unmap = eel_canvas_unmap;
    widget_class->realize = eel_canvas_realize;
    widget_class->unrealize = eel_canvas_unrealize;
    widget_class->size_allocate = eel_canvas_size_allocate;
    widget_class->button_press_event = eel_canvas_button;
    widget_class->button_release_event = eel_canvas_button;
    widget_class->motion_notify_event = eel_canvas_motion;
    widget_class->draw = eel_canvas_draw;
    widget_class->key_press_event = eel_canvas_key;
    widget_class->key_release_event = eel_canvas_key;
    widget_class->enter_notify_event = eel_canvas_crossing;
    widget_class->leave_notify_event = eel_canvas_crossing;
    widget_class->focus_in_event = eel_canvas_focus_in;
    widget_class->focus_out_event = eel_canvas_focus_out;

    klass->request_update = eel_canvas_request_update_real;

    gtk_widget_class_set_accessible_type (widget_class, eel_canvas_accessible_get_type ());
}

/* Callback used when the root item of a canvas is destroyed.  The user should
 * never ever do this, so we panic if this happens.
 */
static void
panic_root_destroyed (GtkWidget *object,
                      gpointer   data)
{
    g_error ("Eeeek, root item %p of canvas %p was destroyed!", object, data);
}

/* Object initialization function for EelCanvas */
static void
eel_canvas_init (EelCanvas *canvas)
{
    guint width, height;
    gtk_widget_set_can_focus (GTK_WIDGET (canvas), TRUE);

    gtk_widget_set_redraw_on_allocate (GTK_WIDGET (canvas), FALSE);

    canvas->scroll_x1 = 0.0;
    canvas->scroll_y1 = 0.0;
    gtk_layout_get_size (GTK_LAYOUT (canvas),
                         &width, &height);
    canvas->scroll_x2 = width;
    canvas->scroll_y2 = height;

    canvas->pixels_per_unit = 1.0;

    canvas->pick_event.type = GDK_LEAVE_NOTIFY;
    canvas->pick_event.crossing.x = 0;
    canvas->pick_event.crossing.y = 0;

    gtk_scrollable_set_hadjustment (GTK_SCROLLABLE (canvas), NULL);
    gtk_scrollable_set_vadjustment (GTK_SCROLLABLE (canvas), NULL);

    /* Create the root item as a special case */

    canvas->root = EEL_CANVAS_ITEM (g_object_new (eel_canvas_group_get_type (), NULL));
    canvas->root->canvas = canvas;

    g_object_ref_sink (canvas->root);

    canvas->root_destroy_id = g_signal_connect (G_OBJECT (canvas->root),
                                                "destroy", G_CALLBACK (panic_root_destroyed), canvas);

    canvas->need_repick = TRUE;
    canvas->doing_update = FALSE;
}

/* Convenience function to remove the idle handler of a canvas */
static void
remove_idle (EelCanvas *canvas)
{
    if (canvas->idle_id == 0)
    {
        return;
    }

    g_source_remove (canvas->idle_id);
    canvas->idle_id = 0;
}

/* Removes the transient state of the canvas (idle handler, grabs). */
static void
shutdown_transients (EelCanvas *canvas)
{
    /* We turn off the need_redraw flag, since if the canvas is mapped again
     * it will request a redraw anyways.  We do not turn off the need_update
     * flag, though, because updates are not queued when the canvas remaps
     * itself.
     */
    if (canvas->need_redraw)
    {
        canvas->need_redraw = FALSE;
    }

    if (canvas->grabbed_item)
    {
        eel_canvas_item_ungrab (canvas->grabbed_item);
    }

    remove_idle (canvas);
}

/* Destroy handler for EelCanvas */
static void
eel_canvas_destroy (GtkWidget *object)
{
    EelCanvas *canvas;

    g_return_if_fail (EEL_IS_CANVAS (object));

    /* remember, destroy can be run multiple times! */

    canvas = EEL_CANVAS (object);

    if (canvas->root_destroy_id)
    {
        g_signal_handler_disconnect (G_OBJECT (canvas->root), canvas->root_destroy_id);
        canvas->root_destroy_id = 0;
    }
    if (canvas->root)
    {
        EelCanvasItem *root = canvas->root;
        canvas->root = NULL;
        eel_canvas_item_destroy (root);
        g_object_unref (root);
    }

    shutdown_transients (canvas);

    if (GTK_WIDGET_CLASS (canvas_parent_class)->destroy)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->destroy)(object);
    }
}

/**
 * eel_canvas_new:
 * @void:
 *
 * Creates a new empty canvas.  If you wish to use the
 * &EelCanvasImage item inside this canvas, then you must push the gdk_imlib
 * visual and colormap before calling this function, and they can be popped
 * afterwards.
 *
 * Return value: A newly-created canvas.
 **/
GtkWidget *
eel_canvas_new (void)
{
    return GTK_WIDGET (g_object_new (eel_canvas_get_type (), NULL));
}

/* Map handler for the canvas */
static void
eel_canvas_map (GtkWidget *widget)
{
    EelCanvas *canvas;

    g_return_if_fail (EEL_IS_CANVAS (widget));

    /* Normal widget mapping stuff */

    if (GTK_WIDGET_CLASS (canvas_parent_class)->map)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->map)(widget);
    }

    canvas = EEL_CANVAS (widget);

    /* Map items */

    if (canvas->root->flags & EEL_CANVAS_ITEM_VISIBLE &&
        !(canvas->root->flags & EEL_CANVAS_ITEM_MAPPED) &&
        EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->map)
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->map)(canvas->root);
    }
}

/* Unmap handler for the canvas */
static void
eel_canvas_unmap (GtkWidget *widget)
{
    EelCanvas *canvas;

    g_return_if_fail (EEL_IS_CANVAS (widget));

    canvas = EEL_CANVAS (widget);

    shutdown_transients (canvas);

    /* Unmap items */

    if (EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->unmap)
    {
        (*EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->unmap)(canvas->root);
    }

    /* Normal widget unmapping stuff */

    if (GTK_WIDGET_CLASS (canvas_parent_class)->unmap)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->unmap)(widget);
    }
}

/* Realize handler for the canvas */
static void
eel_canvas_realize (GtkWidget *widget)
{
    EelCanvas *canvas;

    g_return_if_fail (EEL_IS_CANVAS (widget));

    /* Normal widget realization stuff */

    if (GTK_WIDGET_CLASS (canvas_parent_class)->realize)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->realize)(widget);
    }

    canvas = EEL_CANVAS (widget);

    gdk_window_set_events (gtk_layout_get_bin_window (GTK_LAYOUT (canvas)),
                           (gdk_window_get_events (gtk_layout_get_bin_window (GTK_LAYOUT (canvas)))
                            | GDK_EXPOSURE_MASK
                            | GDK_BUTTON_PRESS_MASK
                            | GDK_BUTTON_RELEASE_MASK
                            | GDK_POINTER_MOTION_MASK
                            | GDK_KEY_PRESS_MASK
                            | GDK_KEY_RELEASE_MASK
                            | GDK_ENTER_NOTIFY_MASK
                            | GDK_LEAVE_NOTIFY_MASK
                            | GDK_FOCUS_CHANGE_MASK));

    /* Create our own temporary pixmap gc and realize all the items */

    (*EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->realize)(canvas->root);
}

/* Unrealize handler for the canvas */
static void
eel_canvas_unrealize (GtkWidget *widget)
{
    EelCanvas *canvas;

    g_return_if_fail (EEL_IS_CANVAS (widget));

    canvas = EEL_CANVAS (widget);

    shutdown_transients (canvas);

    /* Unrealize items and parent widget */

    (*EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->unrealize)(canvas->root);

    if (GTK_WIDGET_CLASS (canvas_parent_class)->unrealize)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->unrealize)(widget);
    }
}

/* Handles scrolling of the canvas.  Adjusts the scrolling and zooming offset to
 * keep as much as possible of the canvas scrolling region in view.
 */
static void
scroll_to (EelCanvas *canvas,
           int        cx,
           int        cy)
{
    int scroll_width, scroll_height;
    int right_limit, bottom_limit;
    int old_zoom_xofs, old_zoom_yofs;
    int changed_x = FALSE, changed_y = FALSE;
    int canvas_width, canvas_height;
    GtkAllocation allocation;
    GtkAdjustment *vadjustment, *hadjustment;
    guint width, height;

    gtk_widget_get_allocation (GTK_WIDGET (canvas), &allocation);
    canvas_width = allocation.width;
    canvas_height = allocation.height;

    scroll_width = floor ((canvas->scroll_x2 - canvas->scroll_x1) * canvas->pixels_per_unit + 0.5);
    scroll_height = floor ((canvas->scroll_y2 - canvas->scroll_y1) * canvas->pixels_per_unit + 0.5);

    right_limit = scroll_width - canvas_width;
    bottom_limit = scroll_height - canvas_height;

    old_zoom_xofs = canvas->zoom_xofs;
    old_zoom_yofs = canvas->zoom_yofs;

    if (right_limit < 0)
    {
        cx = 0;
        if (canvas->center_scroll_region)
        {
            canvas->zoom_xofs = (canvas_width - scroll_width) / 2;
            scroll_width = canvas_width;
        }
        else
        {
            canvas->zoom_xofs = 0;
        }
    }
    else if (cx < 0)
    {
        cx = 0;
        canvas->zoom_xofs = 0;
    }
    else if (cx > right_limit)
    {
        cx = right_limit;
        canvas->zoom_xofs = 0;
    }
    else
    {
        canvas->zoom_xofs = 0;
    }

    if (bottom_limit < 0)
    {
        cy = 0;
        if (canvas->center_scroll_region)
        {
            canvas->zoom_yofs = (canvas_height - scroll_height) / 2;
            scroll_height = canvas_height;
        }
        else
        {
            canvas->zoom_yofs = 0;
        }
    }
    else if (cy < 0)
    {
        cy = 0;
        canvas->zoom_yofs = 0;
    }
    else if (cy > bottom_limit)
    {
        cy = bottom_limit;
        canvas->zoom_yofs = 0;
    }
    else
    {
        canvas->zoom_yofs = 0;
    }

    if ((canvas->zoom_xofs != old_zoom_xofs) || (canvas->zoom_yofs != old_zoom_yofs))
    {
        /* This can only occur, if either canvas size or widget size changes */
        /* So I think we can request full redraw here */
        /* More stuff - we have to mark root as needing fresh affine (Lauris) */
        if (!(canvas->root->flags & EEL_CANVAS_ITEM_NEED_DEEP_UPDATE))
        {
            canvas->root->flags |= EEL_CANVAS_ITEM_NEED_DEEP_UPDATE;
            eel_canvas_request_update (canvas);
        }
        gtk_widget_queue_draw (GTK_WIDGET (canvas));
    }

    hadjustment = gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas));
    vadjustment = gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas));

    if (((int) gtk_adjustment_get_value (hadjustment)) != cx)
    {
        gtk_adjustment_set_value (hadjustment, cx);
        changed_x = TRUE;
    }

    if (((int) gtk_adjustment_get_value (vadjustment)) != cy)
    {
        gtk_adjustment_set_value (vadjustment, cy);
        changed_y = TRUE;
    }

    gtk_layout_get_size (&canvas->layout, &width, &height);
    if ((scroll_width != (int) width) || (scroll_height != (int) height))
    {
        gtk_layout_set_size (GTK_LAYOUT (canvas), scroll_width, scroll_height);
    }

    /* Signal GtkLayout that it should do a redraw. */
    if (changed_x)
    {
        g_signal_emit_by_name (hadjustment, "value-changed");
    }
    if (changed_y)
    {
        g_signal_emit_by_name (vadjustment, "value-changed");
    }
}

/* Size allocation handler for the canvas */
static void
eel_canvas_size_allocate (GtkWidget     *widget,
                          GtkAllocation *allocation)
{
    EelCanvas *canvas;
    GtkAdjustment *vadjustment, *hadjustment;

    g_return_if_fail (EEL_IS_CANVAS (widget));
    g_return_if_fail (allocation != NULL);

    if (GTK_WIDGET_CLASS (canvas_parent_class)->size_allocate)
    {
        (*GTK_WIDGET_CLASS (canvas_parent_class)->size_allocate)(widget, allocation);
    }

    canvas = EEL_CANVAS (widget);

    /* Recenter the view, if appropriate */

    hadjustment = gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas));
    vadjustment = gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas));

    gtk_adjustment_set_page_size (hadjustment, allocation->width);
    gtk_adjustment_set_page_increment (hadjustment, allocation->width / 2);

    gtk_adjustment_set_page_size (vadjustment, allocation->height);
    gtk_adjustment_set_page_increment (vadjustment, allocation->height / 2);

    scroll_to (canvas,
               gtk_adjustment_get_value (hadjustment),
               gtk_adjustment_get_value (vadjustment));

    g_signal_emit_by_name (hadjustment, "changed");
    g_signal_emit_by_name (vadjustment, "changed");
}

/* Emits an event for an item in the canvas, be it the current item, grabbed
 * item, or focused item, as appropriate.
 */

static int
emit_event (EelCanvas *canvas,
            GdkEvent  *event)
{
    GdkEvent ev;
    gint finished;
    EelCanvasItem *item;
    EelCanvasItem *parent;
    guint mask;

    /* Could be an old pick event */
    if (!gtk_widget_get_realized (GTK_WIDGET (canvas)))
    {
        return FALSE;
    }

    /* Perform checks for grabbed items */

    if (canvas->grabbed_item &&
        !is_descendant (canvas->current_item, canvas->grabbed_item))
    {
        return FALSE;
    }

    if (canvas->grabbed_item)
    {
        switch (event->type)
        {
            case GDK_ENTER_NOTIFY:
            {
                mask = GDK_ENTER_NOTIFY_MASK;
            }
            break;

            case GDK_LEAVE_NOTIFY:
            {
                mask = GDK_LEAVE_NOTIFY_MASK;
            }
            break;

            case GDK_MOTION_NOTIFY:
            {
                mask = GDK_POINTER_MOTION_MASK;
            }
            break;

            case GDK_BUTTON_PRESS:
            case GDK_2BUTTON_PRESS:
            case GDK_3BUTTON_PRESS:
            {
                mask = GDK_BUTTON_PRESS_MASK;
            }
            break;

            case GDK_BUTTON_RELEASE:
            {
                mask = GDK_BUTTON_RELEASE_MASK;
            }
            break;

            case GDK_KEY_PRESS:
            {
                mask = GDK_KEY_PRESS_MASK;
            }
            break;

            case GDK_KEY_RELEASE:
            {
                mask = GDK_KEY_RELEASE_MASK;
            }
            break;

            default:
            {
                mask = 0;
            }
            break;
        }

        if (!(mask & canvas->grabbed_event_mask))
        {
            return FALSE;
        }
    }

    /* Convert to world coordinates -- we have two cases because of diferent
     * offsets of the fields in the event structures.
     */

    ev = *event;

    switch (ev.type)
    {
        case GDK_ENTER_NOTIFY:
        case GDK_LEAVE_NOTIFY:
        {
            eel_canvas_window_to_world (canvas,
                                        ev.crossing.x, ev.crossing.y,
                                        &ev.crossing.x, &ev.crossing.y);
        }
        break;

        case GDK_MOTION_NOTIFY:
        case GDK_BUTTON_PRESS:
        case GDK_2BUTTON_PRESS:
        case GDK_3BUTTON_PRESS:
        case GDK_BUTTON_RELEASE:
        {
            eel_canvas_window_to_world (canvas,
                                        ev.motion.x, ev.motion.y,
                                        &ev.motion.x, &ev.motion.y);
        }
        break;

        default:
        {
        }
        break;
    }

    /* Choose where we send the event */

    item = canvas->current_item;

    if (canvas->focused_item
        && ((event->type == GDK_KEY_PRESS) ||
            (event->type == GDK_KEY_RELEASE) ||
            (event->type == GDK_FOCUS_CHANGE)))
    {
        item = canvas->focused_item;
    }

    /* The event is propagated up the hierarchy (for if someone connected to
     * a group instead of a leaf event), and emission is stopped if a
     * handler returns TRUE, just like for GtkWidget events.
     */

    finished = FALSE;

    while (item && !finished)
    {
        g_object_ref (item);

        g_signal_emit (
            G_OBJECT (item), item_signals[ITEM_EVENT], 0,
            &ev, &finished);

        parent = item->parent;
        g_object_unref (item);

        item = parent;
    }

    return finished;
}

/* Re-picks the current item in the canvas, based on the event's coordinates.
 * Also emits enter/leave events for items as appropriate.
 */
static int
pick_current_item (EelCanvas *canvas,
                   GdkEvent  *event)
{
    int button_down;
    double x, y;
    int cx, cy;
    int retval;

    retval = FALSE;

    /* If a button is down, we'll perform enter and leave events on the
     * current item, but not enter on any other item.  This is more or less
     * like X pointer grabbing for canvas items.
     */
    button_down = canvas->state & (GDK_BUTTON1_MASK
                                   | GDK_BUTTON2_MASK
                                   | GDK_BUTTON3_MASK
                                   | GDK_BUTTON4_MASK
                                   | GDK_BUTTON5_MASK);
    if (!button_down)
    {
        canvas->left_grabbed_item = FALSE;
    }

    /* Save the event in the canvas.  This is used to synthesize enter and
     * leave events in case the current item changes.  It is also used to
     * re-pick the current item if the current one gets deleted.  Also,
     * synthesize an enter event.
     */
    if (event != &canvas->pick_event)
    {
        if ((event->type == GDK_MOTION_NOTIFY) || (event->type == GDK_BUTTON_RELEASE))
        {
            /* these fields have the same offsets in both types of events */

            canvas->pick_event.crossing.type = GDK_ENTER_NOTIFY;
            canvas->pick_event.crossing.window = event->motion.window;
            canvas->pick_event.crossing.send_event = event->motion.send_event;
            canvas->pick_event.crossing.subwindow = NULL;
            canvas->pick_event.crossing.x = event->motion.x;
            canvas->pick_event.crossing.y = event->motion.y;
            canvas->pick_event.crossing.mode = GDK_CROSSING_NORMAL;
            canvas->pick_event.crossing.detail = GDK_NOTIFY_NONLINEAR;
            canvas->pick_event.crossing.focus = FALSE;
            canvas->pick_event.crossing.state = event->motion.state;

            /* these fields don't have the same offsets in both types of events */

            if (event->type == GDK_MOTION_NOTIFY)
            {
                canvas->pick_event.crossing.x_root = event->motion.x_root;
                canvas->pick_event.crossing.y_root = event->motion.y_root;
            }
            else
            {
                canvas->pick_event.crossing.x_root = event->button.x_root;
                canvas->pick_event.crossing.y_root = event->button.y_root;
            }
        }
        else
        {
            canvas->pick_event = *event;
        }
    }

    /* Don't do anything else if this is a recursive call */

    if (canvas->in_repick)
    {
        return retval;
    }

    /* LeaveNotify means that there is no current item, so we don't look for one */

    if (canvas->pick_event.type != GDK_LEAVE_NOTIFY)
    {
        /* these fields don't have the same offsets in both types of events */

        if (canvas->pick_event.type == GDK_ENTER_NOTIFY)
        {
            x = canvas->pick_event.crossing.x;
            y = canvas->pick_event.crossing.y;
        }
        else
        {
            x = canvas->pick_event.motion.x;
            y = canvas->pick_event.motion.y;
        }

        /* canvas pixel coords */

        cx = (int) (x + 0.5);
        cy = (int) (y + 0.5);

        /* world coords */
        eel_canvas_c2w (canvas, cx, cy, &x, &y);

        /* find the closest item */
        if (canvas->root->flags & EEL_CANVAS_ITEM_MAPPED)
        {
            eel_canvas_item_invoke_point (canvas->root, x, y, cx, cy,
                                          &canvas->new_current_item);
        }
        else
        {
            canvas->new_current_item = NULL;
        }
    }
    else
    {
        canvas->new_current_item = NULL;
    }

    if ((canvas->new_current_item == canvas->current_item) && !canvas->left_grabbed_item)
    {
        return retval;         /* current item did not change */
    }
    /* Synthesize events for old and new current items */

    if ((canvas->new_current_item != canvas->current_item)
        && (canvas->current_item != NULL)
        && !canvas->left_grabbed_item)
    {
        GdkEvent new_event;

        new_event = canvas->pick_event;
        new_event.type = GDK_LEAVE_NOTIFY;

        new_event.crossing.detail = GDK_NOTIFY_ANCESTOR;
        new_event.crossing.subwindow = NULL;
        canvas->in_repick = TRUE;
        retval = emit_event (canvas, &new_event);
        canvas->in_repick = FALSE;
    }

    /* new_current_item may have been set to NULL during the call to emit_event() above */

    if ((canvas->new_current_item != canvas->current_item) && button_down)
    {
        canvas->current_item = canvas->new_current_item;
        canvas->left_grabbed_item = TRUE;
        return retval;
    }

    /* Handle the rest of cases */

    canvas->left_grabbed_item = FALSE;
    canvas->current_item = canvas->new_current_item;

    if (canvas->current_item != NULL)
    {
        GdkEvent new_event;

        new_event = canvas->pick_event;
        new_event.type = GDK_ENTER_NOTIFY;
        new_event.crossing.detail = GDK_NOTIFY_ANCESTOR;
        new_event.crossing.subwindow = NULL;
        retval = emit_event (canvas, &new_event);
    }

    return retval;
}

/* Button event handler for the canvas */
static gint
eel_canvas_button (GtkWidget      *widget,
                   GdkEventButton *event)
{
    EelCanvas *canvas;
    int mask;
    int retval;

    g_return_val_if_fail (EEL_IS_CANVAS (widget), FALSE);
    g_return_val_if_fail (event != NULL, FALSE);

    retval = FALSE;

    canvas = EEL_CANVAS (widget);

    /* Don't handle extra mouse button events */
    if (event->button > 5)
    {
        return FALSE;
    }

    /*
     * dispatch normally regardless of the event's window if an item has
     * has a pointer grab in effect
     */
    if (!canvas->grabbed_item && event->window != gtk_layout_get_bin_window (GTK_LAYOUT (canvas)))
    {
        return retval;
    }

    switch (event->button)
    {
        case 1:
        {
            mask = GDK_BUTTON1_MASK;
        }
        break;

        case 2:
        {
            mask = GDK_BUTTON2_MASK;
        }
        break;

        case 3:
        {
            mask = GDK_BUTTON3_MASK;
        }
        break;

        case 4:
        {
            mask = GDK_BUTTON4_MASK;
        }
        break;

        case 5:
        {
            mask = GDK_BUTTON5_MASK;
        }
        break;

        default:
            mask = 0;
    }

    switch (event->type)
    {
        case GDK_BUTTON_PRESS:
        case GDK_2BUTTON_PRESS:
        case GDK_3BUTTON_PRESS:
        {
            /* Pick the current item as if the button were not pressed, and
             * then process the event.
             */
            event->state ^= mask;
            canvas->state = event->state;
            pick_current_item (canvas, (GdkEvent *) event);
            event->state ^= mask;
            canvas->state = event->state;
            retval = emit_event (canvas, (GdkEvent *) event);
        }
        break;

        case GDK_BUTTON_RELEASE:
        {
            /* Process the event as if the button were pressed, then repick
             * after the button has been released
             */
            canvas->state = event->state;
            retval = emit_event (canvas, (GdkEvent *) event);
            event->state ^= mask;
            canvas->state = event->state;
            pick_current_item (canvas, (GdkEvent *) event);
            event->state ^= mask;
        }
        break;

        default:
            g_assert_not_reached ();
    }

    return retval;
}

/* Motion event handler for the canvas */
static gint
eel_canvas_motion (GtkWidget      *widget,
                   GdkEventMotion *event)
{
    EelCanvas *canvas;

    g_return_val_if_fail (EEL_IS_CANVAS (widget), FALSE);
    g_return_val_if_fail (event != NULL, FALSE);

    canvas = EEL_CANVAS (widget);

    if (event->window != gtk_layout_get_bin_window (GTK_LAYOUT (canvas)))
    {
        return FALSE;
    }

    canvas->state = event->state;
    pick_current_item (canvas, (GdkEvent *) event);
    return emit_event (canvas, (GdkEvent *) event);
}

/* Key event handler for the canvas */
static gint
eel_canvas_key (GtkWidget   *widget,
                GdkEventKey *event)
{
    EelCanvas *canvas;

    g_return_val_if_fail (EEL_IS_CANVAS (widget), FALSE);
    g_return_val_if_fail (event != NULL, FALSE);

    canvas = EEL_CANVAS (widget);

    if (emit_event (canvas, (GdkEvent *) event))
    {
        return TRUE;
    }
    if (event->type == GDK_KEY_RELEASE)
    {
        return GTK_WIDGET_CLASS (canvas_parent_class)->key_release_event (widget, event);
    }
    else
    {
        return GTK_WIDGET_CLASS (canvas_parent_class)->key_press_event (widget, event);
    }
}


/* Crossing event handler for the canvas */
static gint
eel_canvas_crossing (GtkWidget        *widget,
                     GdkEventCrossing *event)
{
    EelCanvas *canvas;

    g_return_val_if_fail (EEL_IS_CANVAS (widget), FALSE);
    g_return_val_if_fail (event != NULL, FALSE);

    canvas = EEL_CANVAS (widget);

    if (event->window != gtk_layout_get_bin_window (GTK_LAYOUT (canvas)))
    {
        return FALSE;
    }

    canvas->state = event->state;
    return pick_current_item (canvas, (GdkEvent *) event);
}

/* Focus in handler for the canvas */
static gint
eel_canvas_focus_in (GtkWidget     *widget,
                     GdkEventFocus *event)
{
    EelCanvas *canvas;

    canvas = EEL_CANVAS (widget);

    if (canvas->focused_item)
    {
        return emit_event (canvas, (GdkEvent *) event);
    }
    else
    {
        return FALSE;
    }
}

/* Focus out handler for the canvas */
static gint
eel_canvas_focus_out (GtkWidget     *widget,
                      GdkEventFocus *event)
{
    EelCanvas *canvas;

    canvas = EEL_CANVAS (widget);

    if (canvas->focused_item)
    {
        return emit_event (canvas, (GdkEvent *) event);
    }
    else
    {
        return FALSE;
    }
}


static cairo_region_t *
eel_cairo_get_clip_region (cairo_t *cr)
{
    cairo_rectangle_list_t *list;
    cairo_region_t *region;
    int i;

    list = cairo_copy_clip_rectangle_list (cr);
    if (list->status == CAIRO_STATUS_CLIP_NOT_REPRESENTABLE)
    {
        cairo_rectangle_int_t clip_rect;

        cairo_rectangle_list_destroy (list);

        if (!gdk_cairo_get_clip_rectangle (cr, &clip_rect))
        {
            return NULL;
        }
        return cairo_region_create_rectangle (&clip_rect);
    }


    region = cairo_region_create ();
    for (i = list->num_rectangles - 1; i >= 0; --i)
    {
        cairo_rectangle_t *rect = &list->rectangles[i];
        cairo_rectangle_int_t clip_rect;

        clip_rect.x = floor (rect->x);
        clip_rect.y = floor (rect->y);
        clip_rect.width = ceil (rect->x + rect->width) - clip_rect.x;
        clip_rect.height = ceil (rect->y + rect->height) - clip_rect.y;

        if (cairo_region_union_rectangle (region, &clip_rect) != CAIRO_STATUS_SUCCESS)
        {
            cairo_region_destroy (region);
            region = NULL;
            break;
        }
    }

    cairo_rectangle_list_destroy (list);
    return region;
}

/* Expose handler for the canvas */
static gboolean
eel_canvas_draw (GtkWidget *widget,
                 cairo_t   *cr)
{
    EelCanvas *canvas = EEL_CANVAS (widget);
    GdkWindow *bin_window;
    cairo_region_t *region;

    if (!gdk_cairo_get_clip_rectangle (cr, NULL))
    {
        return FALSE;
    }

    bin_window = gtk_layout_get_bin_window (GTK_LAYOUT (widget));

    if (!gtk_cairo_should_draw_window (cr, bin_window))
    {
        return FALSE;
    }

    cairo_save (cr);

    gtk_cairo_transform_to_window (cr, widget, bin_window);

    region = eel_cairo_get_clip_region (cr);
    if (region == NULL)
    {
        cairo_restore (cr);
        return FALSE;
    }

#ifdef VERBOSE
    g_print ("Draw\n");
#endif
    /* If there are any outstanding items that need updating, do them now */
    if (canvas->idle_id)
    {
        g_source_remove (canvas->idle_id);
        canvas->idle_id = 0;
    }
    if (canvas->need_update)
    {
        g_return_val_if_fail (!canvas->doing_update, FALSE);

        canvas->doing_update = TRUE;
        eel_canvas_item_invoke_update (canvas->root, 0, 0, 0);

        g_return_val_if_fail (canvas->doing_update, FALSE);

        canvas->doing_update = FALSE;

        canvas->need_update = FALSE;
    }

    if (canvas->root->flags & EEL_CANVAS_ITEM_MAPPED)
    {
        EEL_CANVAS_ITEM_GET_CLASS (canvas->root)->draw (canvas->root, cr, region);
    }

    cairo_restore (cr);

    /* Chain up to get exposes on child widgets */
    if (GTK_WIDGET_CLASS (canvas_parent_class)->draw)
    {
        GTK_WIDGET_CLASS (canvas_parent_class)->draw (widget, cr);
    }

    cairo_region_destroy (region);
    return FALSE;
}

static void
do_update (EelCanvas *canvas)
{
    /* Cause the update if necessary */

update_again:
    if (canvas->need_update)
    {
        g_return_if_fail (!canvas->doing_update);

        canvas->doing_update = TRUE;
        eel_canvas_item_invoke_update (canvas->root, 0, 0, 0);

        g_return_if_fail (canvas->doing_update);

        canvas->doing_update = FALSE;

        canvas->need_update = FALSE;
    }

    /* Pick new current item */

    while (canvas->need_repick)
    {
        canvas->need_repick = FALSE;
        pick_current_item (canvas, &canvas->pick_event);
    }

    /* it is possible that during picking we emitted an event in which
     *  the user then called some function which then requested update
     *  of something.  Without this we'd be left in a state where
     *  need_update would have been left TRUE and the canvas would have
     *  been left unpainted. */
    if (canvas->need_update)
    {
        goto update_again;
    }
}

/* Idle handler for the canvas.  It deals with pending updates and redraws. */
static gint
idle_handler (gpointer data)
{
    EelCanvas *canvas;

    canvas = EEL_CANVAS (data);
    do_update (canvas);

    /* Reset idle id */
    canvas->idle_id = 0;

    return FALSE;
}

/* Convenience function to add an idle handler to a canvas */
static void
add_idle (EelCanvas *canvas)
{
    if (!canvas->idle_id)
    {
        /* We let the update idle handler have higher priority
         * than the redraw idle handler so the canvas state
         * will be updated during the expose event.  canvas in
         * expose_event.
         */
        canvas->idle_id = g_idle_add_full (GDK_PRIORITY_REDRAW - 20,
                                           idle_handler, canvas, NULL);
    }
}

/**
 * eel_canvas_root:
 * @canvas: A canvas.
 *
 * Queries the root group of a canvas.
 *
 * Return value: The root group of the specified canvas.
 **/
EelCanvasGroup *
eel_canvas_root (EelCanvas *canvas)
{
    g_return_val_if_fail (EEL_IS_CANVAS (canvas), NULL);

    return EEL_CANVAS_GROUP (canvas->root);
}


/**
 * eel_canvas_set_scroll_region:
 * @canvas: A canvas.
 * @x1: Leftmost limit of the scrolling region.
 * @y1: Upper limit of the scrolling region.
 * @x2: Rightmost limit of the scrolling region.
 * @y2: Lower limit of the scrolling region.
 *
 * Sets the scrolling region of a canvas to the specified rectangle.  The canvas
 * will then be able to scroll only within this region.  The view of the canvas
 * is adjusted as appropriate to display as much of the new region as possible.
 **/
void
eel_canvas_set_scroll_region (EelCanvas *canvas,
                              double     x1,
                              double     y1,
                              double     x2,
                              double     y2)
{
    double wxofs, wyofs;
    int xofs, yofs;
    GtkAdjustment *vadjustment, *hadjustment;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    if ((canvas->scroll_x1 == x1) && (canvas->scroll_y1 == y1) &&
        (canvas->scroll_x2 == x2) && (canvas->scroll_y2 == y2))
    {
        return;
    }

    /*
     * Set the new scrolling region.  If possible, do not move the visible contents of the
     * canvas.
     */
    hadjustment = gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas));
    vadjustment = gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas));

    eel_canvas_c2w (canvas,
                    gtk_adjustment_get_value (hadjustment) + canvas->zoom_xofs,
                    gtk_adjustment_get_value (vadjustment) + canvas->zoom_yofs,
                    /*canvas->zoom_xofs,
                     *   canvas->zoom_yofs,*/
                    &wxofs, &wyofs);

    canvas->scroll_x1 = x1;
    canvas->scroll_y1 = y1;
    canvas->scroll_x2 = x2;
    canvas->scroll_y2 = y2;

    eel_canvas_w2c (canvas, wxofs, wyofs, &xofs, &yofs);

    scroll_to (canvas, xofs, yofs);

    canvas->need_repick = TRUE;

    if (!(canvas->root->flags & EEL_CANVAS_ITEM_NEED_DEEP_UPDATE))
    {
        canvas->root->flags |= EEL_CANVAS_ITEM_NEED_DEEP_UPDATE;
        eel_canvas_request_update (canvas);
    }
}


/**
 * eel_canvas_get_scroll_region:
 * @canvas: A canvas.
 * @x1: Leftmost limit of the scrolling region (return value).
 * @y1: Upper limit of the scrolling region (return value).
 * @x2: Rightmost limit of the scrolling region (return value).
 * @y2: Lower limit of the scrolling region (return value).
 *
 * Queries the scrolling region of a canvas.
 **/
void
eel_canvas_get_scroll_region (EelCanvas *canvas,
                              double    *x1,
                              double    *y1,
                              double    *x2,
                              double    *y2)
{
    g_return_if_fail (EEL_IS_CANVAS (canvas));

    if (x1)
    {
        *x1 = canvas->scroll_x1;
    }

    if (y1)
    {
        *y1 = canvas->scroll_y1;
    }

    if (x2)
    {
        *x2 = canvas->scroll_x2;
    }

    if (y2)
    {
        *y2 = canvas->scroll_y2;
    }
}

/**
 * eel_canvas_set_pixels_per_unit:
 * @canvas: A canvas.
 * @n: The number of pixels that correspond to one canvas unit.
 *
 * Sets the zooming factor of a canvas by specifying the number of pixels that
 * correspond to one canvas unit.
 **/
void
eel_canvas_set_pixels_per_unit (EelCanvas *canvas,
                                double     n)
{
    GtkWidget *widget;
    double cx, cy;
    int x1, y1;
    int center_x, center_y;
    GdkWindow *window;
    GdkWindowAttr attributes;
    gint attributes_mask;
    GtkAllocation allocation;
    GtkAdjustment *vadjustment, *hadjustment;

    g_return_if_fail (EEL_IS_CANVAS (canvas));
    g_return_if_fail (n > EEL_CANVAS_EPSILON);

    widget = GTK_WIDGET (canvas);

    gtk_widget_get_allocation (widget, &allocation);
    center_x = allocation.width / 2;
    center_y = allocation.height / 2;

    /* Find the coordinates of the screen center in units. */
    hadjustment = gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas));
    vadjustment = gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas));
    cx = (gtk_adjustment_get_value (hadjustment) + center_x) / canvas->pixels_per_unit + canvas->scroll_x1 + canvas->zoom_xofs;
    cy = (gtk_adjustment_get_value (vadjustment) + center_y) / canvas->pixels_per_unit + canvas->scroll_y1 + canvas->zoom_yofs;

    /* Now calculate the new offset of the upper left corner. (round not truncate) */
    x1 = ((cx - canvas->scroll_x1) * n) - center_x + .5;
    y1 = ((cy - canvas->scroll_y1) * n) - center_y + .5;

    canvas->pixels_per_unit = n;

    if (!(canvas->root->flags & EEL_CANVAS_ITEM_NEED_DEEP_UPDATE))
    {
        canvas->root->flags |= EEL_CANVAS_ITEM_NEED_DEEP_UPDATE;
        eel_canvas_request_update (canvas);
    }

    /* Map a background None window over the bin_window to avoid
     * scrolling the window scroll causing exposes.
     */
    window = NULL;
    if (gtk_widget_get_mapped (widget))
    {
        attributes.window_type = GDK_WINDOW_CHILD;
        gtk_widget_get_allocation (widget, &allocation);
        attributes.x = allocation.x;
        attributes.y = allocation.y;
        attributes.width = allocation.width;
        attributes.height = allocation.height;
        attributes.wclass = GDK_INPUT_OUTPUT;
        attributes.visual = gtk_widget_get_visual (widget);
        attributes.event_mask = GDK_VISIBILITY_NOTIFY_MASK;

        attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL;

        window = gdk_window_new (gtk_widget_get_parent_window (widget),
                                 &attributes, attributes_mask);
        gdk_window_set_user_data (window, widget);

        gdk_window_show (window);
    }

    scroll_to (canvas, x1, y1);

    /* If we created a an overlapping background None window, remove it how.
     *
     * TODO: We would like to temporarily set the bin_window background to
     * None to avoid clearing the bin_window to the background, but gdk doesn't
     * expose enought to let us do this, so we get a flash-effect here. At least
     * it looks better than scroll + expose.
     */
    if (window != NULL)
    {
        gdk_window_hide (window);
        gdk_window_set_user_data (window, NULL);
        gdk_window_destroy (window);
    }

    canvas->need_repick = TRUE;
}

/**
 * eel_canvas_get_scroll_offsets:
 * @canvas: A canvas.
 * @cx: Horizontal scrolling offset (return value).
 * @cy: Vertical scrolling offset (return value).
 *
 * Queries the scrolling offsets of a canvas.  The values are returned in canvas
 * pixel units.
 **/
void
eel_canvas_get_scroll_offsets (EelCanvas *canvas,
                               int       *cx,
                               int       *cy)
{
    GtkAdjustment *vadjustment, *hadjustment;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    hadjustment = gtk_scrollable_get_hadjustment (GTK_SCROLLABLE (canvas));
    vadjustment = gtk_scrollable_get_vadjustment (GTK_SCROLLABLE (canvas));

    if (cx)
    {
        *cx = gtk_adjustment_get_value (hadjustment);
    }

    if (cy)
    {
        *cy = gtk_adjustment_get_value (vadjustment);
    }
}

/* Queues an update of the canvas */
static void
eel_canvas_request_update (EelCanvas *canvas)
{
    EEL_CANVAS_GET_CLASS (canvas)->request_update (canvas);
}

static void
eel_canvas_request_update_real (EelCanvas *canvas)
{
    canvas->need_update = TRUE;
    add_idle (canvas);
}

/**
 * eel_canvas_request_redraw:
 * @canvas: A canvas.
 * @x1: Leftmost coordinate of the rectangle to be redrawn.
 * @y1: Upper coordinate of the rectangle to be redrawn.
 * @x2: Rightmost coordinate of the rectangle to be redrawn, plus 1.
 * @y2: Lower coordinate of the rectangle to be redrawn, plus 1.
 *
 * Convenience function that informs a canvas that the specified rectangle needs
 * to be repainted.  The rectangle includes @x1 and @y1, but not @x2 and @y2.
 * To be used only by item implementations.
 **/
void
eel_canvas_request_redraw (EelCanvas *canvas,
                           int        x1,
                           int        y1,
                           int        x2,
                           int        y2)
{
    GdkRectangle bbox;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    if (!gtk_widget_is_drawable (GTK_WIDGET (canvas))
        || (x1 >= x2) || (y1 >= y2))
    {
        return;
    }

    bbox.x = x1;
    bbox.y = y1;
    bbox.width = x2 - x1;
    bbox.height = y2 - y1;

    gdk_window_invalidate_rect (gtk_layout_get_bin_window (GTK_LAYOUT (canvas)),
                                &bbox, FALSE);
}

/**
 * eel_canvas_w2c:
 * @canvas: A canvas.
 * @wx: World X coordinate.
 * @wy: World Y coordinate.
 * @cx: X pixel coordinate (return value).
 * @cy: Y pixel coordinate (return value).
 *
 * Converts world coordinates into canvas pixel coordinates.
 **/
void
eel_canvas_w2c (EelCanvas *canvas,
                double     wx,
                double     wy,
                int       *cx,
                int       *cy)
{
    double zoom;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    zoom = canvas->pixels_per_unit;

    if (cx)
    {
        *cx = floor ((wx - canvas->scroll_x1) * zoom + canvas->zoom_xofs + 0.5);
    }
    if (cy)
    {
        *cy = floor ((wy - canvas->scroll_y1) * zoom + canvas->zoom_yofs + 0.5);
    }
}

/**
 * eel_canvas_w2c:
 * @canvas: A canvas.
 * @world: rectangle in world coordinates.
 * @canvas: rectangle in canvase coordinates.
 *
 * Converts rectangles in world coordinates into canvas pixel coordinates.
 **/
void
eel_canvas_w2c_rect_d (EelCanvas *canvas,
                       double    *x1,
                       double    *y1,
                       double    *x2,
                       double    *y2)
{
    eel_canvas_w2c_d (canvas,
                      *x1, *y1,
                      x1, y1);
    eel_canvas_w2c_d (canvas,
                      *x2, *y2,
                      x2, y2);
}



/**
 * eel_canvas_w2c_d:
 * @canvas: A canvas.
 * @wx: World X coordinate.
 * @wy: World Y coordinate.
 * @cx: X pixel coordinate (return value).
 * @cy: Y pixel coordinate (return value).
 *
 * Converts world coordinates into canvas pixel coordinates.  This version
 * produces coordinates in floating point coordinates, for greater precision.
 **/
void
eel_canvas_w2c_d (EelCanvas *canvas,
                  double     wx,
                  double     wy,
                  double    *cx,
                  double    *cy)
{
    double zoom;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    zoom = canvas->pixels_per_unit;

    if (cx)
    {
        *cx = (wx - canvas->scroll_x1) * zoom + canvas->zoom_xofs;
    }
    if (cy)
    {
        *cy = (wy - canvas->scroll_y1) * zoom + canvas->zoom_yofs;
    }
}


/**
 * eel_canvas_c2w:
 * @canvas: A canvas.
 * @cx: Canvas pixel X coordinate.
 * @cy: Canvas pixel Y coordinate.
 * @wx: X world coordinate (return value).
 * @wy: Y world coordinate (return value).
 *
 * Converts canvas pixel coordinates to world coordinates.
 **/
void
eel_canvas_c2w (EelCanvas *canvas,
                int        cx,
                int        cy,
                double    *wx,
                double    *wy)
{
    double zoom;

    g_return_if_fail (EEL_IS_CANVAS (canvas));

    zoom = canvas->pixels_per_unit;

    if (wx)
    {
        *wx = (cx - canvas->zoom_xofs) / zoom + canvas->scroll_x1;
    }
    if (wy)
    {
        *wy = (cy - canvas->zoom_yofs) / zoom + canvas->scroll_y1;
    }
}


/**
 * eel_canvas_window_to_world:
 * @canvas: A canvas.
 * @winx: Window-relative X coordinate.
 * @winy: Window-relative Y coordinate.
 * @worldx: X world coordinate (return value).
 * @worldy: Y world coordinate (return value).
 *
 * Converts window-relative coordinates into world coordinates.  You can use
 * this when you need to convert mouse coordinates into world coordinates, for
 * example.
 * Window coordinates are really the same as canvas coordinates now, but this
 * function is here for backwards compatibility reasons.
 **/
void
eel_canvas_window_to_world (EelCanvas *canvas,
                            double     winx,
                            double     winy,
                            double    *worldx,
                            double    *worldy)
{
    g_return_if_fail (EEL_IS_CANVAS (canvas));

    if (worldx)
    {
        *worldx = canvas->scroll_x1 + ((winx - canvas->zoom_xofs)
                                       / canvas->pixels_per_unit);
    }

    if (worldy)
    {
        *worldy = canvas->scroll_y1 + ((winy - canvas->zoom_yofs)
                                       / canvas->pixels_per_unit);
    }
}


/**
 * eel_canvas_world_to_window:
 * @canvas: A canvas.
 * @worldx: World X coordinate.
 * @worldy: World Y coordinate.
 * @winx: X window-relative coordinate.
 * @winy: Y window-relative coordinate.
 *
 * Converts world coordinates into window-relative coordinates.
 * Window coordinates are really the same as canvas coordinates now, but this
 * function is here for backwards compatibility reasons.
 **/
void
eel_canvas_world_to_window (EelCanvas *canvas,
                            double     worldx,
                            double     worldy,
                            double    *winx,
                            double    *winy)
{
    g_return_if_fail (EEL_IS_CANVAS (canvas));

    if (winx)
    {
        *winx = (canvas->pixels_per_unit) * (worldx - canvas->scroll_x1) + canvas->zoom_xofs;
    }

    if (winy)
    {
        *winy = (canvas->pixels_per_unit) * (worldy - canvas->scroll_y1) + canvas->zoom_yofs;
    }
}

static gboolean
boolean_handled_accumulator (GSignalInvocationHint *ihint,
                             GValue                *return_accu,
                             const GValue          *handler_return,
                             gpointer               dummy)
{
    gboolean continue_emission;
    gboolean signal_handled;

    signal_handled = g_value_get_boolean (handler_return);
    g_value_set_boolean (return_accu, signal_handled);
    continue_emission = !signal_handled;

    return continue_emission;
}

static void
eel_canvas_item_accessible_get_item_extents (EelCanvasItem *item,
                                             GdkRectangle  *rect)
{
    double bx1, bx2, by1, by2;
    gint scroll_x, scroll_y;
    gint x1, x2, y1, y2;

    eel_canvas_item_get_bounds (item, &bx1, &by1, &bx2, &by2);
    eel_canvas_w2c_rect_d (item->canvas, &bx1, &by1, &bx2, &by2);
    eel_canvas_get_scroll_offsets (item->canvas, &scroll_x, &scroll_y);
    x1 = floor (bx1 + .5);
    y1 = floor (by1 + .5);
    x2 = floor (bx2 + .5);
    y2 = floor (by2 + .5);
    rect->x = x1 - scroll_x;
    rect->y = y1 - scroll_y;
    rect->width = x2 - x1;
    rect->height = y2 - y1;
}

static gboolean
eel_canvas_item_accessible_is_item_in_window (EelCanvasItem *item,
                                              GdkRectangle  *rect)
{
    GtkWidget *widget;
    gboolean retval;

    widget = GTK_WIDGET (item->canvas);
    if (gtk_widget_get_window (widget))
    {
        int window_width, window_height;

        gdk_window_get_geometry (gtk_widget_get_window (widget), NULL, NULL,
                                 &window_width, &window_height);
        /*
         * Check whether rectangles intersect
         */
        if (rect->x + rect->width < 0 ||
            rect->y + rect->height < 0 ||
            rect->x > window_width ||
            rect->y > window_height)
        {
            retval = FALSE;
        }
        else
        {
            retval = TRUE;
        }
    }
    else
    {
        retval = FALSE;
    }
    return retval;
}


static void
eel_canvas_item_accessible_get_extents (AtkComponent *component,
                                        gint         *x,
                                        gint         *y,
                                        gint         *width,
                                        gint         *height,
                                        AtkCoordType  coord_type)
{
    AtkGObjectAccessible *atk_gobj;
    GObject *obj;
    EelCanvasItem *item;
    gint window_x, window_y;
    gint toplevel_x, toplevel_y;
    GdkRectangle rect;
    GdkWindow *window;
    GtkWidget *canvas;

    atk_gobj = ATK_GOBJECT_ACCESSIBLE (component);
    obj = atk_gobject_accessible_get_object (atk_gobj);

    if (obj == NULL)
    {
        /* item is defunct */
        return;
    }

    /* Get the CanvasItem */
    item = EEL_CANVAS_ITEM (obj);

    /* If this item has no parent canvas, something's broken */
    g_return_if_fail (GTK_IS_WIDGET (item->canvas));

    eel_canvas_item_accessible_get_item_extents (item, &rect);
    *width = rect.width;
    *height = rect.height;
    if (!eel_canvas_item_accessible_is_item_in_window (item, &rect))
    {
        *x = G_MININT;
        *y = G_MININT;
        return;
    }

    canvas = GTK_WIDGET (item->canvas);
    window = gtk_widget_get_parent_window (canvas);
    gdk_window_get_origin (window, &window_x, &window_y);
    *x = rect.x + window_x;
    *y = rect.y + window_y;
    if (coord_type == ATK_XY_WINDOW)
    {
        window = gdk_window_get_toplevel (gtk_widget_get_window (canvas));
        gdk_window_get_origin (window, &toplevel_x, &toplevel_y);
        *x -= toplevel_x;
        *y -= toplevel_y;
    }
    return;
}

static gint
eel_canvas_item_accessible_get_mdi_zorder (AtkComponent *component)
{
    AtkGObjectAccessible *atk_gobj;
    GObject *g_obj;
    EelCanvasItem *item;

    atk_gobj = ATK_GOBJECT_ACCESSIBLE (component);
    g_obj = atk_gobject_accessible_get_object (atk_gobj);
    if (g_obj == NULL)
    {
        /* Object is defunct */
        return -1;
    }

    item = EEL_CANVAS_ITEM (g_obj);
    if (item->parent)
    {
        return g_list_index (EEL_CANVAS_GROUP (item->parent)->item_list, item);
    }
    else
    {
        g_return_val_if_fail (item->canvas->root == item, -1);
        return 0;
    }
}

static gboolean
eel_canvas_item_accessible_grab_focus (AtkComponent *component)
{
    AtkGObjectAccessible *atk_gobj;
    GObject *obj;
    EelCanvasItem *item;
    GtkWidget *toplevel;

    atk_gobj = ATK_GOBJECT_ACCESSIBLE (component);
    obj = atk_gobject_accessible_get_object (atk_gobj);

    item = EEL_CANVAS_ITEM (obj);
    if (item == NULL)
    {
        /* item is defunct */
        return FALSE;
    }

    eel_canvas_item_grab_focus (item);
    toplevel = gtk_widget_get_toplevel (GTK_WIDGET (item->canvas));
    if (gtk_widget_is_toplevel (toplevel))
    {
        gtk_window_present (GTK_WINDOW (toplevel));
    }

    return TRUE;
}

static void
eel_canvas_item_accessible_component_interface_init (AtkComponentIface *iface)
{
    g_return_if_fail (iface != NULL);

    iface->get_extents = eel_canvas_item_accessible_get_extents;
    iface->get_mdi_zorder = eel_canvas_item_accessible_get_mdi_zorder;
    iface->grab_focus = eel_canvas_item_accessible_grab_focus;
}

static gboolean
eel_canvas_item_accessible_is_item_on_screen (EelCanvasItem *item)
{
    GdkRectangle rect;

    eel_canvas_item_accessible_get_item_extents (item, &rect);
    return eel_canvas_item_accessible_is_item_in_window (item, &rect);
}

static void
eel_canvas_item_accessible_initialize (AtkObject *obj,
                                       gpointer   data)
{
    if (ATK_OBJECT_CLASS (accessible_item_parent_class)->initialize != NULL)
    {
        ATK_OBJECT_CLASS (accessible_item_parent_class)->initialize (obj, data);
    }
    g_object_set_data (G_OBJECT (obj), "atk-component-layer",
                       GINT_TO_POINTER (ATK_LAYER_MDI));
}

static AtkStateSet *
eel_canvas_item_accessible_ref_state_set (AtkObject *accessible)
{
    AtkGObjectAccessible *atk_gobj;
    GObject *obj;
    EelCanvasItem *item;
    AtkStateSet *state_set;

    state_set = ATK_OBJECT_CLASS (accessible_item_parent_class)->ref_state_set (accessible);
    atk_gobj = ATK_GOBJECT_ACCESSIBLE (accessible);
    obj = atk_gobject_accessible_get_object (atk_gobj);

    item = EEL_CANVAS_ITEM (obj);
    if (item == NULL)
    {
        atk_state_set_add_state (state_set, ATK_STATE_DEFUNCT);
    }
    else
    {
        if (item->flags & EEL_CANVAS_ITEM_VISIBLE)
        {
            atk_state_set_add_state (state_set, ATK_STATE_VISIBLE);

            if (eel_canvas_item_accessible_is_item_on_screen (item))
            {
                atk_state_set_add_state (state_set, ATK_STATE_SHOWING);
            }
        }
        if (gtk_widget_get_can_focus (GTK_WIDGET (item->canvas)))
        {
            atk_state_set_add_state (state_set, ATK_STATE_FOCUSABLE);

            if (item->canvas->focused_item == item)
            {
                atk_state_set_add_state (state_set, ATK_STATE_FOCUSED);
            }
        }
    }

    return state_set;
}

static void
eel_canvas_item_accessible_class_init (EelCanvasItemAccessibleClass *klass)
{
    AtkObjectClass *atk_class = ATK_OBJECT_CLASS (klass);

    accessible_item_parent_class = g_type_class_peek_parent (klass);

    atk_class->initialize = eel_canvas_item_accessible_initialize;
    atk_class->ref_state_set = eel_canvas_item_accessible_ref_state_set;
}

static void
eel_canvas_item_accessible_init (EelCanvasItemAccessible *self)
{
}

G_DEFINE_TYPE_WITH_CODE (EelCanvasItemAccessible,
                         eel_canvas_item_accessible,
                         ATK_TYPE_GOBJECT_ACCESSIBLE,
                         G_IMPLEMENT_INTERFACE (ATK_TYPE_COMPONENT,
                                                eel_canvas_item_accessible_component_interface_init));

static GType eel_canvas_item_accessible_factory_get_type (void);

typedef AtkObjectFactory EelCanvasItemAccessibleFactory;
typedef AtkObjectFactoryClass EelCanvasItemAccessibleFactoryClass;
G_DEFINE_TYPE (EelCanvasItemAccessibleFactory, eel_canvas_item_accessible_factory,
               ATK_TYPE_OBJECT_FACTORY)

static GType
eel_canvas_item_accessible_factory_get_accessible_type (void)
{
    return eel_canvas_item_accessible_get_type ();
}

static AtkObject *
eel_canvas_item_accessible_factory_create_accessible (GObject *for_object)
{
    AtkObject *accessible;

    accessible = g_object_new (eel_canvas_item_accessible_get_type (), NULL);
    atk_object_initialize (accessible, for_object);
    return accessible;
}

static void
eel_canvas_item_accessible_factory_init (EelCanvasItemAccessibleFactory *self)
{
}

static void
eel_canvas_item_accessible_factory_class_init (AtkObjectFactoryClass *klass)
{
    klass->create_accessible = eel_canvas_item_accessible_factory_create_accessible;
    klass->get_accessible_type = eel_canvas_item_accessible_factory_get_accessible_type;
}

/* Class initialization function for EelCanvasItemClass */
static void
eel_canvas_item_class_init (EelCanvasItemClass *klass)
{
    GObjectClass *gobject_class = (GObjectClass *) klass;

    item_parent_class = g_type_class_peek_parent (klass);

    gobject_class->set_property = eel_canvas_item_set_property;
    gobject_class->get_property = eel_canvas_item_get_property;
    gobject_class->dispose = eel_canvas_item_dispose;

    g_object_class_install_property
        (gobject_class, ITEM_PROP_VISIBLE,
        g_param_spec_boolean ("visible", NULL, NULL,
                              TRUE,
                              G_PARAM_READWRITE));

    item_signals[ITEM_EVENT] =
        g_signal_new ("event",
                      G_TYPE_FROM_CLASS (klass),
                      G_SIGNAL_RUN_LAST,
                      G_STRUCT_OFFSET (EelCanvasItemClass, event),
                      boolean_handled_accumulator, NULL,
                      g_cclosure_marshal_generic,
                      G_TYPE_BOOLEAN, 1,
                      GDK_TYPE_EVENT | G_SIGNAL_TYPE_STATIC_SCOPE);

    item_signals[ITEM_DESTROY] =
        g_signal_new ("destroy",
                      G_TYPE_FROM_CLASS (klass),
                      G_SIGNAL_RUN_CLEANUP | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS,
                      G_STRUCT_OFFSET (EelCanvasItemClass, destroy),
                      NULL, NULL,
                      g_cclosure_marshal_VOID__VOID,
                      G_TYPE_NONE, 0);

    klass->realize = eel_canvas_item_realize;
    klass->unrealize = eel_canvas_item_unrealize;
    klass->map = eel_canvas_item_map;
    klass->unmap = eel_canvas_item_unmap;
    klass->update = eel_canvas_item_update;

    atk_registry_set_factory_type (atk_get_default_registry (),
                                   EEL_TYPE_CANVAS_ITEM,
                                   eel_canvas_item_accessible_factory_get_type ());
}
