#include "scrollbar.h"
#include "config.h"

static void e_scrollbar_recalc(E_Scrollbar *sb);
static void e_scrollbar_setup_bits(E_Scrollbar *sb);
static void e_sb_base_down_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh);
static void e_sb_base_up_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh);
static void e_sb_bar_down_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh);
static void e_sb_bar_up_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh);
static void e_sb_bar_move_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh);


static void
e_scrollbar_recalc(E_Scrollbar *sb)
{
   if (sb->base)
     {
	double x, y, w, h;
	
	ebits_get_bit_geometry(sb->base, "Trough_Area",
			       &x, &y, &w, &h);
	sb->bar_area.x = x + sb->x;
	sb->bar_area.y = y + sb->y;
	sb->bar_area.w = w;
	sb->bar_area.h = h;
	if (sb->direction)
	  {
	     sb->bar_pos.w = sb->bar_area.w;
	     sb->bar_pos.h = (sb->bar_area.h * sb->range) / sb->max;
	     sb->bar_pos.x = sb->bar_area.x;
	     sb->bar_pos.y = sb->bar_area.y + 
	       ((sb->bar_area.h * sb->val) / (sb->max - 1));
	  }
	else
	  {
	     sb->bar_pos.w = (sb->bar_area.w * sb->range) / sb->max;
	     sb->bar_pos.h = sb->bar_area.h;
	     sb->bar_pos.x = sb->bar_area.x + 
	       ((sb->bar_area.w * sb->val) / (sb->max - 1));
	     sb->bar_pos.y = sb->bar_area.y;
	  }
     }
   else
     {   
	sb->bar_area.x = sb->x;
	sb->bar_area.y = sb->y;
	sb->bar_area.w = sb->w;
	sb->bar_area.h = sb->h;
	sb->bar_pos.x = sb->bar_area.x;
	sb->bar_pos.y = sb->bar_area.y;
	sb->bar_pos.w = sb->bar_area.w;
	sb->bar_pos.h = sb->bar_area.h;
     }
   UN(sb);
}

static void
e_scrollbar_setup_bits(E_Scrollbar *sb)
{
   char buf[4096];
   
   if (sb->direction == 1)
     {
	sprintf(buf, "%s/scroll_base_v.bits.db", e_config_get("scrollbars"));
	sb->base = ebits_load(buf);
	sprintf(buf, "%s/scroll_bar_v.bits.db", e_config_get("scrollbars"));
	sb->bar = ebits_load(buf);
     }
   else
     {
	sprintf(buf, "%s/scroll_base_h.bits.db", e_config_get("scrollbars"));
	sb->base = ebits_load(buf);
	sprintf(buf, "%s/scroll_bar_h.bits.db", e_config_get("scrollbars"));
	sb->bar = ebits_load(buf);
     }
   if (sb->base)
     {
	ebits_add_to_evas(sb->base, sb->evas);
	ebits_set_bit_callback(sb->base, "Scrollbar_Trough", CALLBACK_MOUSE_DOWN, e_sb_base_down_cb, sb);
	ebits_set_bit_callback(sb->base, "Scrollbar_Trough", CALLBACK_MOUSE_UP, e_sb_base_up_cb, sb);
	ebits_set_bit_callback(sb->base, "Scrollbar_Arrow1", CALLBACK_MOUSE_DOWN, e_sb_base_down_cb, sb);
	ebits_set_bit_callback(sb->base, "Scrollbar_Arrow1", CALLBACK_MOUSE_UP, e_sb_base_up_cb, sb);
	ebits_set_bit_callback(sb->base, "Scrollbar_Arrow2", CALLBACK_MOUSE_DOWN, e_sb_base_down_cb, sb);
	ebits_set_bit_callback(sb->base, "Scrollbar_Arrow2", CALLBACK_MOUSE_UP, e_sb_base_up_cb, sb);
     }
   if (sb->bar)
     {
	ebits_add_to_evas(sb->bar, sb->evas);
	ebits_set_bit_callback(sb->bar, "Scrollbar_Bar", CALLBACK_MOUSE_DOWN, e_sb_bar_down_cb, sb);
	ebits_set_bit_callback(sb->bar, "Scrollbar_Bar", CALLBACK_MOUSE_UP, e_sb_bar_up_cb, sb);
	ebits_set_bit_callback(sb->bar, "Scrollbar_Bar", CALLBACK_MOUSE_MOVE, e_sb_bar_move_cb, sb);
     }
}

