/*
 * Copyright (c) 2012 Petr Koupy
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/** @addtogroup gui
 * @{
 */
/**
 * @file
 */

#include <stdbool.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>

#include <as.h>
#include <stdlib.h>
#include <str.h>

#include <fibril.h>
#include <task.h>
#include <adt/prodcons.h>
#include <adt/list.h>

#include <loc.h>

#include <io/pixel.h>
#include <draw/source.h>
#include <draw/font.h>
#include <draw/drawctx.h>
#include <draw/surface.h>
#include <display.h>

#include "common.h"
#include "connection.h"
#include "widget.h"
#include "window.h"

static sysarg_t border_thickness = 4;
static sysarg_t bevel_thickness = 1;
static sysarg_t header_height = 20;
static sysarg_t header_min_width = 40;
static sysarg_t close_thickness = 20;

static pixel_t color_highlight = PIXEL(255, 255, 255, 255);
static pixel_t color_shadow = PIXEL(255, 85, 85, 85);
static pixel_t color_surface = PIXEL(255, 186, 186, 186);

static pixel_t color_header_focus_highlight = PIXEL(255, 120, 145, 255);
static pixel_t color_header_focus_shadow = PIXEL(255, 40, 48, 89);
static pixel_t color_header_focus_surface = PIXEL(255, 88, 106, 196);

static pixel_t color_header_unfocus_highlight = PIXEL(255, 16, 78, 126);
static pixel_t color_header_unfocus_shadow = PIXEL(255, 5, 26, 42);
static pixel_t color_header_unfocus_surface = PIXEL(255, 12, 57, 92);

static pixel_t color_caption_focus = PIXEL(255, 255, 255, 255);
static pixel_t color_caption_unfocus = PIXEL(255, 207, 207, 207);

static void window_close_event(void *);
static void window_focus_event(void *);
static void window_kbd_event(void *, kbd_event_t *);
static void window_pos_event(void *, pos_event_t *);
static void window_unfocus_event(void *);

static display_wnd_cb_t window_cb = {
	.close_event = window_close_event,
	.focus_event = window_focus_event,
	.kbd_event = window_kbd_event,
	.pos_event = window_pos_event,
	.unfocus_event = window_unfocus_event
};

