/*
- * $Id: rb_part.c 47 2004-07-26 13:24:50Z tilman $
+ * $Id: rb_part.c 113 2004-10-10 10:00:07Z tilman $
*
* Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
*
#include <ruby.h>
#include <Edje.h>
-#include <rb_evas.h>
-#include <rb_evas_object.h>
#include "rb_edje_main.h"
#include "rb_edje.h"
return rb_ivar_get (o, id);
}
-static void c_mark (VALUE *self)
-{
- rb_gc_mark (GET_EDJE (*self));
-}
-
-static void c_free (VALUE *self)
-{
- edje_shutdown ();
-
- free (self);
-}
-
VALUE TO_PART (VALUE edje, VALUE name)
{
- VALUE self, *self2;
+ VALUE self;
CHECK_CLASS (edje, cEdje);
Check_Type (name, T_STRING);
- edje_init ();
-
- /* we only use Data_Make_Struct to be able to specify
- * mark and sweep hooks
- */
- self = Data_Make_Struct (cPart, VALUE, c_mark, c_free, self2);
- self2 = &self;
+ self = rb_obj_alloc (cPart);
rb_iv_set (self, "@edje", edje);
rb_iv_set (self, "@name", rb_str_dup (name));
return self;
}
-static VALUE c_get_geometry (VALUE self)
+/*
+ * call-seq:
+ * part.geometry => array
+ *
+ * Returns an array containing the geometry of <i>part</i>.
+ */
+static VALUE c_geometry_get (VALUE self)
{
int x = 0, y = 0, w = 0, h = 0;
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
- edje_object_part_geometry_get (*e, GET_NAME (self),
+ edje_object_part_geometry_get (e->real.real, GET_NAME (self),
(Evas_Coord *) &x,
(Evas_Coord *) &y,
(Evas_Coord *) &w,
INT2FIX (y), INT2FIX (h));
}
+/*
+ * call-seq:
+ * part.swallow(evasobject) => nil
+ *
+ * Swallows an <code>Evas::EvasObject</code> into <i>part</i>.
+ */
static VALUE c_swallow (VALUE self, VALUE target)
{
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
CHECK_CLASS (target, cEvasObject);
- GET_OBJ (target, Evas_Object *, target2);
+ GET_OBJ (target, RbEvasObject, t);
- edje_object_part_swallow (*e, GET_NAME (self), *target2);
+ edje_object_part_swallow (e->real.real, GET_NAME (self), t->real);
+ rb_iv_set (self, "swallowed_obj", target);
return Qnil;
}
+/*
+ * call-seq:
+ * part.unswallow => nil
+ *
+ * Unswallows the <code>Evas::EvasObject</code> swallowed by
+ * <i>part</i>.
+ */
static VALUE c_unswallow (VALUE self)
{
Evas_Object *o;
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
- if (!(o = edje_object_part_swallow_get (*e, GET_NAME (self)))) {
+ o = edje_object_part_swallow_get (e->real.real, GET_NAME (self));
+ if (!o) {
rb_raise (rb_eException, "Part didn't swallow an EvasObject");
return Qnil;
}
- edje_object_part_unswallow (*e, o);
+ edje_object_part_unswallow (e->real.real, o);
+ rb_iv_set (self, "swallowed_obj", Qnil);
return Qnil;
}
+/*
+ * call-seq:
+ * part.swallowed_object => evasobject or nil
+ *
+ * Returns the <code>Evas::EvasObject</code> swallowed by
+ * <i>part</i> or nil if <i>part</i> didn't swallow an
+ * <code>Evas::EvasObject</code>.
+ */
static VALUE c_swallowed_object_get (VALUE self)
{
Evas_Object *o;
- void *obj;
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
- if (!(o = edje_object_part_swallow_get (*e, GET_NAME (self))))
+ o = edje_object_part_swallow_get (e->real.real, GET_NAME (self));
+ 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;
+ return TO_EVAS_OBJECT (o);
}
+/*
+ * call-seq:
+ * part.text => string
+ *
+ * Returns the text of <i>part</i>.
+ */
static VALUE c_text_get (VALUE self)
{
const char *s;
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
- if (!(s = edje_object_part_text_get (*e, GET_NAME (self))))
- return Qnil;
- else
- return rb_str_new2 (s);
+ s = edje_object_part_text_get (e->real.real, GET_NAME (self));
+
+ return s ? rb_str_new2 (s) : Qnil;
}
+/*
+ * call-seq:
+ * part.text(string)
+ *
+ * Sets the text of <i>part</i>.
+ */
static VALUE c_text_set (VALUE self, VALUE text)
{
- GET_OBJ (GET_EDJE (self), Evas_Object *, e);
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
Check_Type (text, T_STRING);
- edje_object_part_text_set (*e, GET_NAME (self),
+ edje_object_part_text_set (e->real.real, GET_NAME (self),
StringValuePtr (text));
return Qnil;
}
+/*
+ * call-seq:
+ * part.get_drag_value => array
+ *
+ * Returns the drag value of <i>part</i>.
+ *
+ * part.set_drag_value(1.5, 2.5) #=> nil
+ * part.get_drag_value #=> [1.5, 2.5]
+ */
+static VALUE c_get_drag_value (VALUE self)
+{
+ double dx = 0, dy = 0;
+
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
+
+ edje_object_part_drag_value_get (e->real.real, GET_NAME (self), &dx, &dy);
+
+ return rb_ary_new3 (2, rb_float_new (dx), rb_float_new (dy));
+}
+
+/*
+ * call-seq:
+ * part.set_drag_value(dx, dy) => nil
+ *
+ * Sets the drag value of <i>part</i>.
+ *
+ * part.set_drag_value(1.5, 2.5) #=> nil
+ */
+static VALUE c_set_drag_value (VALUE self, VALUE dx, VALUE dy)
+{
+ GET_OBJ (GET_EDJE (self), RbEdje, e);
+
+ if (!FIXNUM_P (dx))
+ Check_Type (dx, T_FLOAT);
+
+ if (!FIXNUM_P (dy))
+ Check_Type (dy, T_FLOAT);
+
+ edje_object_part_drag_value_set (e->real.real, GET_NAME (self),
+ NUM2DBL (dx), NUM2DBL (dy));
+
+ return Qnil;
+}
+
void Init_Part (void)
{
cPart = rb_define_class_under (mEdje, "Part", rb_cObject);
/* not publically instantiable yet */
rb_define_private_method (rb_singleton_class (cPart),
"new", NULL, 0);
- rb_define_method (cPart, "get_geometry", c_get_geometry, 0);
+ rb_define_method (cPart, "geometry", c_geometry_get, 0);
rb_define_method (cPart, "swallow", c_swallow, 1);
rb_define_method (cPart, "unswallow", c_unswallow, 1);
rb_define_method (cPart, "swallowed_object",
c_swallowed_object_get, 0);
rb_define_method (cPart, "text", c_text_get, 0);
rb_define_method (cPart, "text=", c_text_set, 1);
+ rb_define_method (cPart, "get_drag_value", c_get_drag_value, 0);
+ rb_define_method (cPart, "set_drag_value", c_set_drag_value, 2);
}
projects / ruby-edje.git / blobdiff