static void
e_sb_base_down_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh)
{
   E_Scrollbar *sb;
   double prev;
   
   sb = data;
   if (sb->mouse_down) return;
   sb->mouse_down = bt;
   if (!class) return;
   prev = sb->val;
   if (!strcmp(class, "Scrollbar_Arrow1"))
     {
	sb->val -= 16;
	if (sb->val < 0) sb->val = 0;
     }
   else if (!strcmp(class, "Scrollbar_Arrow2"))
     {
	sb->val += 16;
	if ((sb->val + sb->range) > sb->max) sb->val = sb->max - sb->range;
     }
   else if (!strcmp(class, "Scrollbar_Trough"))
     {
     }
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
   if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
   if (prev != sb->val)
     {
	if (sb->func_change) sb->func_change(sb->func_data, sb, sb->val);
     }
}

static void
e_sb_base_up_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh)
{
   E_Scrollbar *sb;
   
   sb = data;
   if (bt == sb->mouse_down) sb->mouse_down = 0;
   else return;
   if (!class) return;
   if (!strcmp(class, "Scrollbar_Arrow1"))
     {
     }
   else if (!strcmp(class, "Scrollbar_Arrow2"))
     {
     }
   else if (!strcmp(class, "Scrollbar_Trough"))
     {
     }
}

static void
e_sb_bar_down_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh)
{
   E_Scrollbar *sb;
   
   sb = data;
   if (sb->mouse_down) return;
   sb->mouse_down = bt;
   sb->down_x = x;
   sb->down_y = y;
   sb->mouse_x = x;
   sb->mouse_y = y;
}

static void
e_sb_bar_up_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh)
{
   E_Scrollbar *sb;
   
   sb = data;
   if (bt == sb->mouse_down) sb->mouse_down = 0;
   else return;
}

static void
e_sb_bar_move_cb(void *data, Ebits_Object o, char *class, int bt, int x, int y, int ox, int oy, int ow, int oh)
{
   E_Scrollbar *sb;
   int dx, dy;   
   double prev;
   
   sb = data;
   if (!sb->mouse_down) return;
   dx = x - sb->mouse_x;
   dy = y - sb->mouse_y;
   sb->mouse_x = x;
   sb->mouse_y = y;
   prev = sb->val;
   if (sb->direction)
     {
	if (sb->bar_area.h > sb->bar_pos.h) sb->val += 
	  ((double)dy * sb->max) / sb->bar_area.h;
	else sb->val = 0;
     }
   else
     {
	if (sb->bar_area.w > sb->bar_pos.w) sb->val +=
	  ((double)dx * sb->max) / sb->bar_area.w;
	else sb->val = 0;
     }
   if (sb->val < 0) sb->val = 0;
   if ((sb->val + sb->range) > sb->max) sb->val = sb->max - sb->range;
   if (prev != sb->val)
     {
	e_scrollbar_recalc(sb);
	if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
	if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);   
	if (sb->func_change) sb->func_change(sb->func_data, sb, sb->val);
     }
}

E_Scrollbar *
e_scrollbar_new(void)
{
   E_Scrollbar *sb;
   
   sb = NEW(E_Scrollbar, 1);
   ZERO(sb, E_Scrollbar, 1);
   sb->range = 1.0;
   sb->max = 1.0;
   sb->w = 12;
   sb->h = 64;
   return sb;
}

void
e_scrollbar_free(E_Scrollbar *sb)
{
   if (sb->evas)
     {
	if (sb->base) ebits_free(sb->base);
	if (sb->bar) ebits_free(sb->bar);
     }
   FREE(sb);
}

void
e_scrollbar_add_to_evas(E_Scrollbar *sb, Evas evas)
{
   if (sb->evas)
     {
	if (sb->base) ebits_free(sb->base);
	if (sb->bar) ebits_free(sb->bar);
     }
   sb->evas = evas;
   if (sb->evas)
     {
	e_scrollbar_setup_bits(sb);
	if (sb->base) ebits_set_layer(sb->base, sb->layer);
	if (sb->bar) ebits_set_layer(sb->bar, sb->layer);
	if (sb->base) ebits_move(sb->base, sb->x, sb->y);
	if (sb->base) ebits_resize(sb->base, sb->w, sb->h);
	e_scrollbar_recalc(sb);
	if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
	if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
	if (sb->visible)
	  {
	     if (sb->base) ebits_show(sb->base);
	     if (sb->bar) ebits_show(sb->bar);
	  }
     }
}

