#include "Evas_private.h"
#include "Evas.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include "evas_gl_routines.h"
#include "evas_imlib_routines.h"
#include "evas_image_routines.h"
#include "evas_x11_routines.h"
#include "evas_render_routines.h"

static void
_evas_free_text(Evas_Object o)
{
   Evas_Object_Text oo;
   
   IF_OBJ(o, OBJECT_TEXT) return;
   oo = o;
   if (oo->current.text) free(oo->current.text);
   if (oo->current.font) free(oo->current.font);
   free(o);
}

static void
_evas_free_text_renderer_data(Evas e, Evas_Object o)
{
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	if (o->renderer_data.method[e->current.render_method])
	  __evas_imlib_text_font_free((void *)o->renderer_data.method[e->current.render_method]);
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	if (o->renderer_data.method[e->current.render_method])
	  __evas_x11_text_font_free((void *)o->renderer_data.method[e->current.render_method]);
	break;
     case RENDER_METHOD_3D_HARDWARE:
	if (o->renderer_data.method[e->current.render_method])
	  __evas_gl_text_font_free((void *)o->renderer_data.method[e->current.render_method]);
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	if (o->renderer_data.method[e->current.render_method])
	  __evas_render_text_font_free((void *)o->renderer_data.method[e->current.render_method]);
	break;
     case RENDER_METHOD_IMAGE:
	if (o->renderer_data.method[e->current.render_method])
	  __evas_image_text_font_free((void *)o->renderer_data.method[e->current.render_method]);
	break;
     default:
	break;
     }
   o->renderer_data.method[e->current.render_method] = NULL;
}

Evas_Object
evas_add_text(Evas e, char *font, int size, char *text)
{
   Evas_Object_Text oo;
   Evas_Object_Any   o;
   Evas_List         l;
   Evas_Layer        layer;
   
   if (!e) return NULL;
   o = oo = malloc(sizeof(struct _Evas_Object_Text));
   memset(o, 0, sizeof(struct _Evas_Object_Text));
   o->type = OBJECT_TEXT;
   o->object_free = _evas_free_text;
   o->object_renderer_data_free = _evas_free_text_renderer_data;

   oo->current.text = malloc(strlen(text) + 1);
   strcpy(oo->current.text, text);
   oo->current.font = malloc(strlen(font) + 1);
   strcpy(oo->current.font, font);
   oo->current.size = size;
   
     {
	switch (e->current.render_method)
	  {
	  case RENDER_METHOD_ALPHA_SOFTWARE:
	       {
		  Evas_Imlib_Font *fn;
		  
		  fn = __evas_imlib_text_font_new (e->current.display, 
						   oo->current.font, 
						   oo->current.size);
		  if (fn)
		    {
		       __evas_imlib_text_get_size(fn, oo->current.text, 
						  &oo->current.string.w, 
						  &oo->current.string.h);
		       __evas_imlib_text_font_free(fn);
		    }
	       }
	     break;
	  case RENDER_METHOD_BASIC_HARDWARE:
	       {
		  Evas_X11_Font *fn;
		  
		  fn = __evas_x11_text_font_new (e->current.display, 
						   oo->current.font, 
						   oo->current.size);
		  if (fn)
		    {
		       __evas_x11_text_get_size(fn, oo->current.text, 
						  &oo->current.string.w, 
						  &oo->current.string.h);
		       __evas_x11_text_font_free(fn);
		    }
	       }
	     break;
	  case RENDER_METHOD_3D_HARDWARE:
	       {
		  Evas_GL_Font *fn;
		  
		  fn = __evas_gl_text_font_new (e->current.display, 
						oo->current.font, 
						oo->current.size);
		  if (fn)
		    {
		       __evas_gl_text_get_size(fn, oo->current.text, 
					       &oo->current.string.w, 
					       &oo->current.string.h);
		       __evas_gl_text_font_free(fn);
		    }
	       }
	     break;
	  case RENDER_METHOD_ALPHA_HARDWARE:
	       {
		  Evas_Render_Font *fn;
		  
		  fn = __evas_render_text_font_new (e->current.display, 
						oo->current.font, 
						oo->current.size);
		  if (fn)
		    {
		       __evas_render_text_get_size(fn, oo->current.text, 
					       &oo->current.string.w, 
					       &oo->current.string.h);
		       __evas_render_text_font_free(fn);
		    }
	       }
	     break;
	  case RENDER_METHOD_IMAGE:
	       {
		  Evas_Image_Font *fn;
		  
		  fn = __evas_image_text_font_new (e->current.display, 
						   oo->current.font, 
						   oo->current.size);
		  if (fn)
		    {
		       __evas_image_text_get_size(fn, oo->current.text, 
						  &oo->current.string.w, 
						  &oo->current.string.h);
		       __evas_image_text_font_free(fn);
		    }
	       }
	     break;
	  default:
	     break;
	  }	
     }
   
   o->current.x = 0;
   o->current.y = 0;
   o->current.w = (double)oo->current.string.w;
   o->current.h = (double)oo->current.string.h;
   
   for (l = e->layers; l; l = l->next)
     {
	layer = l->data;
	if (layer->layer == o->current.layer)
	  {
	     layer->objects = evas_list_append(layer->objects, o);
	     return o;
	  }
	if (layer->layer > o->current.layer)
	  {
	     Evas_Layer        layer_new;
	     
	     layer_new = malloc(sizeof(struct _Evas_Layer));
	     memset(layer_new, 0, sizeof(struct _Evas_Layer));
	     e->layers = evas_list_prepend_relative(e->layers, layer_new, layer);
	     layer_new->objects = evas_list_append(layer_new->objects, o);
	     layer_new->layer = o->current.layer;
	     return o;
	  }
     }
   
   layer = malloc(sizeof(struct _Evas_Layer));
   memset(layer, 0, sizeof(struct _Evas_Layer));
   e->layers = evas_list_append(e->layers, layer);
   layer->objects = evas_list_append(layer->objects, o);
   
   return o;
}

