X-Git-Url: http://git.code-monkey.de/?a=blobdiff_plain;f=src%2Frb_evas_object.c;h=22b03153f88988d5006940df84fd99239b16f914;hb=ab841e74c1011d7fdc2e793aae70578957a5bcc6;hp=98a05fbc839841df7f30d7537bdadcd53b68caf7;hpb=8efd0235a6bb26710fd89dd07a5fdb55cafde247;p=ruby-evas.git diff --git a/src/rb_evas_object.c b/src/rb_evas_object.c index 98a05fb..22b0315 100644 --- a/src/rb_evas_object.c +++ b/src/rb_evas_object.c @@ -1,5 +1,5 @@ /* - * $Id: rb_evas_object.c 49 2004-08-01 10:17:39Z tilman $ + * $Id: rb_evas_object.c 350 2006-02-08 21:13:34Z tilman $ * * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de) * @@ -30,10 +30,31 @@ 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; + } + + return (VALUE) obj; +} + /* called by the child classes */ 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) @@ -45,6 +66,7 @@ void c_evas_object_free (RbEvasObject *e, bool free_mem) free (e); } +/* :nodoc: */ static VALUE c_init (VALUE self, VALUE parent) { GET_OBJ (self, RbEvasObject, e); @@ -52,15 +74,34 @@ static VALUE c_init (VALUE self, VALUE 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, RbEvasObject, e); @@ -71,6 +112,14 @@ static VALUE c_delete (VALUE self) 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, RbEvasObject, e); @@ -84,6 +133,15 @@ static VALUE c_resize (VALUE self, VALUE w, VALUE 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); @@ -97,6 +155,16 @@ static VALUE c_move (VALUE self, VALUE x, VALUE 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; @@ -111,6 +179,12 @@ static VALUE c_geometry_get (VALUE self) INT2FIX (h)); } +/* + * call-seq: + * e.show => nil + * + * Shows e. + */ static VALUE c_show (VALUE self) { GET_OBJ (self, RbEvasObject, e); @@ -120,6 +194,12 @@ static VALUE c_show (VALUE self) return Qnil; } +/* + * call-seq: + * e.hide => nil + * + * Hides e. + */ static VALUE c_hide (VALUE self) { GET_OBJ (self, RbEvasObject, e); @@ -129,6 +209,12 @@ static VALUE c_hide (VALUE self) return Qnil; } +/* + * 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, RbEvasObject, e); @@ -136,6 +222,42 @@ static VALUE c_visible_get (VALUE self) return evas_object_visible_get (e->real) ? Qtrue : Qfalse; } +/* + * 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); @@ -143,6 +265,12 @@ static VALUE c_evas_get (VALUE self) return e->parent; } +/* + * call-seq: + * e.name => string + * + * Returns the name of e. + */ static VALUE c_name_get (VALUE self) { const char *name; @@ -155,6 +283,12 @@ static VALUE c_name_get (VALUE self) 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); @@ -166,6 +300,12 @@ static VALUE c_name_set (VALUE self, VALUE 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); @@ -173,6 +313,12 @@ static VALUE c_layer_get (VALUE self) 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); @@ -184,6 +330,15 @@ static VALUE c_layer_set (VALUE self, VALUE 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) { int r = 0, g = 0, b = 0, a = 0; @@ -196,6 +351,14 @@ static VALUE c_get_color (VALUE self) 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) { @@ -212,6 +375,30 @@ static VALUE c_set_color (VALUE self, VALUE r, VALUE g, VALUE b, 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); @@ -219,6 +406,13 @@ static VALUE c_pass_events_get (VALUE self) 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); @@ -230,6 +424,44 @@ static VALUE c_pass_events_set (VALUE self, VALUE val) 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; +} + +/* + * call-seq: + * e.raise => nil + * + * Raises e. + */ static VALUE c_raise (VALUE self) { GET_OBJ (self, RbEvasObject, e); @@ -239,6 +471,12 @@ static VALUE c_raise (VALUE self) return Qnil; } +/* + * call-seq: + * e.lower => nil + * + * Lowers e. + */ static VALUE c_lower (VALUE self) { GET_OBJ (self, RbEvasObject, e); @@ -248,17 +486,17 @@ static VALUE c_lower (VALUE self) 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); - if (!rb_obj_is_kind_of (target, cEvasObject)) { - rb_raise (rb_eTypeError, - "wrong argument type %s (expected EvasObject)", - rb_obj_classname (target)); - return Qnil; - } - + CHECK_CLASS (target, cEvasObject); GET_OBJ (target, RbEvasObject, t); evas_object_stack_above (e->real, t->real); @@ -266,17 +504,17 @@ static VALUE c_stack_above (VALUE self, VALUE target) 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); - if (!rb_obj_is_kind_of (target, cEvasObject)) { - rb_raise (rb_eTypeError, - "wrong argument type %s (expected EvasObject)", - rb_obj_classname (target)); - return Qnil; - } - + CHECK_CLASS (target, cEvasObject); GET_OBJ (target, RbEvasObject, t); evas_object_stack_below (e->real, t->real); @@ -284,40 +522,42 @@ static VALUE c_stack_below (VALUE self, VALUE target) return Qnil; } +/* + * call-seq: + * e.above => evasobject + * + * Returns the Evas::EvasObject that's positioned above + * e. + */ static VALUE c_above_get (VALUE self) { - Evas_Object *o; - void *obj; - GET_OBJ (self, RbEvasObject, e); - if (!(o = evas_object_above_get (e->real))) - return Qnil; - - if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) { - rb_raise (rb_eException, "EvasObject Ruby object key missing"); - return Qnil; - } - - return (VALUE) obj; + 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) { - Evas_Object *o; - void *obj; - GET_OBJ (self, RbEvasObject, e); - if (!(o = evas_object_below_get (e->real))) - return Qnil; + return TO_EVAS_OBJECT (evas_object_below_get (e->real)); +} - if (!(obj = evas_object_data_get (o, RUBY_EVAS_OBJECT_KEY))) { - rb_raise (rb_eException, "EvasObject Ruby object key missing"); - return Qnil; - } +static VALUE c_userdata_get (VALUE self) +{ + GET_OBJ (self, RbEvasObject, e); - return (VALUE) obj; + if (NIL_P (e->userdata)) + e->userdata = rb_hash_new (); + + return e->userdata; } void Init_EvasObject (void) @@ -329,6 +569,7 @@ void Init_EvasObject (void) "new", NULL, 0); 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); @@ -336,6 +577,8 @@ void Init_EvasObject (void) rb_define_method (cEvasObject, "show", c_show, 0); rb_define_method (cEvasObject, "hide", c_hide, 0); 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); @@ -343,12 +586,21 @@ void Init_EvasObject (void) 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, "pass_events?", c_pass_events_get, 0); - rb_define_method (cEvasObject, "pass_events=", c_pass_events_set, 1); + 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, "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); }