static void paint_internal(widget_t *widget)
{
	surface_t *surface = window_claim(widget->window);
	if (!surface)
		window_yield(widget->window);

	source_t source;
	source_init(&source);

	drawctx_t drawctx;
	drawctx_init(&drawctx, surface);
	drawctx_set_source(&drawctx, &source);

	/* Window border outer bevel */

	draw_bevel(&drawctx, &source, widget->vpos, widget->hpos,
	    widget->width, widget->height, color_highlight, color_shadow);

	/* Window border surface */

	source_set_color(&source, color_surface);
	drawctx_transfer(&drawctx, widget->hpos + 1, widget->vpos + 1,
	    widget->width - 2, 2);
	drawctx_transfer(&drawctx, widget->hpos + 1, widget->vpos + 1,
	    2, widget->height - 2);
	drawctx_transfer(&drawctx, widget->hpos + 1,
	    widget->vpos + widget->height - 3, widget->width - 2, 2);
	drawctx_transfer(&drawctx, widget->hpos + widget->width - 3,
	    widget->vpos + 1, 2, widget->height - 4);

	/* Window border inner bevel */

	draw_bevel(&drawctx, &source, widget->hpos + 3, widget->vpos + 3,
	    widget->width - 6, widget->height - 6, color_shadow,
	    color_highlight);

	/* Header bevel */

	sysarg_t header_hpos = widget->hpos + border_thickness;
	sysarg_t header_vpos = widget->vpos + border_thickness;
	sysarg_t header_width = widget->width - 2 * border_thickness -
	    close_thickness;

	draw_bevel(&drawctx, &source, header_hpos, header_vpos,
	    header_width, header_height, widget->window->is_focused ?
	    color_header_focus_highlight : color_header_unfocus_highlight,
	    widget->window->is_focused ?
	    color_header_focus_shadow : color_header_unfocus_shadow);

	/* Header surface */

	source_set_color(&source, widget->window->is_focused ?
	    color_header_focus_surface : color_header_unfocus_surface);
	drawctx_transfer(&drawctx, header_hpos + 1, header_vpos + 1,
	    header_width - 2, header_height - 2);

	/* Close button bevel */

	sysarg_t close_hpos = widget->hpos + widget->width -
	    border_thickness - close_thickness;
	sysarg_t close_vpos = widget->vpos + border_thickness;

	draw_bevel(&drawctx, &source, close_hpos, close_vpos,
	    close_thickness, close_thickness, color_highlight, color_shadow);

	/* Close button surface */

	source_set_color(&source, color_surface);
	drawctx_transfer(&drawctx, close_hpos + 1, close_vpos + 1,
	    close_thickness - 2, close_thickness - 2);

	/* Close button icon */

	draw_icon_cross(surface, close_hpos + 3, close_vpos + 3,
	    color_highlight, color_shadow);

	/* Window caption */

	font_t *font;
	errno_t rc = embedded_font_create(&font, 16);
	if (rc != EOK) {
		window_yield(widget->window);
		return;
	}

	drawctx_set_font(&drawctx, font);
	source_set_color(&source, widget->window->is_focused ?
	    color_caption_focus : color_caption_unfocus);

	sysarg_t cpt_width;
	sysarg_t cpt_height;
	font_get_box(font, widget->window->caption, &cpt_width, &cpt_height);

	bool draw_title =
	    (widget->width >= 2 * border_thickness + 2 * bevel_thickness +
	    close_thickness + cpt_width);
	if (draw_title) {
		sysarg_t cpt_x = ((widget->width - cpt_width) / 2) + widget->hpos;
		sysarg_t cpt_y = ((header_height - cpt_height) / 2) +
		    widget->vpos + border_thickness;

		if (widget->window->caption)
			drawctx_print(&drawctx, widget->window->caption, cpt_x, cpt_y);
	}

	font_release(font);
	window_yield(widget->window);
}

static void root_destroy(widget_t *widget)
{
	widget_deinit(widget);
}

static void root_reconfigure(widget_t *widget)
{
	if (widget->window->is_decorated) {
		list_foreach(widget->children, link, widget_t, child) {
			child->rearrange(child,
			    widget->hpos + border_thickness,
			    widget->vpos + border_thickness + header_height,
			    widget->width - 2 * border_thickness,
			    widget->height - 2 * border_thickness - header_height);
		}
	} else {
		list_foreach(widget->children, link, widget_t, child) {
			child->rearrange(child, widget->hpos, widget->vpos,
			    widget->width, widget->height);
		}
	}
}

static void root_rearrange(widget_t *widget, sysarg_t hpos, sysarg_t vpos,
    sysarg_t width, sysarg_t height)
{
	widget_modify(widget, hpos, vpos, width, height);
	if (widget->window->is_decorated) {
		paint_internal(widget);
		list_foreach(widget->children, link, widget_t, child) {
			child->rearrange(child,
			    hpos + border_thickness,
			    vpos + border_thickness + header_height,
			    width - 2 * border_thickness,
			    height - 2 * border_thickness - header_height);
		}
	} else {
		list_foreach(widget->children, link, widget_t, child) {
			child->rearrange(child, hpos, vpos, width, height);
		}
	}
}

static void root_repaint(widget_t *widget)
{
	if (widget->window->is_decorated) {
		paint_internal(widget);
	}
	list_foreach(widget->children, link, widget_t, child) {
		child->repaint(child);
	}
	if (widget->window->is_decorated) {
		window_damage(widget->window);
	}
}

static void root_handle_keyboard_event(widget_t *widget, kbd_event_t event)
{
	if (!list_empty(&widget->children)) {
		widget_t *child = (widget_t *) list_first(&widget->children);
		child->handle_keyboard_event(child, event);
	}
}