char *
evas_get_text_string(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;

   if (!e) return NULL;
   o = TO_OBJECT(e, o);
   if (!o) return NULL;
   IF_OBJ(o, OBJECT_TEXT) return "";
   oo = o;
   return oo->current.text;
}

char *
evas_get_text_font(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;

   if (!e) return NULL;
   o = TO_OBJECT(e, o);
   if (!o) return NULL;
   IF_OBJ(o, OBJECT_TEXT) return "";
   oo = o;
   return oo->current.font;
}

int
evas_get_text_size(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;

   if (!e) return 0;
   o = TO_OBJECT(e, o);
   if (!o) return 0;
   IF_OBJ(o, OBJECT_TEXT) return 0;
   oo = o;
   return oo->current.size;
}

double
evas_get_text_height(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;

   if (!e) return 0;
   o = TO_OBJECT(e, o);
   if (!o) return 0;
   IF_OBJ(o, OBJECT_TEXT) return 0;
   oo = o;

   return (double)oo->current.string.h;
}

double
evas_get_text_width(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;

   if (!e) return 0;
   if (!o) return 0;
   IF_OBJ(o, OBJECT_TEXT) return 0;
   oo = o;

   return (double)oo->current.string.w;
}

int
evas_text_at_position(Evas e, Evas_Object o, double x, double y, 
		      double *char_x, double *char_y, double *char_w, double *char_h)
{
   Evas_Object_Text oo;
   int cx, cy, cw, ch;
   
   if (!e) return -1;
   o = TO_OBJECT(e, o);
   if (!o) return -1;
   IF_OBJ(o, OBJECT_TEXT) return -1;
   oo = o;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     int ret;
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  ret =  __evas_imlib_text_get_character_at_pos(fn, oo->current.text,
								(int)(x),
								(int)(y),
								&cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_imlib_text_font_free(fn);
		  return ret;
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     int ret;
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  ret =  __evas_x11_text_get_character_at_pos(fn, oo->current.text,
							      (int)(x),
							      (int)(y),
							      &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_x11_text_font_free(fn);
		  return ret;
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     int ret;
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  ret =  __evas_gl_text_get_character_at_pos(fn, oo->current.text,
							     (int)(x),
							     (int)(y),
							     &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_gl_text_font_free(fn);
		  return ret;
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     int ret;
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  ret =  __evas_render_text_get_character_at_pos(fn, oo->current.text,
							     (int)(x),
							     (int)(y),
							     &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_gl_text_font_free(fn);
		  return ret;
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     int ret;
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  ret =  __evas_image_text_get_character_at_pos(fn, oo->current.text,
								(int)(x),
								(int)(y),
								&cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_image_text_font_free(fn);
		  return ret;
	       }
	  }
	break;
     default:
	break;
     }
   return 0;
}

void
evas_text_at(Evas e, Evas_Object o, int index, 
	     double *char_x, double *char_y, double *char_w, double *char_h)
{
   Evas_Object_Text oo;
   int cx, cy, cw, ch;
   
   if (!e) return;
   if (!o) return;
   IF_OBJ(o, OBJECT_TEXT) return;
   oo = o;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_imlib_text_get_character_number(fn, oo->current.text,
							 index,
							 &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_imlib_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_x11_text_get_character_number(fn, oo->current.text,
						       index,
						       &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_x11_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_gl_text_get_character_number(fn, oo->current.text,
						      index,
						      &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_gl_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_render_text_get_character_number(fn, oo->current.text,
							  index,
							  &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_render_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_image_text_get_character_number(fn, oo->current.text,
							 index,
							 &cx, &cy, &cw, &ch);
		  if (char_x) *char_x = (double)cx;
		  if (char_y) *char_y = (double)cy;
		  if (char_w) *char_w = (double)cw;
		  if (char_h) *char_h = (double)ch;
		  __evas_image_text_font_free(fn);
	       }
	  }
	break;
     default:
	break;
     }
}

void
evas_text_get_ascent_descent(Evas e, Evas_Object o, 
			     double *ascent, double *descent)
{
   int a, d;
   Evas_Object_Text oo;
   
   if (!e) return;
   o = TO_OBJECT(e, o);
   if (!o) return;
   IF_OBJ(o, OBJECT_TEXT) return;
   oo = o;
   a = 0; d = 0;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_imlib_text_font_get_ascent(fn);
		  d = __evas_imlib_text_font_get_descent(fn);
		  __evas_imlib_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_x11_text_font_get_ascent(fn);
		  d = __evas_x11_text_font_get_descent(fn);
		  __evas_x11_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_gl_text_font_get_ascent(fn);
		  d = __evas_gl_text_font_get_descent(fn);
		  __evas_gl_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_render_text_font_get_ascent(fn);
		  d = __evas_render_text_font_get_descent(fn);
		  __evas_render_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_image_text_font_get_ascent(fn);
		  d = __evas_image_text_font_get_descent(fn);
		  __evas_image_text_font_free(fn);
	       }
	  }
	break;
     default:
	break;
     }
   if (ascent) *ascent = a;
   if (descent) *descent = d;   
}

