/*
 * TTK Mouse Emulation Widget
 * Copyright (C) 2005 Jonathan Bettencourt (jonrelay)
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#include <stdio.h>
#include "ttk.h"
#include "izilla.h"

extern void draw_widget_under_mouse();

typedef struct ttk_mousedata {
	int x;
	int y;
	int scrollaxis;
	ttk_surface cursor;
	int hidecursor;
	void (*draw)(TWidget * wid, ttk_surface srf);
	void (*mouseDown)(TWidget * wid, int x, int y);
	void (*mouseStillDown)(TWidget * wid, int x, int y);
	void (*mouseUp)(TWidget * wid, int x, int y);
	void (*mouseMove)(TWidget * wid, int x, int y);
	int mouseDownHappened;
} ttk_mousedata;

ttk_mousedata * ttk_new_mousedata_with(
	void (*d)(TWidget * wid, ttk_surface srf),
	void (*md)(TWidget * wid, int x, int y),
	void (*msd)(TWidget * wid, int x, int y),
	void (*mu)(TWidget * wid, int x, int y),
	void (*mm)(TWidget * wid, int x, int y)
)
{
	ttk_mousedata * m = (ttk_mousedata *)calloc(1, sizeof(ttk_mousedata));
	m->draw = d;
	m->mouseDown = md;
	m->mouseStillDown = msd;
	m->mouseUp = mu;
	m->mouseMove = mm;
	return m;
}

ttk_mousedata * ttk_new_mousedata()
{
	ttk_mousedata * m = (ttk_mousedata *)calloc(1, sizeof(ttk_mousedata));
	return m;
}

void ttk_free_mousedata(ttk_mousedata * m)
{
	if (m) free(m);
}

void ttk_mouse_draw(TWidget * wid, ttk_surface srf)
{
	ttk_mousedata * m = (ttk_mousedata *)wid->data;
	int cx = wid->x + m->x - 16;
	int cy = wid->y + m->y - 16;
	draw_widget_under_mouse();
	if (m->draw) {
		(m->draw)(wid, srf);
	}
	if (m->cursor && !m->hidecursor) {
		ttk_blit_image(m->cursor, srf, cx, cy);
	}
}

int ttk_mouse_scroll(TWidget * wid, int dir)
{
	ttk_mousedata * m = (ttk_mousedata *)wid->data;
	
	TTK_SCROLLMOD (dir,4);
	TTK_SCROLL_ACCEL (dir,10,50); /* TODO: Tune these constants */
	
	if (!m->scrollaxis) {
		m->x += dir;
		if (m->x < 0) m->x = 0;
		if (m->x >= wid->w) m->x = wid->w-1;
	} else {
		m->y += dir;
		if (m->y < 0) m->y = 0;
		if (m->y >= wid->h) m->y = wid->h-1;
	}
	if (m->mouseMove) {
		(m->mouseMove)(wid, m->x, m->y);
	}
	wid->dirty = 1;
	return 0;
}

int ttk_mouse_up(TWidget * wid, int btn, int t)
{
	ttk_mousedata * m = (ttk_mousedata *)wid->data;
	if (ttk_get_podversion() & TTK_POD_3G) {
		if (btn != TTK_BUTTON_PLAY && btn != TTK_BUTTON_MENU) return TTK_EV_UNUSED;
	} else {
		if (btn != TTK_BUTTON_ACTION) return TTK_EV_UNUSED;
	}
	m->mouseDownHappened = 0;
	if (m->mouseUp) {
		(m->mouseUp)(wid, m->x, m->y);
	}
	return TTK_EV_CLICK;
}

