evolution/mail/e-mail-tab-picker.c

/*
 * Borrowed from Moblin-Web-Browser: The web browser for Moblin
 * Copyright (c) 2009, Intel Corporation.
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms and conditions of the GNU Lesser General Public License,
 * version 2.1, as published by the Free Software Foundation.
 *
 * This program is distributed in the hope it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 * License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "e-mail-tab-picker.h"

static void mx_droppable_iface_init (MxDroppableIface *iface);
static gint e_mail_tab_picker_find_tab_cb (gconstpointer a, gconstpointer b);

G_DEFINE_TYPE_WITH_CODE (
	EMailTabPicker,
	e_mail_tab_picker,
	MX_TYPE_WIDGET,
	G_IMPLEMENT_INTERFACE (
		MX_TYPE_DROPPABLE, mx_droppable_iface_init))

enum
{
	PROP_0,

	PROP_PREVIEW_MODE,
	PROP_DROP_ENABLED,
};

enum
{
	TAB_ACTIVATED,
	CHOOSER_CLICKED,

	LAST_SIGNAL
};

static guint signals[LAST_SIGNAL] = { 0, };

typedef struct
{
	EMailTab      *tab;
	gfloat       position;
	gfloat       width;
	gboolean     docking;
	gboolean     docked;
} EMailTabPickerProps;

struct _EMailTabPickerPrivate
{
	GList        *tabs;
	gint          n_tabs;
	ClutterActor *chooser_button;
	ClutterActor *close_button;
	gint          current_tab;
	gboolean      preview_mode;
	gboolean      drop_enabled;
	gboolean      in_drag;
	gboolean      drag_preview;

	gint          width;
	gint          total_width;
	gint          max_offset;
	gboolean      docked_tabs;

	ClutterTimeline *scroll_timeline;
	ClutterAlpha    *scroll_alpha;
	gint             scroll_start;
	gint             scroll_end;
	gint             scroll_offset;
	gboolean         keep_current_visible;
	MxAdjustment    *scroll_adjustment;
	ClutterActor    *scroll_bar;

	ClutterTimeline *preview_timeline;
	gfloat           preview_progress;
};

static void
e_mail_tab_picker_over_in (MxDroppable *droppable,
                           MxDraggable *draggable)
{
}

static void
e_mail_tab_picker_over_out (MxDroppable *droppable,
                            MxDraggable *draggable)
{
}

static void
e_mail_tab_picker_drop (MxDroppable *droppable,
                        MxDraggable *draggable,
                        gfloat event_x,
                        gfloat event_y,
                        gint button,
                        ClutterModifierType modifiers)
{
	GList *t;
	EMailTabPickerProps *tab;
	ClutterActor *parent;
	gint current_position, new_position;

	EMailTabPicker *picker = E_MAIL_TAB_PICKER (droppable);
	EMailTabPickerPrivate *priv = picker->priv;

	/* Make sure this is a valid drop */
	if (!priv->drop_enabled)
		return;

	if (!E_MAIL_IS_TAB (draggable))
		return;

	parent = clutter_actor_get_parent (CLUTTER_ACTOR (draggable));
	if (parent != (ClutterActor *) picker)
		return;

	/* Get current position and property data structure */
	t = g_list_find_custom (priv->tabs, draggable, e_mail_tab_picker_find_tab_cb);
	tab = (EMailTabPickerProps *) t->data;
	if (!tab) {
		g_warning ("Tab that's parented to a picker not actually in picker");
		return;
	}
	current_position = g_list_position (priv->tabs, t);

	/* Work out new position */
	for (new_position = 0, t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *props = t->data;

		/* Ignore docked tabs */
		if (!props->docked) {
			/* If the tab is beyond the dragged tab and not
			 * draggable, we don't want to drag past it. */
			if ((event_x >= props->position + priv->scroll_offset) &&
			   (tab->position + tab->width <= props->position) &&
			   !mx_draggable_is_enabled (MX_DRAGGABLE (props->tab))) {
				new_position--;
				break;
			}

			/* The same check for dragging left instead of right */
			if ((event_x < props->position + props->width + priv->scroll_offset)&&
			   (tab->position >= props->position) &&
			   !mx_draggable_is_enabled (MX_DRAGGABLE (props->tab)))
				break;

			/* If the tab-end position is after the drop position,
			 * break - we want to drop before here. */
			if (props->position + props->width + priv->scroll_offset > event_x)
				break;
		}

		/* Increment the position */
		new_position++;
	}

	/* Re-order */
	e_mail_tab_picker_reorder (picker, current_position, new_position);
}

static void
mx_droppable_iface_init (MxDroppableIface *iface)
{
	iface->over_in = e_mail_tab_picker_over_in;
	iface->over_out = e_mail_tab_picker_over_out;
	iface->drop = e_mail_tab_picker_drop;
}