void
evas_text_get_max_ascent_descent(Evas e, Evas_Object o, 
				 double *ascent, double *descent)
{
   int a, d;
   Evas_Object_Text oo;
   
   if (!e) return;
   o = TO_OBJECT(e, o);
   if (!o) return;
   IF_OBJ(o, OBJECT_TEXT) return;
   oo = o;
   a = 0; d = 0;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_imlib_text_font_get_max_ascent(fn);
		  d = __evas_imlib_text_font_get_max_descent(fn);
		  __evas_imlib_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_x11_text_font_get_max_ascent(fn);
		  d = __evas_x11_text_font_get_max_descent(fn);
		  __evas_x11_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_gl_text_font_get_max_ascent(fn);
		  d = __evas_gl_text_font_get_max_descent(fn);
		  __evas_gl_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_render_text_font_get_max_ascent(fn);
		  d = __evas_render_text_font_get_max_descent(fn);
		  __evas_render_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  a = __evas_image_text_font_get_max_ascent(fn);
		  d = __evas_image_text_font_get_max_descent(fn);
		  __evas_image_text_font_free(fn);
	       }
	  }
	break;
     default:
	break;
     }
   if (ascent) *ascent = a;
   if (descent) *descent = d;   
}

void
evas_text_get_advance(Evas e, Evas_Object o, 
		      double *h_advance, double *v_advance)
{
   int a, d;
   Evas_Object_Text oo;
   
   if (!e) return;
   o = TO_OBJECT(e, o);
   if (!o) return;
   IF_OBJ(o, OBJECT_TEXT) return;
   oo = o;
   a = 0; d = 0;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_imlib_text_font_get_advances(fn, oo->current.text, &a, &d);
		  __evas_imlib_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_x11_text_font_get_advances(fn, oo->current.text, &a, &d);
		  __evas_x11_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_gl_text_font_get_advances(fn, oo->current.text, &a, &d);
		  __evas_gl_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_render_text_font_get_advances(fn, oo->current.text, &a, &d);
		  __evas_render_text_font_free(fn);
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  __evas_image_text_font_get_advances(fn, oo->current.text, &a, &d);
		  __evas_image_text_font_free(fn);
	       }
	  }
	break;
     default:
	break;
     }
   if (h_advance) *h_advance = a;
   if (v_advance) *v_advance = d;   
}