static void root_handle_position_event(widget_t *widget, pos_event_t event)
{
	gfx_coord2_t pos;

	if (widget->window->is_decorated) {
		sysarg_t width = widget->width;
		sysarg_t height = widget->height;

		bool btn_left = (event.btn_num == 1) && (event.type == POS_PRESS);
		bool btn_right = (event.btn_num == 2) && (event.type == POS_PRESS);
		bool allowed_button = btn_left || btn_right;

		bool left = (event.hpos < border_thickness);
		bool right = (event.hpos >= width - border_thickness);
		bool top = (event.vpos < border_thickness);
		bool bottom = (event.vpos >= height - border_thickness);
		bool header = (event.hpos >= border_thickness) &&
		    (event.hpos < width - border_thickness) &&
		    (event.vpos >= border_thickness) &&
		    (event.vpos < border_thickness + header_height);
		bool close = (header) &&
		    (event.hpos >= width - border_thickness - close_thickness);

		pos.x = event.hpos;
		pos.y = event.vpos;

		if (top && left && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_top_left, &pos);
		} else if (bottom && left && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_bottom_left, &pos);
		} else if (bottom && right && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_bottom_right, &pos);
		} else if (top && right && allowed_button) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_top_right, &pos);
		} else if (top && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_top, &pos);
		} else if (left && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_bottom, &pos);
		} else if (bottom && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_bottom, &pos);
		} else if (right && btn_left) {
			(void) display_window_resize_req(widget->window->dwindow,
			    display_wr_bottom, &pos);
		} else if (close && btn_left) {
			window_close(widget->window);
		} else if (header && btn_left) {
			(void) display_window_move_req(widget->window->dwindow,
			    &pos);
		} else {
			list_foreach(widget->children, link, widget_t, child) {
				child->handle_position_event(child, event);
			}
		}
	} else {
		list_foreach(widget->children, link, widget_t, child) {
			child->handle_position_event(child, event);
		}
	}
}

static void deliver_keyboard_event(window_t *win, kbd_event_t event)
{
	if (win->focus) {
		win->focus->handle_keyboard_event(win->focus, event);
	} else {
		win->root.handle_keyboard_event(&win->root, event);
	}
}

static void deliver_position_event(window_t *win, pos_event_t event)
{
	if (win->grab) {
		win->grab->handle_position_event(win->grab, event);
	} else {
		win->root.handle_position_event(&win->root, event);
	}
}

static void handle_signal_event(window_t *win, signal_event_t event)
{
	widget_t *widget = (widget_t *) event.object;
	slot_t slot = (slot_t) event.slot;
	void *data = (void *) event.argument;

	slot(widget, data);

	free(data);
}

