Implemented Window#configure.

diff --git a/src/ecore_x/rb_window.c b/src/ecore_x/rb_window.c
index b5c0f6549ebe7880d1e2ecfdf6d2ff1ac72a0721..429559a5e3f760dbf646d23f8a5b99637d912988 100644 (file)
--- a/src/ecore_x/rb_window.c
+++ b/src/ecore_x/rb_window.c
@@ -1,5 +1,5 @@
 /*
- * $Id: rb_window.c 99 2004-08-26 18:08:05Z tilman $
+ * $Id: rb_window.c 102 2004-08-28 10:00:03Z tilman $
  *
  * Copyright (C) 2004 ruby-ecore team (see AUTHORS)
  *
@@ -123,6 +123,47 @@ static VALUE c_equal_value (VALUE self, VALUE other)
        return w1->real == w2->real ? Qtrue : Qfalse;
 }
 
+static VALUE c_configure (int argc, VALUE *argv, VALUE self)
+{
+       VALUE mask, geom[4], border, sibling, stackm;
+       RbWindow *sibwin = NULL;
+       int i;
+
+       GET_OBJ (self, RbWindow, win);
+
+       rb_scan_args (argc, argv, "17", &mask,
+                     &geom[0], &geom[1], &geom[2], &geom[3],
+                     &border, &sibling, &stackm);
+
+       Check_Type (mask, T_FIXNUM);
+
+       for (i = 0; i < 4; i++)
+               if (!NIL_P (geom[i]))
+                       Check_Type (geom[i], T_FIXNUM);
+
+       if (!NIL_P (border))
+               Check_Type (border, T_FIXNUM);
+
+       if (!NIL_P (sibling)) {
+               CHECK_CLASS (sibling, cWindow);
+               Data_Get_Struct (sibling, RbWindow, sibwin);
+       }
+
+       if (!NIL_P (stackm))
+               Check_Type (stackm, T_FIXNUM);
+
+       ecore_x_window_configure (win->real, FIX2INT (mask),
+                                 NIL_P (geom[0]) ? 0 : FIX2INT (geom[0]),
+                                 NIL_P (geom[1]) ? 0 : FIX2INT (geom[1]),
+                                 NIL_P (geom[2]) ? 0 : FIX2INT (geom[2]),
+                                 NIL_P (geom[3]) ? 0 : FIX2INT (geom[3]),
+                                 NIL_P (border) ? 0 : FIX2INT (border),
+                                 sibwin ? sibwin->real : 0,
+                                 NIL_P (stackm) ? 0 : FIX2INT (stackm));
+
+       return Qnil;
+}
+
 static VALUE c_show (VALUE self)
 {
        GET_OBJ (self, RbWindow, win);
@@ -446,6 +487,7 @@ void Init_Window (void)
        rb_define_method (cWindow, "initialize", c_init, -1);
        rb_define_method (cWindow, "inspect", c_inspect, 0);
        rb_define_method (cWindow, "==", c_equal_value, 1);
+       rb_define_method (cWindow, "configure", c_configure, -1);
        rb_define_method (cWindow, "show", c_show, 0);
        rb_define_method (cWindow, "hide", c_hide, 0);
        rb_define_method (cWindow, "visible?", c_visible_get, 0);