double
evas_text_get_inset(Evas e, Evas_Object o)
{
   Evas_Object_Text oo;
   int inset;
   
   if (!e) return 0;
   o = TO_OBJECT(e, o);
   if (!o) return 0;
   IF_OBJ(o, OBJECT_TEXT) return 0;
   oo = o;
   switch (e->current.render_method)
     {
     case RENDER_METHOD_ALPHA_SOFTWARE:
	  {
	     Evas_Imlib_Font *fn;
	     
	     fn = __evas_imlib_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  inset = __evas_imlib_text_font_get_first_inset(fn, oo->current.text);
		  __evas_imlib_text_font_free(fn);
		  return (double)inset;
	       }
	  }
	break;
     case RENDER_METHOD_BASIC_HARDWARE:
	  {
	     Evas_X11_Font *fn;
	     
	     fn = __evas_x11_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  inset = __evas_x11_text_font_get_first_inset(fn, oo->current.text);
		  __evas_x11_text_font_free(fn);
		  return (double)inset;
	       }
	  }
	break;
     case RENDER_METHOD_3D_HARDWARE:
	  {
	     Evas_GL_Font *fn;
	     
	     fn = __evas_gl_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  inset = __evas_gl_text_font_get_first_inset(fn, oo->current.text);
		  __evas_gl_text_font_free(fn);
		  return (double)inset;
	       }
	  }
	break;
     case RENDER_METHOD_ALPHA_HARDWARE:
	  {
	     Evas_Render_Font *fn;
	     
	     fn = __evas_render_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  inset = __evas_render_text_font_get_first_inset(fn, oo->current.text);
		  __evas_render_text_font_free(fn);
		  return (double)inset;
	       }
	  }
	break;
     case RENDER_METHOD_IMAGE:
	  {
	     Evas_Image_Font *fn;
	     
	     fn = __evas_image_text_font_new(e->current.display, oo->current.font, oo->current.size);
	     if (fn)
	       {
		  inset = __evas_image_text_font_get_first_inset(fn, oo->current.text);
		  __evas_image_text_font_free(fn);
		  return (double)inset;
	       }
	  }
	break;
     default:
	break;
     }
   return 0;
}