static void handle_resize(window_t *win, sysarg_t offset_x, sysarg_t offset_y,
    sysarg_t width, sysarg_t height, window_placement_flags_t placement_flags)
{
	gfx_bitmap_params_t params;
	gfx_bitmap_alloc_t alloc;
	gfx_bitmap_t *new_bitmap = NULL;
	gfx_coord2_t offs;
	gfx_rect_t nrect;
	errno_t rc;

	if (width < 2 * border_thickness + header_min_width) {
		//win_damage(win->osess, 0, 0, 0, 0);
		return;
	}

	if (height < 2 * border_thickness + header_height) {
		//win_damage(win->osess, 0, 0, 0, 0);
		return;
	}

	/* Allocate resources for new surface. */
	surface_t *new_surface = surface_create(width, height, NULL,
	    SURFACE_FLAG_SHARED);
	if (!new_surface)
		return;

	gfx_bitmap_params_init(&params);
	params.rect.p0.x = 0;
	params.rect.p0.y = 0;
	params.rect.p1.x = width;
	params.rect.p1.y = height;

	alloc.pitch = width * sizeof(uint32_t);
	alloc.off0 = 0;
	alloc.pixels = surface_direct_access(new_surface);

	rc = gfx_bitmap_create(win->gc, &params, &alloc, &new_bitmap);
	if (rc != EOK) {
		surface_destroy(new_surface);
		return;
	}

	/* Switch new and old surface. */
	fibril_mutex_lock(&win->guard);
	surface_t *old_surface = win->surface;
	gfx_bitmap_t *old_bitmap = win->bitmap;
	win->surface = new_surface;
	win->bitmap = new_bitmap;
	fibril_mutex_unlock(&win->guard);

	/*
	 * Let all widgets in the tree alter their position and size.
	 * Widgets might also paint themselves onto the new surface.
	 */
	win->root.rearrange(&win->root, 0, 0, width, height);

	fibril_mutex_lock(&win->guard);
	surface_reset_damaged_region(win->surface);
	fibril_mutex_unlock(&win->guard);

	/* Resize the display window. */
	offs.x = offset_x;
	offs.y = offset_y;
	nrect.p0.x = 0;
	nrect.p0.y = 0;
	nrect.p1.x = width;
	nrect.p1.y = height;

	rc = display_window_resize(win->dwindow, &offs, &nrect);
	if (rc != EOK) {
		/* Rollback to old surface. Reverse all changes. */

		sysarg_t old_width = 0;
		sysarg_t old_height = 0;
		if (old_surface)
			surface_get_resolution(old_surface, &old_width, &old_height);

		fibril_mutex_lock(&win->guard);
		new_surface = win->surface;
		win->surface = old_surface;
		win->bitmap = old_bitmap;
		fibril_mutex_unlock(&win->guard);

		win->root.rearrange(&win->root, 0, 0, old_width, old_height);

		if (win->surface) {
			fibril_mutex_lock(&win->guard);
			surface_reset_damaged_region(win->surface);
			fibril_mutex_unlock(&win->guard);
		}

		surface_destroy(new_surface);
	} else {
		if (old_bitmap != NULL)
			gfx_bitmap_destroy(old_bitmap);
		/* Deallocate old surface. */
		if (old_surface)
			surface_destroy(old_surface);

		(void) gfx_bitmap_render(win->bitmap, NULL, NULL);
	}
}

static void handle_refresh(window_t *win)
{
	win->root.repaint(&win->root);
}

static void handle_damage(window_t *win)
{
	sysarg_t x, y, width, height;
	gfx_rect_t rect;
	fibril_mutex_lock(&win->guard);
	surface_get_damaged_region(win->surface, &x, &y, &width, &height);
	surface_reset_damaged_region(win->surface);
	fibril_mutex_unlock(&win->guard);

	if (width > 0 && height > 0) {
		/* Notify compositor. */
		//win_damage(win->osess, x, y, width, height);

		rect.p0.x = x;
		rect.p0.y = y;
		rect.p1.x = x + width;
		rect.p1.y = y + height;

		if (win->bitmap != NULL)
			(void) gfx_bitmap_render(win->bitmap, &rect, NULL);
	}
}

static void destroy_children(widget_t *widget)
{
	/* Recursively destroy widget tree in bottom-top order. */
	while (!list_empty(&widget->children)) {
		widget_t *child =
		    list_get_instance(list_first(&widget->children), widget_t, link);
		destroy_children(child);
		child->destroy(child);
	}
}

static void handle_close(window_t *win)
{
	destroy_children(&win->root);
	win->root.destroy(&win->root);
	win->grab = NULL;
	win->focus = NULL;

	display_window_destroy(win->dwindow);
	display_close(win->display);

	while (!list_empty(&win->events.list)) {
		window_event_t *event = (window_event_t *) list_first(&win->events.list);
		list_remove(&event->link);
		free(event);
	}

	if (win->surface) {
		surface_destroy(win->surface);
	}

	free(win->caption);

	free(win);
}

