2 * $Id: rb_window.c 85 2004-08-22 11:53:57Z tilman $
4 * Copyright (C) 2004 ruby-ecore team (see AUTHORS)
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 #include "../ecore/rb_ecore.h"
28 #include "rb_ecore_x.h"
29 #include "rb_window.h"
33 static void c_mark (RbWindow *w)
35 if (!NIL_P (w->parent))
36 rb_gc_mark (w->parent);
39 static void c_free (RbWindow *w)
42 ecore_x_window_del (w->real);
47 VALUE TO_ECORE_X_WINDOW (VALUE parent, Ecore_X_Window w)
50 RbWindow *window = NULL;
52 self = Data_Make_Struct (cWindow, RbWindow, c_mark, free, window);
55 window->parent = parent;
57 rb_obj_call_init (self, 0, NULL);
62 static VALUE c_new (int argc, VALUE *argv, VALUE klass)
64 VALUE self, parent, geom[4];
65 RbWindow *window = NULL, *p = NULL;
66 int i, igeom[4] = {0, 0, 0, 0};
67 Ecore_X_Window pwin = 0;
69 self = Data_Make_Struct (cWindow, RbWindow, c_mark, c_free, window);
71 rb_scan_args (argc, argv, "05",
72 &parent, &geom[0], &geom[1], &geom[2], &geom[3]);
74 if (!NIL_P (parent)) {
75 CHECK_CLASS (parent, cWindow);
76 Data_Get_Struct (parent, RbWindow, p);
80 for (i = 0; i < 4; i++)
81 if (!NIL_P (geom[i])) {
82 Check_Type (geom[i], T_FIXNUM);
83 igeom[i] = FIX2INT (geom[i]);
86 window->real = ecore_x_window_new (pwin, igeom[0], igeom[1],
88 window->parent = parent;
90 rb_obj_call_init (self, 0, NULL);
95 static VALUE c_inspect (VALUE self)
99 GET_OBJ (self, RbWindow, win);
101 snprintf (buf, sizeof (buf),
102 "#<%s:%p id=%u>", rb_obj_classname (self),
103 (void *) self, win->real);
105 return rb_str_new2 (buf);
108 static VALUE c_equal_value (VALUE self, VALUE other)
110 GET_OBJ (self, RbWindow, w1);
112 CHECK_CLASS (other, cWindow);
113 GET_OBJ (other, RbWindow, w2);
115 return w1->real == w2->real ? Qtrue : Qfalse;
118 static VALUE c_show (VALUE self)
120 GET_OBJ (self, RbWindow, win);
122 ecore_x_window_show (win->real);
127 static VALUE c_hide (VALUE self)
129 GET_OBJ (self, RbWindow, win);
131 ecore_x_window_hide (win->real);
136 static VALUE c_visible_get (VALUE self)
138 GET_OBJ (self, RbWindow, win);
140 return ecore_x_window_visible_get (win->real) ? Qtrue : Qfalse;
143 static VALUE c_delete (VALUE self)
145 GET_OBJ (self, RbWindow, win);
148 ecore_x_window_del (win->real);
155 static VALUE c_raise (VALUE self)
157 GET_OBJ (self, RbWindow, win);
159 ecore_x_window_raise (win->real);
164 static VALUE c_lower (VALUE self)
166 GET_OBJ (self, RbWindow, win);
168 ecore_x_window_lower (win->real);
173 static VALUE c_reparent (VALUE self, VALUE other, VALUE x, VALUE y)
175 GET_OBJ (self, RbWindow, win);
177 CHECK_CLASS (other, cWindow);
178 GET_OBJ (other, RbWindow, o);
180 Check_Type (x, T_FIXNUM);
181 Check_Type (y, T_FIXNUM);
183 ecore_x_window_reparent (win->real, o->real,
184 FIX2INT (x), FIX2INT (y));
189 static VALUE c_move (VALUE self, VALUE x, VALUE y)
191 GET_OBJ (self, RbWindow, win);
193 Check_Type (x, T_FIXNUM);
194 Check_Type (y, T_FIXNUM);
196 ecore_x_window_move (win->real, FIX2INT (x), FIX2INT (y));
201 static VALUE c_resize (VALUE self, VALUE w, VALUE h)
203 GET_OBJ (self, RbWindow, win);
205 Check_Type (w, T_FIXNUM);
206 Check_Type (h, T_FIXNUM);
208 ecore_x_window_move (win->real, FIX2INT (w), FIX2INT (h));
213 static VALUE c_size_get (VALUE self)
217 GET_OBJ (self, RbWindow, win);
219 ecore_x_window_size_get (win->real, &w, &h);
221 return rb_ary_new3 (2, INT2FIX (w), INT2FIX (h));
224 static VALUE c_geometry_get (VALUE self)
226 int x = 0, y = 0, w = 0, h = 0;
228 GET_OBJ (self, RbWindow, win);
230 ecore_x_window_geometry_get (win->real, &x, &y, &w, &h);
232 return rb_ary_new3 (4, INT2FIX (x), INT2FIX (y),
233 INT2FIX (w), INT2FIX (h));
236 static VALUE c_border_size_get (VALUE self)
238 GET_OBJ (self, RbWindow, win);
240 return INT2FIX (ecore_x_window_border_size_get (win->real));
243 static VALUE c_depth_get (VALUE self)
245 GET_OBJ (self, RbWindow, win);
247 return INT2FIX (ecore_x_window_depth_get (win->real));
250 static VALUE c_parent_get (VALUE self)
252 GET_OBJ (self, RbWindow, win);
254 return TO_ECORE_X_WINDOW (Qnil,
255 ecore_x_window_parent_get (win->real));
258 static VALUE c_title_get (VALUE self)
260 GET_OBJ (self, RbWindow, win);
262 return rb_str_new2 (ecore_x_window_prop_title_get (win->real));
265 static VALUE c_title_set (VALUE self, VALUE val)
267 GET_OBJ (self, RbWindow, win);
269 Check_Type (val, T_STRING);
271 ecore_x_window_prop_title_set (win->real, StringValuePtr (val));
276 static VALUE c_set_event_mask (VALUE self, VALUE val)
278 GET_OBJ (self, RbWindow, win);
280 Check_Type (val, T_FIXNUM);
282 ecore_x_event_mask_set (win->real, FIX2INT (val));
287 static VALUE c_unset_event_mask (VALUE self, VALUE val)
289 GET_OBJ (self, RbWindow, win);
291 Check_Type (val, T_FIXNUM);
293 ecore_x_event_mask_unset (win->real, FIX2INT (val));
298 static VALUE c_set_protocol (VALUE self, VALUE proto, VALUE on)
300 GET_OBJ (self, RbWindow, win);
302 Check_Type (proto, T_FIXNUM);
305 ecore_x_window_prop_protocol_set (win->real, FIX2INT (proto),
311 static VALUE c_manage (VALUE self)
313 GET_OBJ (self, RbWindow, win);
315 ecore_x_window_manage (win->real);
320 static VALUE c_manage_container (VALUE self)
322 GET_OBJ (self, RbWindow, win);
324 ecore_x_window_container_manage (win->real);
329 static VALUE c_manage_client (VALUE self)
331 GET_OBJ (self, RbWindow, win);
333 ecore_x_window_client_manage (win->real);
338 static VALUE c_sniff (VALUE self)
340 GET_OBJ (self, RbWindow, win);
342 ecore_x_window_sniff (win->real);
347 static VALUE c_sniff_client (VALUE self)
349 GET_OBJ (self, RbWindow, win);
351 ecore_x_window_client_sniff (win->real);
356 void Init_Window (void)
358 cWindow = rb_define_class_under (mX, "Window", rb_cObject);
360 rb_define_singleton_method (cWindow, "new", c_new, -1);
361 rb_define_method (cWindow, "inspect", c_inspect, 0);
362 rb_define_method (cWindow, "==", c_equal_value, 1);
363 rb_define_method (cWindow, "show", c_show, 0);
364 rb_define_method (cWindow, "hide", c_hide, 0);
365 rb_define_method (cWindow, "visible?", c_visible_get, 0);
366 rb_define_method (cWindow, "delete", c_delete, 0);
367 rb_define_method (cWindow, "raise", c_raise, 0);
368 rb_define_method (cWindow, "lower", c_lower, 0);
369 rb_define_method (cWindow, "reparent", c_reparent, 3);
370 rb_define_method (cWindow, "move", c_move, 2);
371 rb_define_method (cWindow, "resize", c_resize, 2);
372 rb_define_method (cWindow, "size", c_size_get, 0);
373 rb_define_method (cWindow, "geometry", c_geometry_get, 0);
374 rb_define_method (cWindow, "border_size", c_border_size_get, 0);
375 rb_define_method (cWindow, "depth", c_depth_get, 0);
376 rb_define_method (cWindow, "parent", c_parent_get, 0);
377 rb_define_method (cWindow, "title", c_title_get, 0);
378 rb_define_method (cWindow, "title=", c_title_set, 1);
379 rb_define_method (cWindow, "set_event_mask", c_set_event_mask, 1);
380 rb_define_method (cWindow, "unset_event_mask",
381 c_unset_event_mask, 1);
382 rb_define_method (cWindow, "set_protocol", c_set_protocol, 2);
383 rb_define_method (cWindow, "manage", c_manage, 0);
384 rb_define_method (cWindow, "manage_container", c_manage_container, 0);
385 rb_define_method (cWindow, "manage_client", c_manage_client, 0);
386 rb_define_method (cWindow, "sniff", c_sniff, 0);
387 rb_define_method (cWindow, "sniff_client", c_sniff_client, 0);