int ttk_mouse_down(TWidget * wid, int btn)
{
	ttk_mousedata * m = (ttk_mousedata *)wid->data;
	if (ttk_get_podversion() & TTK_POD_3G) {
		switch (btn) {
		case TTK_BUTTON_ACTION:
			m->scrollaxis = !m->scrollaxis;
			break;
		case TTK_BUTTON_PREVIOUS:
			m->scrollaxis = 0;
			break;
		case TTK_BUTTON_NEXT:
			m->scrollaxis = 1;
			break;
		case TTK_BUTTON_PLAY:
		case TTK_BUTTON_MENU:
			if (m->mouseDownHappened) {
				if (m->mouseStillDown) {
					(m->mouseStillDown)(wid, m->x, m->y);
				}
			} else {
				m->mouseDownHappened = 1;
				if (m->mouseDown) {
					(m->mouseDown)(wid, m->x, m->y);
				}
			}
			break;
		default:
			return TTK_EV_UNUSED;
			break;
		}
		return TTK_EV_CLICK;
	} else {
		switch (btn) {
		case TTK_BUTTON_PREVIOUS:
			m->x--;
			if (m->x < 0) m->x = 0;
			m->scrollaxis = 0;
			break;
		case TTK_BUTTON_NEXT:
			m->x++;
			if (m->x >= wid->w) m->x = wid->w-1;
			m->scrollaxis = 0;
			break;
		case TTK_BUTTON_MENU:
			m->y--;
			if (m->y < 0) m->y = 0;
			m->scrollaxis = 1;
			break;
		case TTK_BUTTON_PLAY:
			m->y++;
			if (m->y >= wid->h) m->y = wid->h-1;
			m->scrollaxis = 1;
			break;
		case TTK_BUTTON_ACTION:
			if (m->mouseDownHappened) {
				if (m->mouseStillDown) {
					(m->mouseStillDown)(wid, m->x, m->y);
				}
			} else {
				m->mouseDownHappened = 1;
				if (m->mouseDown) {
					(m->mouseDown)(wid, m->x, m->y);
				}
			}
			return TTK_EV_CLICK;
			break;
		default:
			return TTK_EV_UNUSED;
			break;
		}
		if (m->mouseMove) {
			(m->mouseMove)(wid, m->x, m->y);
		}
		wid->dirty = 1;
		return TTK_EV_CLICK;
	}
}

void ttk_mouse_destroy(TWidget * wid)
{
	ttk_mousedata * m = (ttk_mousedata *)wid->data;
	ttk_free_mousedata(m);
}

TWidget * ttk_new_mouse_widget_with(int x, int y, int w, int h, ttk_surface cursor,
	void (*d)(TWidget * wid, ttk_surface srf),
	void (*md)(TWidget * wid, int x, int y),
	void (*msd)(TWidget * wid, int x, int y),
	void (*mu)(TWidget * wid, int x, int y),
	void (*mm)(TWidget * wid, int x, int y)
)
{
	ttk_mousedata * m = ttk_new_mousedata_with(d, md, msd, mu, mm);
	TWidget * wid = ttk_new_widget(x, y);
	wid->w = w;
	wid->h = h;
	m->cursor = cursor;
	wid->name = "mouse";
	wid->data = (void *)m;
	wid->draw = ttk_mouse_draw;
	wid->down = ttk_mouse_down;
	wid->button = ttk_mouse_up;
	wid->scroll = ttk_mouse_scroll;
	wid->destroy = ttk_mouse_destroy;
	wid->keyrepeat = 1;
	wid->focusable = 1;
	return wid;
}

TWidget * ttk_new_mouse_widget(int x, int y, int w, int h, ttk_surface cursor)
{
	ttk_mousedata * m = ttk_new_mousedata();
	TWidget * wid = ttk_new_widget(x, y);
	wid->w = ttk_screen->w;
	wid->h = ttk_screen->h;
	m->cursor = cursor;
	wid->name = "mouse";
	wid->data = (void *)m;
	wid->draw = ttk_mouse_draw;
	wid->down = ttk_mouse_down;
	wid->button = ttk_mouse_up;
	wid->scroll = ttk_mouse_scroll;
	wid->destroy = ttk_mouse_destroy;
	wid->keyrepeat = 1;
	wid->focusable = 1;
	return wid;
}

void draw_widget_under_mouse()
{
	TWidget * wid;
	wid = get_widget_under_mouse();
	if(wid!=NULL) wid->dirty++;
}