/* Window event loop. Runs in own dedicated fibril. */
static errno_t event_loop(void *arg)
{
	bool is_main = false;
	bool terminate = false;
	window_t *win = (window_t *) arg;

	while (true) {
		window_event_t *event = (window_event_t *) prodcons_consume(&win->events);

		switch (event->type) {
		case ET_KEYBOARD_EVENT:
			deliver_keyboard_event(win, event->data.kbd);
			break;
		case ET_POSITION_EVENT:
			deliver_position_event(win, event->data.pos);
			break;
		case ET_SIGNAL_EVENT:
			handle_signal_event(win, event->data.signal);
			break;
		case ET_WINDOW_RESIZE:
			handle_resize(win, event->data.resize.offset_x,
			    event->data.resize.offset_y, event->data.resize.width,
			    event->data.resize.height, event->data.resize.placement_flags);
			break;
		case ET_WINDOW_FOCUS:
			if (!win->is_focused) {
				win->is_focused = true;
				handle_refresh(win);
			}
			break;
		case ET_WINDOW_UNFOCUS:
			if (win->is_focused) {
				win->is_focused = false;
				handle_refresh(win);
			}
			break;
		case ET_WINDOW_REFRESH:
			handle_refresh(win);
			break;
		case ET_WINDOW_DAMAGE:
			handle_damage(win);
			break;
		case ET_WINDOW_CLOSE:
			is_main = win->is_main;
			handle_close(win);
			terminate = true;
			break;
		default:
			break;
		}

		free(event);
		if (terminate) {
			break;
		}
	}

	if (is_main) {
		exit(0); /* Terminate whole task. */
	}
	return 0;
}

window_t *window_open(const char *winreg, const void *data,
    window_flags_t flags, const char *caption)
{
	display_wnd_params_t wparams;

	window_t *win = (window_t *) calloc(1, sizeof(window_t));
	if (!win)
		return NULL;

	win->is_main = flags & WINDOW_MAIN;
	win->is_decorated = flags & WINDOW_DECORATED;
	win->is_focused = true;
	prodcons_initialize(&win->events);
	fibril_mutex_initialize(&win->guard);

	widget_init(&win->root, NULL, data);
	win->root.window = win;
	win->root.destroy = root_destroy;
	win->root.reconfigure = root_reconfigure;
	win->root.rearrange = root_rearrange;
	win->root.repaint = root_repaint;
	win->root.handle_keyboard_event = root_handle_keyboard_event;
	win->root.handle_position_event = root_handle_position_event;
	win->grab = NULL;
	win->focus = NULL;

	/* Allocate resources for new surface. */
	win->surface = surface_create(100, 100, NULL, SURFACE_FLAG_SHARED);
	if (win->surface == NULL) {
		free(win);
		return NULL;
	}

	errno_t rc = display_open(winreg, &win->display);
	if (rc != EOK) {
		surface_destroy(win->surface);
		free(win);
		return NULL;
	}

	/* Window dimensions are not know at this time */
	display_wnd_params_init(&wparams);
	wparams.rect.p0.x = 0;
	wparams.rect.p0.y = 0;
	wparams.rect.p1.x = 100;
	wparams.rect.p1.y = 100;

	rc = display_window_create(win->display, &wparams, &window_cb,
	    (void *) win, &win->dwindow);
	if (rc != EOK) {
		display_close(win->display);
		surface_destroy(win->surface);
		free(win);
		return NULL;
	}

	rc = display_window_get_gc(win->dwindow, &win->gc);
	if (rc != EOK) {
		display_window_destroy(win->dwindow);
		display_close(win->display);
		surface_destroy(win->surface);
		free(win);
		return NULL;
	}

	if (caption == NULL)
		win->caption = NULL;
	else
		win->caption = str_dup(caption);

	return win;
}

