Added wrappers for some functions.

[ruby-edje.git] / src / rb_edje.c

diff --git a/src/rb_edje.c b/src/rb_edje.c
index e79d67b0fb0ce21e4707d7bb4ffd209434a87791..5b4ef806c10132a5ff282d1386f125ccd7097f5f 100644 (file)
--- a/src/rb_edje.c
+++ b/src/rb_edje.c
@@ -1,5 +1,5 @@
 /*
- * $Id: rb_edje.c 13 2004-06-20 10:32:56Z tilman $
+ * $Id: rb_edje.c 17 2004-06-22 19:37:54Z tilman $
  *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
@@ -57,7 +57,7 @@ static VALUE c_new (VALUE klass, VALUE evas)
 
 static VALUE c_load (VALUE self, VALUE eet, VALUE group)
 {
-       GET_OBJ (self, Evas_Object, e, "EvasObject");
+       GET_OBJ (self, Evas_Object, e, "Edje");
 
        Check_Type (eet, T_STRING);
        Check_Type (group, T_STRING);
@@ -69,11 +69,110 @@ static VALUE c_load (VALUE self, VALUE eet, VALUE group)
        return Qnil;
 }
 
+static VALUE c_get_size_min (VALUE self)
+{
+       int w = 0, h = 0;
+
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       edje_object_size_min_get (*e, &w, &h);
+
+       return rb_ary_new3 (2, INT2FIX (w), INT2FIX (h));
+}
+
+static VALUE c_get_size_max (VALUE self)
+{
+       int w = 0, h = 0;
+
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       edje_object_size_max_get (*e, &w, &h);
+
+       return rb_ary_new3 (2, INT2FIX (w), INT2FIX (h));
+}
+
+static VALUE c_part_exists_get (VALUE self, VALUE part)
+{
+       int r;
+
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       Check_Type (part, T_STRING);
+
+       r = edje_object_part_exists (*e, StringValuePtr (part));
+
+       return r ? Qtrue : Qfalse;
+}
+
+static VALUE c_part_swallow (VALUE self, VALUE part, VALUE target)
+{
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       Check_Type (part, T_STRING);
+
+       if (!rb_obj_is_kind_of (target, cEvasObject)) {
+               rb_raise (rb_eTypeError,
+                         "wrong argument type %s (expected EvasObject)",
+                         rb_obj_classname (target));
+               return Qnil;
+       }
+
+       GET_OBJ (target, Evas_Object, target2, "EvasObject");
+
+       edje_object_part_swallow (*e, StringValuePtr (part), *target2);
+
+       return Qnil;
+}
+
+static VALUE c_part_unswallow (VALUE self, VALUE target)
+{
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       if (!rb_obj_is_kind_of (target, cEvasObject)) {
+               rb_raise (rb_eTypeError,
+                         "wrong argument type %s (expected EvasObject)",
+                         rb_obj_classname (target));
+               return Qnil;
+       }
+
+       GET_OBJ (target, Evas_Object, target2, "EvasObject");
+
+       edje_object_part_unswallow (*e, *target2);
+
+       return Qnil;
+}
+
+static VALUE c_get_part_swallow (VALUE self, VALUE part)
+{
+       Evas_Object *o;
+       void *obj;
+
+       GET_OBJ (self, Evas_Object, e, "Edje");
+
+       Check_Type (part, T_STRING);
+
+       if (!(o = edje_object_part_swallow_get (*e, StringValuePtr (part))))
+               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;
+}
+
 void Init_Edje (void)
 {
        cEdje = rb_define_class_under (mEdje, "Edje", cEvasObject);
 
        rb_define_singleton_method (cEdje, "new", c_new, 1);
        rb_define_method (cEdje, "load", c_load, 2);
+       rb_define_method (cEdje, "get_size_min", c_get_size_min, 0);
+       rb_define_method (cEdje, "get_size_max", c_get_size_max, 0);
+       rb_define_method (cEdje, "part_exists?", c_part_exists_get, 1);
+       rb_define_method (cEdje, "part_swallow", c_part_swallow, 2);
+       rb_define_method (cEdje, "part_unswallow", c_part_unswallow, 1);
+       rb_define_method (cEdje, "get_part_swallow", c_get_part_swallow, 1);
 }