void
evas_set_text(Evas e, Evas_Object o, char *text)
{
   if (!e) return;
   o = TO_OBJECT(e, o);
   if (!o) return;
   switch (o->type)
     {
     case OBJECT_TEXT:
	  {
	     Evas_Object_Text oo;
	     
	     oo = (Evas_Object_Text)o;
	     if ((text) && (oo->current.text) && (!strcmp(oo->current.text, text)))
		return;
	     if (oo->current.text) free(oo->current.text);
	     oo->current.text = NULL;
	     if (text)
	       {
		  oo->current.text = malloc(strlen(text) + 1);
		  strcpy(oo->current.text, text);
	       }
	     else
	       {
		  oo->current.text = malloc(strlen("") + 1);
		  strcpy(oo->current.text, "");
	       }
	     oo->previous.text = NULL;
	       {	     
		  switch (e->current.render_method)
		    {
		    case RENDER_METHOD_ALPHA_SOFTWARE:
			 {
			    Evas_Imlib_Font *fn;
			    
			    fn = __evas_imlib_text_font_new (e->current.display,
							     oo->current.font,
							     oo->current.size);
			    if (fn)
			      {
				 __evas_imlib_text_get_size(fn, oo->current.text,
							    &oo->current.string.w,
							    &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_imlib_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_BASIC_HARDWARE:
			 {
			    Evas_X11_Font *fn;
			    
			    fn = __evas_x11_text_font_new (e->current.display,
							   oo->current.font,
							   oo->current.size);
			    if (fn)
			      {
				 __evas_x11_text_get_size(fn, oo->current.text,
							  &oo->current.string.w,
							  &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_x11_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_3D_HARDWARE:
			 {
			    Evas_GL_Font *fn;
			    
			    fn = __evas_gl_text_font_new (e->current.display,
							  oo->current.font,
							  oo->current.size);
			    if (fn)
			      {
				 __evas_gl_text_get_size(fn, oo->current.text,
							 &oo->current.string.w,
							 &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_gl_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_ALPHA_HARDWARE:
			 {
			    Evas_Render_Font *fn;
			    
			    fn = __evas_render_text_font_new (e->current.display,
							  oo->current.font,
							  oo->current.size);
			    if (fn)
			      {
				 __evas_render_text_get_size(fn, oo->current.text,
							 &oo->current.string.w,
							 &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_render_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_IMAGE:
			 {
			    Evas_Image_Font *fn;
			    
			    fn = __evas_image_text_font_new (e->current.display,
							     oo->current.font,
							     oo->current.size);
			    if (fn)
			      {
				 __evas_image_text_get_size(fn, oo->current.text,
							    &oo->current.string.w,
							    &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_image_text_font_free(fn);
			      }
			 }
		       break;
		    default:
		       break;
		    }
	       }
	     o->current.w = (double)oo->current.string.w;
	     o->current.h = (double)oo->current.string.h;
	     o->changed = 1;
	     e->changed = 1;
	  }
	break;
     default:
	break;
     }
}

void
evas_set_font(Evas e, Evas_Object o, char *font, int size)
{
   if (!e) return;
   o = TO_OBJECT(e, o);
   if (!o) return;
   if (!font) return;
   if (size < 0) size = 0;
   switch (o->type)
     {
     case OBJECT_TEXT:
	  {
	     Evas_Object_Text oo;
	     
	     oo = (Evas_Object_Text)o;
	     if ((oo->current.font) && (!strcmp(oo->current.font, font))
		 && (size == oo->current.size))
		return;
	     _evas_free_text_renderer_data(e, o);
	     if (oo->current.font) free(oo->current.font);
	     oo->current.font = malloc(strlen(font) + 1);
	     strcpy(oo->current.font, font);
	     oo->previous.font = NULL;
	     oo->current.size = size;
	       {	     
		  switch (e->current.render_method)
		    {
		    case RENDER_METHOD_ALPHA_SOFTWARE:
			 {
			    Evas_Imlib_Font *fn;
			    
			    fn = __evas_imlib_text_font_new (e->current.display,
							     oo->current.font,
							     oo->current.size);
			    if (fn)
			      {
				 __evas_imlib_text_get_size(fn, oo->current.text,
							    &oo->current.string.w,
							    &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_imlib_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_BASIC_HARDWARE:
			 {
			    Evas_X11_Font *fn;
			    
			    fn = __evas_x11_text_font_new (e->current.display,
							   oo->current.font,
							   oo->current.size);
			    if (fn)
			      {
				 __evas_x11_text_get_size(fn, oo->current.text,
							  &oo->current.string.w,
							  &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_x11_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_3D_HARDWARE:
			 {
			    Evas_GL_Font *fn;
			    
			    fn = __evas_gl_text_font_new (e->current.display,
							  oo->current.font,
							  oo->current.size);
			    if (fn)
			      {
				 __evas_gl_text_get_size(fn, oo->current.text,
							 &oo->current.string.w,
							 &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_gl_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_ALPHA_HARDWARE:
			 {
			    Evas_Render_Font *fn;
			    
			    fn = __evas_render_text_font_new (e->current.display,
							  oo->current.font,
							  oo->current.size);
			    if (fn)
			      {
				 __evas_render_text_get_size(fn, oo->current.text,
							 &oo->current.string.w,
							 &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_render_text_font_free(fn);
			      }
			 }
		       break;
		    case RENDER_METHOD_IMAGE:
			 {
			    Evas_Image_Font *fn;
			    
			    fn = __evas_image_text_font_new (e->current.display,
							     oo->current.font,
							     oo->current.size);
			    if (fn)
			      {
				 __evas_image_text_get_size(fn, oo->current.text,
							    &oo->current.string.w,
							    &oo->current.string.h);
				 evas_resize(e, o, 
					     (double)oo->current.string.w,
					     (double)oo->current.string.h);
				 __evas_image_text_font_free(fn);
			      }
			 }
		       break;
		    default:
		       break;
		    }
	       }
	     o->current.w = (double)oo->current.string.w;
	     o->current.h = (double)oo->current.string.h;
	     o->changed = 1;
	     e->changed = 1;
	  }
	break;
     default:
	break;
     }
}