void window_resize(window_t *win, sysarg_t offset_x, sysarg_t offset_y,
    sysarg_t width, sysarg_t height, window_placement_flags_t placement_flags)
{
	window_event_t *event = (window_event_t *) malloc(sizeof(window_event_t));
	if (event) {
		link_initialize(&event->link);
		event->type = ET_WINDOW_RESIZE;
		event->data.resize.offset_x = offset_x;
		event->data.resize.offset_y = offset_y;
		event->data.resize.width = width;
		event->data.resize.height = height;
		event->data.resize.placement_flags = placement_flags;
		prodcons_produce(&win->events, &event->link);
	}
}

errno_t window_set_caption(window_t *win, const char *caption)
{
	char *cap;

	if (caption == NULL) {
		win->caption = NULL;
	} else {
		cap = str_dup(caption);
		if (cap == NULL)
			return ENOMEM;
		free(win->caption);
		win->caption = cap;
	}

	win->is_focused = false;
	handle_refresh(win);

	return EOK;
}

void window_refresh(window_t *win)
{
	window_event_t *event = (window_event_t *) malloc(sizeof(window_event_t));
	if (event) {
		link_initialize(&event->link);
		event->type = ET_WINDOW_REFRESH;
		prodcons_produce(&win->events, &event->link);
	}
}

void window_damage(window_t *win)
{
	window_event_t *event = (window_event_t *) malloc(sizeof(window_event_t));
	if (event) {
		link_initialize(&event->link);
		event->type = ET_WINDOW_DAMAGE;
		prodcons_produce(&win->events, &event->link);
	}
}

widget_t *window_root(window_t *win)
{
	return &win->root;
}

void window_exec(window_t *win)
{
	fid_t ev_fid = fibril_create(event_loop, win);
	if (!ev_fid) {
		return;
	}
	fibril_add_ready(ev_fid);
}

surface_t *window_claim(window_t *win)
{
	fibril_mutex_lock(&win->guard);
	return win->surface;
}

void window_yield(window_t *win)
{
	fibril_mutex_unlock(&win->guard);
}

void window_close(window_t *win)
{
	window_event_t *event;

	event = (window_event_t *) calloc(1, sizeof(window_event_t));
	if (event == NULL)
		return;

	link_initialize(&event->link);
	event->type = ET_WINDOW_CLOSE;
	prodcons_produce(&win->events, &event->link);
}

static void window_close_event(void *arg)
{
	window_t *win = (window_t *) arg;

	window_close(win);
}

static void window_focus_event(void *arg)
{
	window_t *win = (window_t *) arg;
	window_event_t *event;

	event = (window_event_t *) calloc(1, sizeof(window_event_t));
	if (event == NULL)
		return;

	link_initialize(&event->link);
	event->type = ET_WINDOW_FOCUS;
	prodcons_produce(&win->events, &event->link);
}

static void window_kbd_event(void *arg, kbd_event_t *kevent)
{
	window_t *win = (window_t *) arg;
	window_event_t *event;

	event = (window_event_t *) calloc(1, sizeof(window_event_t));
	if (event == NULL)
		return;

	link_initialize(&event->link);
	event->type = ET_KEYBOARD_EVENT;
	event->data.kbd = *kevent;
	prodcons_produce(&win->events, &event->link);
}

static void window_pos_event(void *arg, pos_event_t *pevent)
{
	window_t *win = (window_t *) arg;
	window_event_t *event;

	event = (window_event_t *) calloc(1, sizeof(window_event_t));
	if (event == NULL)
		return;

	link_initialize(&event->link);
	event->type = ET_POSITION_EVENT;
	event->data.pos = *pevent;
	prodcons_produce(&win->events, &event->link);
}

static void window_unfocus_event(void *arg)
{
	window_t *win = (window_t *) arg;
	window_event_t *event;

	event = (window_event_t *) calloc(1, sizeof(window_event_t));
	if (event == NULL)
		return;

	link_initialize(&event->link);
	event->type = ET_WINDOW_UNFOCUS;
	prodcons_produce(&win->events, &event->link);
}

/** @}
 */