static void
e_mail_tab_picker_get_property (GObject *object,
                                guint property_id,
                                GValue *value,
                                GParamSpec *pspec)
{
	EMailTabPicker *tab_picker = E_MAIL_TAB_PICKER (object);
	EMailTabPickerPrivate *priv = tab_picker->priv;

	switch (property_id) {
		case PROP_PREVIEW_MODE:
			g_value_set_boolean (
				value, e_mail_tab_picker_get_preview_mode (
				E_MAIL_TAB_PICKER (object)));
			return;

		case PROP_DROP_ENABLED:
			g_value_set_boolean (value, priv->drop_enabled);
			return;
	}

	G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
e_mail_tab_picker_set_property (GObject *object,
                                guint property_id,
                                const GValue *value,
                                GParamSpec *pspec)
{
	EMailTabPicker *tab_picker = E_MAIL_TAB_PICKER (object);
	EMailTabPickerPrivate *priv = tab_picker->priv;

	switch (property_id) {
		case PROP_PREVIEW_MODE:
			e_mail_tab_picker_set_preview_mode (
				E_MAIL_TAB_PICKER (object),
				g_value_get_boolean (value));
			return;

		case PROP_DROP_ENABLED:
			priv->drop_enabled = g_value_get_boolean (value);
			return;
	}

	G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
e_mail_tab_picker_dispose (GObject *object)
{
	EMailTabPicker *picker = E_MAIL_TAB_PICKER (object);
	EMailTabPickerPrivate *priv = picker->priv;

	if (priv->scroll_bar) {
		clutter_actor_unparent (CLUTTER_ACTOR (priv->scroll_bar));
		priv->scroll_bar = NULL;
	}

	if (priv->scroll_timeline) {
		clutter_timeline_stop (priv->scroll_timeline);
		g_object_unref (priv->scroll_alpha);
		g_object_unref (priv->scroll_timeline);
		priv->scroll_timeline = NULL;
		priv->scroll_alpha = NULL;
	}

	if (priv->preview_timeline) {
		clutter_timeline_stop (priv->preview_timeline);
		g_object_unref (priv->preview_timeline);
		priv->preview_timeline = NULL;
	}

	if (priv->chooser_button) {
		clutter_actor_unparent (CLUTTER_ACTOR (priv->chooser_button));
		priv->chooser_button = NULL;
	}

	if (priv->close_button) {
		clutter_actor_unparent (CLUTTER_ACTOR (priv->close_button));
		priv->close_button = NULL;
	}

	while (priv->tabs) {
		EMailTabPickerProps *props = priv->tabs->data;
		e_mail_tab_picker_remove_tab (picker, props->tab);
	}

	/* Chain up to parent's dispose() method. */
	G_OBJECT_CLASS (e_mail_tab_picker_parent_class)->dispose (object);
}

static void
e_mail_tab_picker_paint (ClutterActor *actor)
{
	GList *t;
	gfloat width, height, offset;

	EMailTabPickerPrivate *priv = E_MAIL_TAB_PICKER (actor)->priv;

	CLUTTER_ACTOR_CLASS (e_mail_tab_picker_parent_class)->paint (actor);

	clutter_actor_get_size (actor, &width, &height);

	cogl_clip_push_rectangle (0, 0, width, height);

	offset = priv->scroll_offset;
	cogl_translate (-priv->scroll_offset, 0, 0);

	/* Draw normal tabs */
	for (t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *props = t->data;

		if (props->docked)
			continue;
		if (props->position + props->width < offset)
			continue;
		if (props->position > width + offset)
			break;

		if (CLUTTER_ACTOR_IS_MAPPED (props->tab))
			clutter_actor_paint (CLUTTER_ACTOR (props->tab));
	}

	cogl_translate (priv->scroll_offset, 0, 0);

	/* Draw docked tabs */
	if (priv->docked_tabs) {
		for (t = priv->tabs; t; t = t->next) {
			EMailTabPickerProps *props = t->data;

			if (!props->docked)
				continue;

			if (CLUTTER_ACTOR_IS_MAPPED (props->tab))
				clutter_actor_paint (CLUTTER_ACTOR (props->tab));
		}
	}

	cogl_clip_pop ();

	/* Draw tab chooser button */
	if (CLUTTER_ACTOR_IS_MAPPED (priv->chooser_button))
		clutter_actor_paint (CLUTTER_ACTOR (priv->chooser_button));

	/* Draw scrollbar */
	if (CLUTTER_ACTOR_IS_MAPPED (priv->scroll_bar)) {
		gfloat height;
		clutter_actor_get_preferred_height (
			CLUTTER_ACTOR (priv->close_button),
			-1, NULL, &height);
		height *= priv->preview_progress;
		if (height >= 1.0) {
			cogl_clip_push_rectangle (0, 0, width, height);
			if (CLUTTER_ACTOR_IS_MAPPED (priv->close_button))
				clutter_actor_paint (CLUTTER_ACTOR (priv->close_button));
			clutter_actor_paint (CLUTTER_ACTOR (priv->scroll_bar));
			cogl_clip_pop ();
		}
	}
}

static void
e_mail_tab_picker_pick (ClutterActor *actor,
                        const ClutterColor *color)
{
	EMailTabPickerPrivate *priv = E_MAIL_TAB_PICKER (actor)->priv;

	/* Chain up to paint background */
	CLUTTER_ACTOR_CLASS (e_mail_tab_picker_parent_class)->pick (actor, color);

	if (!priv->in_drag)
		e_mail_tab_picker_paint (actor);
}

static void
e_mail_tab_picker_get_preferred_width (ClutterActor *actor,
                                       gfloat for_height,
                                       gfloat *min_width_p,
                                       gfloat *natural_width_p)
{
	GList *t;
	MxPadding padding;

	EMailTabPickerPrivate *priv = E_MAIL_TAB_PICKER (actor)->priv;

	clutter_actor_get_preferred_width (
		CLUTTER_ACTOR (priv->chooser_button),
		for_height, min_width_p, natural_width_p);

	mx_widget_get_padding (MX_WIDGET (actor), &padding);
	if (min_width_p)
		*min_width_p += padding.left + padding.right;
	if (natural_width_p)
		*natural_width_p += padding.left + padding.right;

	for (t = priv->tabs; t; t = t->next) {
		gfloat min_width, natural_width;
		EMailTabPickerProps *props = t->data;

		clutter_actor_get_preferred_width (
			CLUTTER_ACTOR (props->tab), for_height,
			&min_width, &natural_width);

		if (min_width_p && !t->prev)
			*min_width_p += min_width;
		if (natural_width_p)
			*natural_width_p += natural_width;
	}
}

void
e_mail_tab_picker_get_preferred_height (EMailTabPicker *tab_picker,
                                        gfloat for_width,
                                        gfloat *min_height_p,
                                        gfloat *natural_height_p,
                                        gboolean with_previews)
{
	MxPadding padding;

	ClutterActor *actor = CLUTTER_ACTOR (tab_picker);
	EMailTabPickerPrivate *priv = tab_picker->priv;

	clutter_actor_get_preferred_height (
		CLUTTER_ACTOR (priv->chooser_button),
		for_width, min_height_p, natural_height_p);

	if (priv->tabs) {
		gfloat min_height, natural_height, scroll_height;
		EMailTabPickerProps *props = priv->tabs->data;

		/* Get the height of the first tab - it's assumed that
		 * tabs are fixed height. */
		if (with_previews) {
			clutter_actor_get_preferred_height (
				CLUTTER_ACTOR (props->tab),
				for_width, &min_height,
				&natural_height);

			if (CLUTTER_ACTOR_IS_VISIBLE (priv->scroll_bar)) {
				/* Add the height of the scrollbar-section */
				clutter_actor_get_preferred_height (
					CLUTTER_ACTOR (priv->close_button),
					-1, NULL, &scroll_height);
				scroll_height *= priv->preview_progress;

				min_height += scroll_height;
				natural_height += scroll_height;
			}
		} else
			e_mail_tab_get_height_no_preview (
				props->tab, for_width,
				&min_height, &natural_height);

		if (min_height_p && (*min_height_p < min_height))
			*min_height_p = min_height;
		if (natural_height_p && (*natural_height_p < natural_height))
			*natural_height_p = natural_height;
	}

	mx_widget_get_padding (MX_WIDGET (actor), &padding);
	if (min_height_p)
		*min_height_p += padding.top + padding.bottom;
	if (natural_height_p)
		*natural_height_p += padding.top + padding.bottom;
}

static void
_e_mail_tab_picker_get_preferred_height (ClutterActor *actor,
                                         gfloat for_width,
                                         gfloat *min_height_p,
                                         gfloat *natural_height_p)
{
	e_mail_tab_picker_get_preferred_height (
		E_MAIL_TAB_PICKER (actor), for_width,
		min_height_p, natural_height_p, TRUE);
}

static void
e_mail_tab_picker_allocate_docked (EMailTabPicker *tab_picker,
                                   const ClutterActorBox *picker_box_p,
                                   const ClutterActorBox *chooser_box_p,
                                   ClutterAllocationFlags flags)
{
	GList *t;
	MxPadding padding;
	ClutterActorBox picker_box, chooser_box, child_box;
	gfloat offset, width, left, right, height;

	EMailTabPickerPrivate *priv = tab_picker->priv;

	if (!picker_box_p) {
		clutter_actor_get_allocation_box (
			CLUTTER_ACTOR (tab_picker), &picker_box);
		picker_box_p = &picker_box;
	}

	if (!chooser_box_p) {
		clutter_actor_get_allocation_box (
			CLUTTER_ACTOR (priv->chooser_button), &chooser_box);
			chooser_box_p = &chooser_box;
	}

	mx_widget_get_padding (MX_WIDGET (tab_picker), &padding);

	/* Calculate available width and height */
	width = picker_box_p->x2 - picker_box_p->x1 - padding.right;

	e_mail_tab_picker_get_preferred_height (
		tab_picker, -1, NULL, &height, FALSE);
	child_box.y2 = picker_box_p->y2 - picker_box_p->y1 - padding.bottom;
	child_box.y1 = child_box.y2 - height;

	/* Don't dock over the chooser button */
	width -= chooser_box_p->x2 - chooser_box_p->x1;

	offset = priv->scroll_offset;

	left = 0;
	right = width;
	priv->docked_tabs = FALSE;

	for (t = g_list_last (priv->tabs); t; t = t->prev) {
		EMailTabPickerProps *props = t->data;

		props->docked = FALSE;

		if (!props->docking)
			continue;

		if (props->position < offset) {
			/* Dock left */
			priv->docked_tabs = TRUE;
			props->docked = TRUE;
			child_box.x1 = left;
			child_box.x2 = child_box.x1 + props->width;
			left += props->width;
		} else if (props->position + props->width > width + offset) {
			/* Dock right */
			priv->docked_tabs = TRUE;
			props->docked = TRUE;
			child_box.x2 = right;
			child_box.x1 = child_box.x2 - props->width;
			right -= props->width;
		} else {
			child_box.x1 = props->position;
			child_box.x2 = child_box.x1 + props->width;
		}

		clutter_actor_allocate (
			CLUTTER_ACTOR (props->tab), &child_box, flags);
	}
}

static void
e_mail_tab_picker_scroll_new_frame_cb (ClutterTimeline *timeline,
                                       guint msecs,
                                       EMailTabPicker *tab_picker)
{
	EMailTabPickerPrivate *priv = tab_picker->priv;
	gdouble alpha = clutter_alpha_get_alpha (priv->scroll_alpha);

	priv->scroll_offset =
		(priv->scroll_start * (1.0 - alpha)) +
		(priv->scroll_end * alpha);
	mx_adjustment_set_value (priv->scroll_adjustment, priv->scroll_offset);
	e_mail_tab_picker_allocate_docked (tab_picker, NULL, NULL, 0);
	clutter_actor_queue_redraw (CLUTTER_ACTOR (tab_picker));
}

static void
e_mail_tab_picker_scroll_completed_cb (ClutterTimeline *timeline,
                                       EMailTabPicker *tab_picker)
{
	EMailTabPickerPrivate *priv = tab_picker->priv;

	priv->scroll_offset = priv->scroll_end;
	mx_adjustment_set_value (priv->scroll_adjustment, priv->scroll_offset);
	e_mail_tab_picker_allocate_docked (tab_picker, NULL, NULL, 0);
	clutter_actor_queue_redraw (CLUTTER_ACTOR (tab_picker));

	g_object_unref (priv->scroll_alpha);
	g_object_unref (priv->scroll_timeline);
	priv->scroll_alpha = NULL;
	priv->scroll_timeline = NULL;
}

static void
e_mail_tab_picker_scroll_to (EMailTabPicker *tab_picker,
                             gint destination,
                             guint duration)
{
	EMailTabPickerPrivate *priv = tab_picker->priv;

	priv->scroll_start = priv->scroll_offset;
	priv->scroll_end = CLAMP (destination, 0, priv->max_offset);

	if (priv->scroll_timeline) {
		clutter_timeline_stop (priv->scroll_timeline);
		clutter_timeline_rewind (priv->scroll_timeline);
		clutter_timeline_set_duration (priv->scroll_timeline, duration);
	} else {
		if (priv->scroll_end == priv->scroll_offset)
			return;

		priv->scroll_timeline = clutter_timeline_new (duration);
		priv->scroll_alpha = clutter_alpha_new_full (
			priv->scroll_timeline, CLUTTER_EASE_OUT_QUAD);
		g_signal_connect (
			priv->scroll_timeline, "new_frame",
			G_CALLBACK (e_mail_tab_picker_scroll_new_frame_cb),
			tab_picker);
		g_signal_connect (
			priv->scroll_timeline, "completed",
			G_CALLBACK (e_mail_tab_picker_scroll_completed_cb),
			tab_picker);
	}

	clutter_timeline_start (priv->scroll_timeline);
}

static void
e_mail_tab_picker_allocate (ClutterActor *actor,
                            const ClutterActorBox *box,
                            ClutterAllocationFlags flags)
{
	GList *t;
	MxPadding padding;
	gint old_max_offset, old_scroll_offset;
	ClutterActorBox child_box, scroll_box;
	gfloat width, total_width, height;

	EMailTabPicker *tab_picker = E_MAIL_TAB_PICKER (actor);
	EMailTabPickerPrivate *priv = tab_picker->priv;

	mx_widget_get_padding (MX_WIDGET (actor), &padding);

	/* Allocate for scroll-bar and close button */
	clutter_actor_get_preferred_size (
		CLUTTER_ACTOR (priv->close_button),
		NULL, NULL, &width, &height);
	child_box.x1 = 0;
	child_box.x2 = box->x2 - box->x1 - padding.right;
	child_box.y1 = 0;
	child_box.y2 = child_box.y1 + height;
	clutter_actor_allocate (
		CLUTTER_ACTOR (priv->close_button), &child_box, flags);

	/* FIXME: Make this a property */
#define SPACING 4.0
	/* Work out allocation for scroll-bar, but allocate it later */
	scroll_box = child_box;
	scroll_box.x2 -= width + SPACING;
	scroll_box.x1 += SPACING;
	scroll_box.y1 += SPACING;
	scroll_box.y2 -= SPACING;

	child_box.y1 += (height * priv->preview_progress) + padding.top;

	/* Allocate for tabs */
	total_width = 0;
	child_box.x1 = padding.left;
	e_mail_tab_picker_get_preferred_height (
		tab_picker, -1, NULL, &height, FALSE);
	for (t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *props = t->data;
		ClutterActor *actor = CLUTTER_ACTOR (props->tab);

		clutter_actor_get_preferred_width (
			actor, child_box.y2, NULL, &width);

		/* Fill out data - note it's ok to fill out docking here
		 * as when it changes, the tab queues a relayout. */
		props->docking = e_mail_tab_get_docking (props->tab);
		props->position = child_box.x1;
		props->width = width;

		total_width += width;

		/* Don't stretch tabs without a preview to fit tabs
		 * with a preview. */
		if (e_mail_tab_get_preview_actor (props->tab))
			child_box.y2 = box->y2 - box->y1 - padding.bottom;
		else
			child_box.y2 = child_box.y1 + height;

		child_box.x2 = child_box.x1 + width;
		clutter_actor_allocate (actor, &child_box, flags);

		child_box.x1 = child_box.x2;
	}

	/* Allocate for the chooser button */
	clutter_actor_get_preferred_width (
		CLUTTER_ACTOR (priv->chooser_button),
		box->y2 - box->y1, NULL, &width);

	child_box.x2 = box->x2 - box->x1 - padding.right;
	child_box.x1 = child_box.x2 - width;
	child_box.y1 = 0;
	child_box.y2 = child_box.y1 + height;
	clutter_actor_allocate (
		CLUTTER_ACTOR (priv->chooser_button), &child_box, flags);

	/* Cache some useful size values */
	priv->width = (gint)(box->x2 - box->x1);

	priv->total_width = (gint)(total_width + padding.left + padding.right);

	old_max_offset = priv->max_offset;
	priv->max_offset =
		priv->total_width - priv->width +
		(gint) (child_box.x2 - child_box.x1);
	if (priv->max_offset < 0)
		priv->max_offset = 0;

	/* Allocate for tab picker */
	old_scroll_offset = priv->scroll_offset;
	priv->scroll_offset = CLAMP (priv->scroll_offset, 0, priv->max_offset);
	e_mail_tab_picker_allocate_docked (tab_picker, box, &child_box, flags);

	/* Chain up (store box) */
	CLUTTER_ACTOR_CLASS (e_mail_tab_picker_parent_class)->
		allocate (actor, box, flags);

	/* Sync up the scroll-bar properties */
	g_object_set (
		priv->scroll_adjustment,
		"page-increment", (gdouble)(box->x2 - box->x1),
		"page-size", (gdouble)(box->x2 - box->x1),
		"upper", (gdouble)total_width,
		NULL);

	if ((priv->max_offset != old_max_offset) ||
			(priv->scroll_offset != old_scroll_offset))
		mx_adjustment_set_value (
			priv->scroll_adjustment,
			(gdouble) priv->scroll_offset);

	/* Allocate for scroll-bar */
	clutter_actor_allocate (
		CLUTTER_ACTOR (priv->scroll_bar), &scroll_box, flags);

	/* Keep current tab visible */
	if (priv->keep_current_visible) {
		EMailTabPickerProps *current;

		current = g_list_nth_data (priv->tabs, priv->current_tab);

		if ((current->position < priv->scroll_offset) ||
		    (current->position + current->width >= priv->max_offset))
			e_mail_tab_picker_scroll_to (
				tab_picker, current->position, 150);
	}
}

static void
e_mail_tab_picker_map (ClutterActor *actor)
{
	GList *t;
	EMailTabPickerPrivate *priv = E_MAIL_TAB_PICKER (actor)->priv;

	CLUTTER_ACTOR_CLASS (e_mail_tab_picker_parent_class)->map (actor);

	clutter_actor_map (CLUTTER_ACTOR (priv->chooser_button));
	clutter_actor_map (CLUTTER_ACTOR (priv->close_button));
	clutter_actor_map (CLUTTER_ACTOR (priv->scroll_bar));

	for (t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *props = t->data;
		clutter_actor_map (CLUTTER_ACTOR (props->tab));
	}
}

static void
e_mail_tab_picker_unmap (ClutterActor *actor)
{
	GList *t;
	EMailTabPickerPrivate *priv = E_MAIL_TAB_PICKER (actor)->priv;

	CLUTTER_ACTOR_CLASS (e_mail_tab_picker_parent_class)->unmap (actor);

	clutter_actor_unmap (CLUTTER_ACTOR (priv->chooser_button));
	clutter_actor_unmap (CLUTTER_ACTOR (priv->close_button));
	clutter_actor_unmap (CLUTTER_ACTOR (priv->scroll_bar));

	for (t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *props = t->data;
		clutter_actor_unmap (CLUTTER_ACTOR (props->tab));
	}
}

static void
e_mail_tab_picker_class_init (EMailTabPickerClass *class)
{
	GObjectClass *object_class = G_OBJECT_CLASS (class);
	ClutterActorClass *actor_class = CLUTTER_ACTOR_CLASS (class);

	g_type_class_add_private (class, sizeof (EMailTabPickerPrivate));

	object_class->get_property = e_mail_tab_picker_get_property;
	object_class->set_property = e_mail_tab_picker_set_property;
	object_class->dispose = e_mail_tab_picker_dispose;

	actor_class->paint = e_mail_tab_picker_paint;
	actor_class->pick = e_mail_tab_picker_pick;
	actor_class->get_preferred_width = e_mail_tab_picker_get_preferred_width;
	actor_class->get_preferred_height = _e_mail_tab_picker_get_preferred_height;
	actor_class->allocate = e_mail_tab_picker_allocate;
	actor_class->map = e_mail_tab_picker_map;
	actor_class->unmap = e_mail_tab_picker_unmap;

	g_object_class_install_property (
		object_class,
		PROP_PREVIEW_MODE,
		g_param_spec_boolean (
			"preview-mode",
			"Preview mode",
			"Whether to display "
			"in preview mode.",
			FALSE,
			G_PARAM_READWRITE |
			G_PARAM_STATIC_NAME |
			G_PARAM_STATIC_NICK |
			G_PARAM_STATIC_BLURB));

	g_object_class_override_property (
		object_class,
		PROP_DROP_ENABLED,
		"drop-enabled");

	signals[TAB_ACTIVATED] = g_signal_new (
		"tab-activated",
		G_TYPE_FROM_CLASS (class),
		G_SIGNAL_RUN_LAST,
		G_STRUCT_OFFSET (EMailTabPickerClass, tab_activated),
		NULL, NULL,
		g_cclosure_marshal_VOID__OBJECT,
		G_TYPE_NONE, 1,
		E_MAIL_TYPE_TAB);

	signals[CHOOSER_CLICKED] = g_signal_new (
		"chooser-clicked",
		G_TYPE_FROM_CLASS (class),
		G_SIGNAL_RUN_LAST,
		G_STRUCT_OFFSET (EMailTabPickerClass, chooser_clicked),
		NULL, NULL,
		g_cclosure_marshal_VOID__VOID,
		G_TYPE_NONE, 0);
}

static void
e_mail_tab_picker_chooser_clicked_cb (ClutterActor *button,
                                      EMailTabPicker *self)
{
	g_signal_emit (self, signals[CHOOSER_CLICKED], 0);
}

static gboolean
e_mail_tab_picker_scroll_event_cb (ClutterActor *actor,
                                   ClutterScrollEvent *event,
                                   gpointer user_data)
{
	EMailTabPicker *self = E_MAIL_TAB_PICKER (actor);
	EMailTabPickerPrivate *priv = self->priv;

	priv->keep_current_visible = FALSE;

	switch (event->direction) {
		case CLUTTER_SCROLL_UP :
		case CLUTTER_SCROLL_LEFT :
			e_mail_tab_picker_scroll_to (
				self, priv->scroll_end - 200, 150);
			break;

		case CLUTTER_SCROLL_DOWN :
		case CLUTTER_SCROLL_RIGHT :
			e_mail_tab_picker_scroll_to (
				self, priv->scroll_end + 200, 150);
			break;
	}

	return TRUE;
}

static void
e_mail_tab_picker_scroll_value_cb (MxAdjustment *adjustment,
                                   GParamSpec *pspec,
                                   EMailTabPicker *picker)
{
	EMailTabPickerPrivate *priv = picker->priv;
	gdouble value = mx_adjustment_get_value (adjustment);

	if ((gint) value != priv->scroll_offset) {
		priv->keep_current_visible = FALSE;
		priv->scroll_offset = (gint) value;
		clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
	}
}

static void
e_mail_tab_picker_init (EMailTabPicker *self)
{
	EMailTabPickerPrivate *priv;

	priv = self->priv = G_TYPE_INSTANCE_GET_PRIVATE (
		self, E_MAIL_TYPE_TAB_PICKER, EMailTabPickerPrivate);

	clutter_actor_set_reactive (CLUTTER_ACTOR (self), TRUE);

	priv->chooser_button = mx_button_new ();
	clutter_actor_set_name (
		CLUTTER_ACTOR (priv->chooser_button), "chooser-button");
	clutter_actor_set_parent (
		CLUTTER_ACTOR (priv->chooser_button), CLUTTER_ACTOR (self));

	priv->close_button = mx_button_new ();
	clutter_actor_set_name (
		CLUTTER_ACTOR (priv->close_button), "chooser-close-button");
	clutter_actor_set_parent (
		CLUTTER_ACTOR (priv->close_button), CLUTTER_ACTOR (self));
	clutter_actor_hide (CLUTTER_ACTOR (priv->close_button));

	priv->scroll_adjustment =
		mx_adjustment_new_with_values (0, 0, 0, 100, 200, 200);
	priv->scroll_bar =
		mx_scroll_bar_new_with_adjustment (priv->scroll_adjustment);
	g_object_unref (priv->scroll_adjustment);
	clutter_actor_set_parent (
		CLUTTER_ACTOR (priv->scroll_bar), CLUTTER_ACTOR (self));
	clutter_actor_hide (CLUTTER_ACTOR (priv->scroll_bar));

	g_signal_connect (
		priv->chooser_button, "clicked",
		G_CALLBACK (e_mail_tab_picker_chooser_clicked_cb), self);
	g_signal_connect (
		priv->close_button, "clicked",
		G_CALLBACK (e_mail_tab_picker_chooser_clicked_cb), self);
	g_signal_connect (
		self, "scroll-event",
		G_CALLBACK (e_mail_tab_picker_scroll_event_cb), NULL);
}

static gint
e_mail_tab_picker_find_tab_cb (gconstpointer a, gconstpointer b)
{
	EMailTabPickerProps *props = (EMailTabPickerProps *) a;
	EMailTab *tab = (EMailTab *) b;

	return (props->tab == tab) ? 0 : -1;
}

static void
e_mail_tab_picker_tab_clicked_cb (EMailTab *tab, EMailTabPicker *self)
{
	EMailTabPickerPrivate *priv = self->priv;
	EMailTab *old_tab;
	GList *new_tab_link;

	old_tab = ((EMailTabPickerProps *) g_list_nth_data (
		priv->tabs, priv->current_tab))->tab;
	new_tab_link = g_list_find_custom (
		priv->tabs, tab, e_mail_tab_picker_find_tab_cb);

	if (!new_tab_link)
		return;

	priv->keep_current_visible = TRUE;

	/* If the same tab is clicked, make sure we remain active and return */
	if (tab == old_tab) {
		e_mail_tab_set_active (tab, TRUE);
		if (priv->preview_mode)
			g_signal_emit (self, signals[TAB_ACTIVATED], 0, tab);
		return;
	}

	/* Deselect old tab */
	e_mail_tab_set_active (old_tab, FALSE);

	/* Set new tab */
	priv->current_tab = g_list_position (priv->tabs, new_tab_link);
	g_signal_emit (self, signals[TAB_ACTIVATED], 0, tab);
}

ClutterActor *
e_mail_tab_picker_new (void)
{
	return g_object_new (E_MAIL_TYPE_TAB_PICKER, NULL);
}

static void
e_mail_tab_picker_tab_drag_begin_cb (MxDraggable *draggable,
                                     gfloat event_x,
                                     gfloat event_y,
                                     gint event_button,
                                     ClutterModifierType modifiers,
                                     EMailTabPicker *picker)
{
	EMailTabPickerPrivate *priv = picker->priv;
	priv->in_drag = TRUE;

	if (!priv->preview_mode) {
		e_mail_tab_picker_set_preview_mode (picker, TRUE);
		priv->drag_preview = TRUE;
	}
}

static void
e_mail_tab_picker_tab_drag_end_cb (MxDraggable *draggable,
                                   gfloat event_x,
                                   gfloat event_y,
                                   EMailTabPicker *picker)
{
	EMailTabPickerPrivate *priv = picker->priv;
	priv->in_drag = FALSE;

	if (priv->drag_preview) {
		e_mail_tab_picker_set_preview_mode (picker, FALSE);
		priv->drag_preview = FALSE;
	}
}

void
e_mail_tab_picker_add_tab (EMailTabPicker *picker,
                           EMailTab *tab,
                           gint position)
{
	EMailTabPickerProps *props;
	EMailTabPickerPrivate *priv = picker->priv;

	if (priv->tabs && (priv->current_tab >= position))
		priv->current_tab++;

	props = g_slice_new (EMailTabPickerProps);
	props->tab = tab;
	priv->tabs = g_list_insert (priv->tabs, props, position);
	priv->n_tabs++;

	clutter_actor_set_parent (CLUTTER_ACTOR (tab), CLUTTER_ACTOR (picker));
	mx_draggable_set_axis (MX_DRAGGABLE (tab), MX_DRAG_AXIS_X);

	g_signal_connect_after (
		tab, "clicked",
		G_CALLBACK (e_mail_tab_picker_tab_clicked_cb), picker);
	g_signal_connect (
		tab, "drag-begin",
		G_CALLBACK (e_mail_tab_picker_tab_drag_begin_cb), picker);
	g_signal_connect (
		tab, "drag-end",
		G_CALLBACK (e_mail_tab_picker_tab_drag_end_cb), picker);

	e_mail_tab_set_preview_mode (tab, priv->preview_mode);
	clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
}

void
e_mail_tab_picker_remove_tab (EMailTabPicker *picker, EMailTab *tab)
{
	GList *tab_link;
	EMailTabPickerPrivate *priv = picker->priv;

	tab_link = g_list_find_custom (
		priv->tabs, tab, e_mail_tab_picker_find_tab_cb);

	if (!tab_link)
		return;

	g_signal_handlers_disconnect_by_func (
		tab, e_mail_tab_picker_tab_clicked_cb, picker);
	g_signal_handlers_disconnect_by_func (
		tab, e_mail_tab_picker_tab_drag_begin_cb, picker);
	g_signal_handlers_disconnect_by_func (
		tab, e_mail_tab_picker_tab_drag_end_cb, picker);

	/* We don't want to do this during dispose, checking if chooser_button
	 * exists is a way of checking if we're in dispose without keeping an
	 * extra variable around. */
	if (priv->chooser_button) {
		gint position = g_list_position (priv->tabs, tab_link);
		if (priv->current_tab) {
			if (priv->current_tab > position)
				priv->current_tab--;
			else if (priv->current_tab == position)
				e_mail_tab_picker_set_current_tab (
					picker, priv->current_tab - 1);
		} else if (priv->tabs->next && (position == 0)) {
			e_mail_tab_picker_set_current_tab (
				picker, priv->current_tab + 1);
			priv->current_tab--;
		}
	}

	g_slice_free (EMailTabPickerProps, tab_link->data);
	priv->tabs = g_list_delete_link (priv->tabs, tab_link);
	clutter_actor_unparent (CLUTTER_ACTOR (tab));
	priv->n_tabs--;

	clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
}

GList *
e_mail_tab_picker_get_tabs (EMailTabPicker *picker)
{
	GList *tab_list, *t;

	EMailTabPickerPrivate *priv = picker->priv;

	tab_list = NULL;
	for (t = g_list_last (priv->tabs); t; t = t->prev) {
		EMailTabPickerProps *props = t->data;
		tab_list = g_list_prepend (tab_list, props->tab);
	}

	return tab_list;
}

EMailTab *
e_mail_tab_picker_get_tab (EMailTabPicker *picker, gint tab)
{
	EMailTabPickerProps *props = g_list_nth_data (picker->priv->tabs, tab);
	return props->tab;
}

gint
e_mail_tab_picker_get_tab_no (EMailTabPicker *picker, EMailTab *tab)
{
	GList *tab_link;

	tab_link = g_list_find_custom (
		picker->priv->tabs, tab,
		e_mail_tab_picker_find_tab_cb);

	return g_list_position (picker->priv->tabs, tab_link);
}

gint
e_mail_tab_picker_get_current_tab (EMailTabPicker *picker)
{
	return picker->priv->current_tab;
}

void
e_mail_tab_picker_set_current_tab (EMailTabPicker *picker, gint tab_no)
{
	EMailTabPickerPrivate *priv = picker->priv;
	EMailTabPickerProps *props;

	printf("OLD %d new %d\n", priv->current_tab, tab_no);
	if (priv->n_tabs == 0)
		return;

	if (ABS (tab_no) >= priv->n_tabs)
		return;

	if (tab_no < 0)
		tab_no = priv->n_tabs + tab_no;

	props = g_list_nth_data (priv->tabs, (guint) tab_no);

	if (props) {
		e_mail_tab_picker_tab_clicked_cb (props->tab, picker);
		e_mail_tab_set_active (props->tab, TRUE);
	}
}

void
e_mail_tab_picker_reorder (EMailTabPicker *picker,
                           gint old_position,
                           gint new_position)
{
	GList *link;
	gpointer data;

	EMailTabPickerPrivate *priv = picker->priv;

	if (old_position == new_position)
		return;

	if (!(link = g_list_nth (priv->tabs, old_position)))
		return;

	data = link->data;
	priv->tabs = g_list_delete_link (priv->tabs, link);
	priv->tabs = g_list_insert (priv->tabs, data, new_position);

	if (priv->current_tab == old_position) {
		if (new_position < 0)
			priv->current_tab = priv->n_tabs - 1;
		else
			priv->current_tab = CLAMP (
				new_position, 0, priv->n_tabs - 1);
	} else if ((priv->current_tab > old_position) &&
			(new_position >= priv->current_tab))
		priv->current_tab--;
	else if ((priv->current_tab < old_position) &&
			(new_position <= priv->current_tab))
		priv->current_tab++;

	clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
}

gint
e_mail_tab_picker_get_n_tabs (EMailTabPicker *picker)
{
	return picker->priv->n_tabs;
}

static void
preview_new_frame_cb (ClutterTimeline *timeline,
                      guint msecs,
                      EMailTabPicker *picker)
{
	picker->priv->preview_progress =
		clutter_timeline_get_progress (timeline);
	clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
}

static void
preview_completed_cb (ClutterTimeline *timeline,
                      EMailTabPicker *picker)
{
	EMailTabPickerPrivate *priv = picker->priv;

	if (priv->preview_timeline) {
		g_object_unref (priv->preview_timeline);
		priv->preview_timeline = NULL;

		if (priv->preview_mode) {
			priv->preview_progress = 1.0;
			clutter_actor_hide (
				CLUTTER_ACTOR (priv->chooser_button));
		} else {
			priv->preview_progress = 0.0;
			clutter_actor_hide (CLUTTER_ACTOR (priv->scroll_bar));
			clutter_actor_hide (CLUTTER_ACTOR (priv->close_button));
		}

		clutter_actor_queue_relayout (CLUTTER_ACTOR (picker));
	}
}

void
e_mail_tab_picker_set_preview_mode (EMailTabPicker *picker, gboolean preview)
{
	GList *t;

	EMailTabPickerPrivate *priv = picker->priv;

	if (priv->preview_mode == preview)
		return;

	priv->preview_mode = preview;

	/* Put all tabs in preview mode */
	for (t = priv->tabs; t; t = t->next) {
		EMailTabPickerProps *prop = t->data;
		e_mail_tab_set_preview_mode (prop->tab, preview);
	}

	/* Slide in the scroll-bar */
	if (!priv->preview_timeline) {
		if (preview)
			clutter_actor_show (CLUTTER_ACTOR (priv->scroll_bar));

		priv->preview_timeline = clutter_timeline_new (150);
		g_signal_connect (
			priv->preview_timeline, "new-frame",
			G_CALLBACK (preview_new_frame_cb), picker);
		g_signal_connect (
			priv->preview_timeline, "completed",
			G_CALLBACK (preview_completed_cb), picker);
		clutter_timeline_start (priv->preview_timeline);
	}

	clutter_timeline_set_direction (
		priv->preview_timeline,
		preview ? CLUTTER_TIMELINE_FORWARD :
		CLUTTER_TIMELINE_BACKWARD);

	/* Connect/disconnect the scrollbar */
	if (preview)
		g_signal_connect (
			priv->scroll_adjustment, "notify::value",
			G_CALLBACK (e_mail_tab_picker_scroll_value_cb), picker);
	else
		g_signal_handlers_disconnect_by_func (
			priv->scroll_adjustment,
			e_mail_tab_picker_scroll_value_cb, picker);

	if (preview) {
		/* Fade out the chooser button show close button */
		clutter_actor_animate (
			CLUTTER_ACTOR (priv->chooser_button),
			CLUTTER_EASE_IN_OUT_QUAD, 150,
			"opacity", 0x00, NULL);
		clutter_actor_show (CLUTTER_ACTOR (priv->close_button));
	} else {
		/* Fade in the chooser button */
		clutter_actor_show (CLUTTER_ACTOR (priv->chooser_button));
		clutter_actor_animate (
			CLUTTER_ACTOR (priv->chooser_button),
			CLUTTER_EASE_IN_OUT_QUAD, 150,
			"opacity", 0xff, NULL);
	}

	clutter_actor_set_reactive (
		CLUTTER_ACTOR (priv->chooser_button), !preview);

	/* Remove the hover state, which likely got stuck when we clicked it */
	if (!preview)
		mx_stylable_set_style_pseudo_class (
			MX_STYLABLE (priv->chooser_button), NULL);

	g_object_notify (G_OBJECT (picker), "preview-mode");
}

gboolean
e_mail_tab_picker_get_preview_mode (EMailTabPicker *picker)
{
	EMailTabPickerPrivate *priv = picker->priv;
	return priv->preview_mode;
}

void
e_mail_tab_picker_enable_drop (EMailTabPicker *picker, gboolean enable)
{
	EMailTabPickerPrivate *priv = picker->priv;

	if (priv->drop_enabled == enable)
		return;

	priv->drop_enabled = enable;
	if (enable)
		mx_droppable_enable (MX_DROPPABLE (picker));
	else
		mx_droppable_disable (MX_DROPPABLE (picker));

	g_object_notify (G_OBJECT (picker), "enabled");
}