/*
- * $Id: rb_evas.c 29 2004-07-08 18:47:44Z tilman $
+ * $Id: rb_evas.c 32 2004-07-10 14:07:49Z tilman $
*
* Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
*
static VALUE c_inspect (VALUE self)
{
- char buf[128];
-
- GET_OBJ (self, Evas, e, "Evas");
-
- snprintf (buf, sizeof (buf), "#<Evas::Evas:%p ptr=%p>",
- (void *) self, *e);
-
- return rb_str_new2 (buf);
+ INSPECT (self, Evas);
}
static VALUE c_render (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
evas_render (*e);
static VALUE c_font_path_clear (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
evas_font_path_clear (*e);
static VALUE c_font_path_append (VALUE self, VALUE path)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
Check_Type (path, T_STRING);
static VALUE c_font_path_prepend (VALUE self, VALUE path)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
Check_Type (path, T_STRING);
VALUE ary;
const Evas_List *list, *l;
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
if (!(list = evas_font_path_list (*e)))
return rb_ary_new ();
static VALUE c_font_cache_get (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
return INT2FIX (evas_font_cache_get (*e));
}
static VALUE c_font_cache_set (VALUE self, VALUE val)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
Check_Type (val, T_FIXNUM);
static VALUE c_font_cache_flush (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
evas_font_cache_flush (*e);
static VALUE c_image_cache_get (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
return INT2FIX (evas_image_cache_get (*e));
}
static VALUE c_image_cache_set (VALUE self, VALUE val)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
Check_Type (val, T_FIXNUM);
static VALUE c_image_cache_reload (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
evas_image_cache_reload (*e);
static VALUE c_image_cache_flush (VALUE self)
{
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
evas_image_cache_flush (*e);
Evas_Object *o;
void *obj;
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
if (!(o = evas_object_top_get (*e)))
return Qnil;
Evas_Object *o;
void *obj;
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
if (!(o = evas_object_bottom_get (*e)))
return Qnil;
Evas_Object *o;
void *obj;
- GET_OBJ (self, Evas, e, "Evas");
+ GET_OBJ (self, Evas, e);
Check_Type (name, T_STRING);