void
e_scrollbar_show(E_Scrollbar *sb)
{
   if (sb->visible) return;
   sb->visible = 1;
   if (sb->base) ebits_show(sb->base);
   if (sb->bar) ebits_show(sb->bar);
}

void
e_scrollbar_hide(E_Scrollbar *sb)
{
   if (!sb->visible) return;
   sb->visible = 0;
   if (sb->base) ebits_hide(sb->base);
   if (sb->bar) ebits_hide(sb->bar);
}

void
e_scrollbar_raise(E_Scrollbar *sb)
{
   if (sb->base) ebits_raise(sb->base);
   if (sb->bar) ebits_raise(sb->bar);
}

void
e_scrollbar_lower(E_Scrollbar *sb)
{
   if (sb->bar) ebits_lower(sb->bar);
   if (sb->base) ebits_lower(sb->base);
}

void
e_scrollbar_set_layer(E_Scrollbar *sb, int l)
{
   if (l == sb->layer) return;
   sb->layer = l;
   if (sb->base) ebits_set_layer(sb->base, sb->layer);
   if (sb->bar) ebits_set_layer(sb->bar, sb->layer);
}

void
e_scrollbar_set_direction(E_Scrollbar *sb, int d)
{
   if (d == sb->direction) return;
   sb->direction = d;
   if (sb->evas)
     {
	Evas evas;
	
	if (sb->base) ebits_free(sb->base);
	if (sb->bar) ebits_free(sb->bar);
	evas = sb->evas;
	sb->evas = NULL;
	e_scrollbar_add_to_evas(sb, evas);
     }
 }

void
e_scrollbar_move(E_Scrollbar *sb, double x, double y)
{
   if ((x == sb->x) && (y == sb->y)) return;
   sb->x = x;
   sb->y = y;
   if (sb->base) ebits_move(sb->base, sb->x, sb->y);
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
}

void
e_scrollbar_resize(E_Scrollbar *sb, double w, double h)
{
   if ((w == sb->w) && (h == sb->h)) return;
   sb->w = w;
   sb->h = h;
   if (sb->base) ebits_resize(sb->base, sb->w, sb->h);
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
   if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
}

void
e_scrollbar_set_change_func(E_Scrollbar *sb,
			    void (*func_change) (void *_data, E_Scrollbar *sb, double val),
			    void *data)
{
   sb->func_change = func_change;
   sb->func_data = data;
}

void
e_scrollbar_set_value(E_Scrollbar *sb, double val)
{
   if (sb->val == val) return;
   if (val > sb->max - sb->range) val = sb->max - sb->range;
   sb->val = val;
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
   if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
   if (sb->func_change) sb->func_change(sb->func_data, sb, sb->val);
}

void
e_scrollbar_set_range(E_Scrollbar *sb, double range)
{
   if (sb->range == range) return;
   sb->range = range;
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
   if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
}

void
e_scrollbar_set_max(E_Scrollbar *sb, double max)
{
   if (sb->max == max) return;
   sb->max = max;
   e_scrollbar_recalc(sb);
   if (sb->bar) ebits_move(sb->bar, sb->bar_pos.x, sb->bar_pos.y);
   if (sb->bar) ebits_resize(sb->bar, sb->bar_pos.w, sb->bar_pos.h);
}

double
e_scrollbar_get_value(E_Scrollbar *sb)
{
   return sb->val;
}

double
e_scrollbar_get_range(E_Scrollbar *sb)
{
   return sb->range;
}

double
e_scrollbar_get_max(E_Scrollbar *sb)
{
   return sb->max;
}

void
e_scrollbar_get_geometry(E_Scrollbar *sb, double *x, double *y, double *w, double *h)
{
   if (x) *x = sb->x;
   if (y) *y = sb->y;
   if (w) *w = sb->w;
   if (h) *h = sb->h;
}