X-Git-Url: http://git.code-monkey.de/?p=ruby-evas.git;a=blobdiff_plain;f=src%2Frb_evas_object.c;h=3be8bf694eef5ca9a78bb0d023cb042caa4a7b53;hp=cd448bfa76dfc29cca84372d90262a9cce6f9eb5;hb=c3202d026f3800676461ee407f2a5e46dc20e2f2;hpb=9af608c8ef88aadac161a557b27822c9defa39f0 diff --git a/src/rb_evas_object.c b/src/rb_evas_object.c index cd448bf..3be8bf6 100644 --- a/src/rb_evas_object.c +++ b/src/rb_evas_object.c @@ -1,6 +1,4 @@ /* - * $Id: rb_evas_object.c 2 2004-06-19 18:55:39Z tilman $ - * * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de) * * This library is free software; you can redistribute it and/or @@ -19,114 +17,618 @@ */ #include +#include #include +#define __RB_EVAS_OBJECT_C +#include "rb_evas_main.h" +#include "rb_evas.h" #include "rb_evas_object.h" -#define GET_OBJ(obj, type, o, desc) \ - type **(o) = NULL; \ -\ - Data_Get_Struct ((obj), type *, (o)); \ -\ - if (!*(o)) { \ - rb_raise (rb_eException, desc " destroyed already"); \ - return Qnil; \ +VALUE cEvasObject; + +VALUE TO_EVAS_OBJECT (Evas_Object *o) +{ + void *obj; + + if (!o) + return Qnil; + + if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) { + rb_raise (rb_eException, "EvasObject Ruby object key missing"); + return Qnil; } -static VALUE parents; + return (VALUE) obj; +} /* called by the child classes */ -void c_evas_object_free (Evas_Object **e) +void c_evas_object_mark (RbEvasObject *e) +{ + rb_gc_mark (e->parent); + + if (!NIL_P (e->callbacks)) + rb_gc_mark (e->callbacks); + + if (!NIL_P (e->userdata)) + rb_gc_mark (e->userdata); +} + +void c_evas_object_free (RbEvasObject *e, bool free_mem) { - if (*e) - evas_object_del (*e); + if (e->real) + evas_object_del (e->real); + + if (free_mem) + free (e); +} - free (e); +static void c_free (RbEvasObject *e) +{ + c_evas_object_free (e, true); } -void c_evas_object_mark (Evas_Object **e) +static VALUE c_alloc (VALUE klass) { - VALUE parent; + RbEvasObject *e; - parent = rb_hash_aref (parents, INT2NUM ((long) (e))); - if (!NIL_P (parent)) - rb_gc_mark (parent); + return Data_Make_Struct (klass, RbEvasObject, c_evas_object_mark, + c_free, e); } +/* :nodoc: */ static VALUE c_init (VALUE self, VALUE parent) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); - rb_hash_aset (parents, INT2NUM ((long) e), parent); + evas_object_data_set (e->real, RUBY_EVAS_OBJECT_KEY, (void *) self); + + e->parent = parent; + e->callbacks = Qnil; return self; } +/* :nodoc: */ +static VALUE c_inspect (VALUE self) +{ + INSPECT (self, RbEvasObject); +} + +static VALUE c_type_get (VALUE self) +{ + const char *s; + + GET_OBJ (self, RbEvasObject, e); + + s = evas_object_type_get (e->real); + + return s ? rb_str_new2 (s) : Qnil; +} + +/* + * call-seq: + * e.delete => nil + * + * Deletes e. + */ static VALUE c_delete (VALUE self) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); - if (*e) { - evas_object_del (*e); - *e = NULL; - } + evas_object_del (e->real); + e->real = NULL; return Qnil; } +/* + * call-seq: + * e.resize(width, height) => nil + * + * Resizes e to width x height. + * + * e.resize(100, 200) #=> nil + */ static VALUE c_resize (VALUE self, VALUE w, VALUE h) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); Check_Type (w, T_FIXNUM); Check_Type (h, T_FIXNUM); - evas_object_resize (*e, (Evas_Coord) FIX2INT (w), - (Evas_Coord) FIX2INT (h)); + evas_object_resize (e->real, (Evas_Coord) FIX2INT (w), + (Evas_Coord) FIX2INT (h)); return Qnil; } +/* + * call-seq: + * e.move(x, y) => nil + * + * Moves e to the coordinates specified in + * x and y. + * + * e.move(100, 200) #=> nil + */ +static VALUE c_move (VALUE self, VALUE x, VALUE y) +{ + GET_OBJ (self, RbEvasObject, e); + + Check_Type (x, T_FIXNUM); + Check_Type (y, T_FIXNUM); + + evas_object_move (e->real, (Evas_Coord) FIX2INT (x), + (Evas_Coord) FIX2INT (y)); + + return Qnil; +} + +/* + * call-seq: + * e.geometry => array + * + * Returns an array containing the geometry of e. + * + * e.move(150, 300) #=> nil + * e.resize(200, 200) #=> nil + * e.geometry #=> [150, 300, 200, 200] + */ +static VALUE c_geometry_get (VALUE self) +{ + int x = 0, y = 0, w = 0, h = 0; + + GET_OBJ (self, RbEvasObject, e); + + evas_object_geometry_get (e->real, + (Evas_Coord *) &x, (Evas_Coord *) &y, + (Evas_Coord *) &w, (Evas_Coord *) &h); + + return rb_ary_new3 (4, INT2FIX (x), INT2FIX (y), INT2FIX (w), + INT2FIX (h)); +} + +/* + * call-seq: + * e.show => nil + * + * Shows e. + */ static VALUE c_show (VALUE self) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); - evas_object_show (*e); + evas_object_show (e->real); return Qnil; } +/* + * call-seq: + * e.hide => nil + * + * Hides e. + */ static VALUE c_hide (VALUE self) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); - evas_object_hide (*e); + evas_object_hide (e->real); return Qnil; } -static VALUE c_is_visible (VALUE self) +/* + * call-seq: + * e.visible? => true or false + * + * Returns true if e is visible, else returns false. + */ +static VALUE c_visible_get (VALUE self) { - GET_OBJ (self, Evas_Object, e, "EvasObject"); + GET_OBJ (self, RbEvasObject, e); - return evas_object_visible_get (*e) ? Qtrue : Qfalse; + return evas_object_visible_get (e->real) ? Qtrue : Qfalse; } -void Init_EvasObject (void) +/* + * call-seq: + * e.focused? => true or false + * + * Returns true if e is focused, else returns false. + */ +static VALUE c_focused_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return evas_object_focus_get (e->real) ? Qtrue : Qfalse; +} + +/* + * call-seq: + * e.focused(true or false) + * + * (Un)focuses e. + */ +static VALUE c_focused_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_BOOL (val); + + evas_object_focus_set (e->real, val == Qtrue); + + return Qnil; +} + +/* + * call-seq: + * e.evas => evas + * + * Returns the Evas::Evas for e. + */ +static VALUE c_evas_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return e->parent; +} + +/* + * call-seq: + * e.name => string + * + * Returns the name of e. + */ +static VALUE c_name_get (VALUE self) +{ + const char *name; + + GET_OBJ (self, RbEvasObject, e); + + if (!(name = evas_object_name_get (e->real))) + return Qnil; + else + return rb_str_new2 (name); +} + +/* + * call-seq: + * e.name(string) + * + * Sets the name of e. + */ +static VALUE c_name_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + evas_object_name_set (e->real, StringValuePtr (val)); + + return Qnil; +} + +/* + * call-seq: + * e.layer => fixnum + * + * Returns the layer e is in. + */ +static VALUE c_layer_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return INT2FIX (evas_object_layer_get (e->real)); +} + +/* + * call-seq: + * e.layer(fixnum) + * + * Sets the layer e is in. + */ +static VALUE c_layer_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + Check_Type (val, T_FIXNUM); + + evas_object_layer_set (e->real, NUM2INT (val)); + + return Qnil; +} + +/* + * call-seq: + * e.get_color => array + * + * Returns the color of e. + * + * e.set_color(128, 128, 128, 0) #=> nil + * e.get_color #=> [128, 128, 128, 0] + */ +static VALUE c_get_color (VALUE self) { - cEvasObject = rb_define_class ("EvasObject", rb_cObject); + int r = 0, g = 0, b = 0, a = 0; + + GET_OBJ (self, RbEvasObject, e); - rb_define_private_method (rb_singleton_class (cEvasObject), - "new", NULL, 0); + evas_object_color_get (e->real, &r, &g, &b, &a); + + return rb_ary_new3 (4, INT2FIX (r), INT2FIX (g), INT2FIX (b), + INT2FIX (a)); +} +/* + * call-seq: + * e.set_color(r, g, b, a) => nil + * + * Sets the color of e. + * + * e.set_color(128, 128, 128, 0) #=> nil + */ +static VALUE c_set_color (VALUE self, VALUE r, VALUE g, VALUE b, + VALUE a) +{ + GET_OBJ (self, RbEvasObject, e); + + Check_Type (r, T_FIXNUM); + Check_Type (g, T_FIXNUM); + Check_Type (b, T_FIXNUM); + Check_Type (a, T_FIXNUM); + + evas_object_color_set (e->real, FIX2INT (r), FIX2INT (g), + FIX2INT (b), FIX2INT (a)); + + return Qnil; +} + +static VALUE c_get_clip (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return TO_EVAS_OBJECT (evas_object_clip_get (e->real)); +} + +static VALUE c_set_clip (VALUE self, VALUE clip) +{ + GET_OBJ (self, RbEvasObject, e); + GET_OBJ (clip, RbEvasObject, e2); + + evas_object_clip_set (e->real, e2->real); + + return Qnil; +} + +/* + * call-seq: + * e.pass_events? => true or false + * + * Returns true if e passes events on to EvasObjects that are + * below itself, else returns false. + */ +static VALUE c_pass_events_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return evas_object_pass_events_get (e->real) ? Qtrue : Qfalse; +} + +/* + * call-seq: + * e.pass_events(true or false) + * + * Sets whether e passes events on to EvasObjects that are + * below itself. + */ +static VALUE c_pass_events_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_BOOL (val); + + evas_object_pass_events_set (e->real, val == Qtrue); + + return Qnil; +} + +/* + * call-seq: + * e.repeat_events? => true or false + * + * Returns true if e repeats events to EvasObjects that are + * below itself, else returns false. + */ +static VALUE c_repeat_events_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return evas_object_repeat_events_get (e->real) ? Qtrue : Qfalse; +} + +/* + * call-seq: + * e.repeat_events(true or false) + * + * Sets whether e repeats events to EvasObjects that are + * below itself. + */ +static VALUE c_repeat_events_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_BOOL (val); + + evas_object_repeat_events_set (e->real, val == Qtrue); + + return Qnil; +} + +static VALUE c_anti_alias_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return evas_object_anti_alias_get (e->real) ? Qtrue : Qfalse; +} + +static VALUE c_anti_alias_set (VALUE self, VALUE val) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_BOOL (val); + + evas_object_anti_alias_set (e->real, val == Qtrue); + + return Qnil; +} + +/* + * call-seq: + * e.raise => nil + * + * Raises e. + */ +static VALUE c_raise (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + evas_object_raise (e->real); + + return Qnil; +} + +/* + * call-seq: + * e.lower => nil + * + * Lowers e. + */ +static VALUE c_lower (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + evas_object_lower (e->real); + + return Qnil; +} + +/* + * call-seq: + * e.stack_above(evasobject) => nil + * + * Positions e above evasobject. + */ +static VALUE c_stack_above (VALUE self, VALUE target) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_CLASS (target, cEvasObject); + GET_OBJ (target, RbEvasObject, t); + + evas_object_stack_above (e->real, t->real); + + return Qnil; +} + +/* + * call-seq: + * e.stack_below(evasobject) => nil + * + * Positions e below evasobject. + */ +static VALUE c_stack_below (VALUE self, VALUE target) +{ + GET_OBJ (self, RbEvasObject, e); + + CHECK_CLASS (target, cEvasObject); + GET_OBJ (target, RbEvasObject, t); + + evas_object_stack_below (e->real, t->real); + + return Qnil; +} + +/* + * call-seq: + * e.above => evasobject + * + * Returns the Evas::EvasObject that's positioned above + * e. + */ +static VALUE c_above_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return TO_EVAS_OBJECT (evas_object_above_get (e->real)); +} + +/* + * call-seq: + * e.below => evasobject + * + * Returns the Evas::EvasObject that's positioned below + * e. + */ +static VALUE c_below_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + return TO_EVAS_OBJECT (evas_object_below_get (e->real)); +} + +static VALUE c_userdata_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); + + if (NIL_P (e->userdata)) + e->userdata = rb_hash_new (); + + return e->userdata; +} + +void Init_EvasObject (void) +{ + cEvasObject = rb_define_class_under (mEvas, "EvasObject", + rb_cObject); + + rb_define_alloc_func (cEvasObject, c_alloc); rb_define_method (cEvasObject, "initialize", c_init, 1); + rb_define_method (cEvasObject, "inspect", c_inspect, 0); + rb_define_method (cEvasObject, "type", c_type_get, 0); rb_define_method (cEvasObject, "delete", c_delete, 0); rb_define_method (cEvasObject, "resize", c_resize, 2); + rb_define_method (cEvasObject, "move", c_move, 2); + rb_define_method (cEvasObject, "geometry", c_geometry_get, 0); rb_define_method (cEvasObject, "show", c_show, 0); rb_define_method (cEvasObject, "hide", c_hide, 0); - rb_define_method (cEvasObject, "visible?", c_is_visible, 0); - - parents = rb_hash_new (); - rb_global_variable (&parents); + rb_define_method (cEvasObject, "visible?", c_visible_get, 0); + rb_define_method (cEvasObject, "focused?", c_focused_get, 0); + rb_define_method (cEvasObject, "focused=", c_focused_set, 1); + rb_define_method (cEvasObject, "evas", c_evas_get, 0); + rb_define_method (cEvasObject, "name", c_name_get, 0); + rb_define_method (cEvasObject, "name=", c_name_set, 1); + rb_define_method (cEvasObject, "layer", c_layer_get, 0); + rb_define_method (cEvasObject, "layer=", c_layer_set, 1); + rb_define_method (cEvasObject, "get_color", c_get_color, 0); + rb_define_method (cEvasObject, "set_color", c_set_color, 4); + rb_define_method (cEvasObject, "clip", c_get_clip, 0); + rb_define_method (cEvasObject, "clip=", c_set_clip, 1); + rb_define_method (cEvasObject, "pass_events?", + c_pass_events_get, 0); + rb_define_method (cEvasObject, "pass_events=", + c_pass_events_set, 1); + rb_define_method (cEvasObject, "repeat_events?", + c_repeat_events_get, 0); + rb_define_method (cEvasObject, "repeat_events=", + c_repeat_events_set, 1); + rb_define_method (cEvasObject, "anti_alias?", c_anti_alias_get, 0); + rb_define_method (cEvasObject, "anti_alias=", c_anti_alias_set, 1); + rb_define_method (cEvasObject, "raise", c_raise, 0); + rb_define_method (cEvasObject, "lower", c_lower, 0); + rb_define_method (cEvasObject, "stack_above", c_stack_above, 1); + rb_define_method (cEvasObject, "stack_below", c_stack_below, 1); + rb_define_method (cEvasObject, "above", c_above_get, 0); + rb_define_method (cEvasObject, "below", c_below_get, 0); + rb_define_method (cEvasObject, "userdata", c_userdata_get, 0); }