Removed RCS-style IDs.
[ruby-evas.git] / src / rb_rectangle.c
index b881687e6d60a0ed66c1f5c90484c4c8cb57ae23..4905dae1a3101922d30c4376a38550f251247bcc 100644 (file)
@@ -1,6 +1,4 @@
 /*
- * $Id: rb_rectangle.c 38 2004-07-25 11:27:25Z tilman $
- *
  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
  *
  * This library is free software; you can redistribute it and/or
 #include "rb_evas.h"
 #include "rb_evas_object.h"
 
-static VALUE c_new (VALUE klass, VALUE evas)
+/*
+ * call-seq:
+ *  Evas::Rectangle.new(evas) => rect
+ *
+ * Creates an Evas::Rectangle object.
+ */
+static VALUE c_init (VALUE self, VALUE evas)
 {
-       VALUE self, argv[1];
-       Evas_Object **rect;
-
        CHECK_CLASS (evas, cEvas);
-       GET_OBJ (evas, Evas *, e);
+       GET_OBJ (evas, RbEvas, e);
+       GET_OBJ (self, RbEvasObject, rect);
 
-       self = Data_Make_Struct (klass, Evas_Object *, c_evas_object_mark,
-                                c_evas_object_free, rect);
-       *rect = evas_object_rectangle_add (*e);
+       rect->real = evas_object_rectangle_add (e->real);
 
-       argv[0] = evas;
-       rb_obj_call_init (self, 1, argv);
+       rb_call_super (1, &evas);
 
        return self;
 }
@@ -48,5 +47,5 @@ void Init_Rectangle (void)
 {
        VALUE c = rb_define_class_under (mEvas, "Rectangle", cEvasObject);
 
-       rb_define_singleton_method (c, "new", c_new, 1);
+       rb_define_method (c, "initialize", c_init, 1);
 }