2 * $Id: rb_window.c 351 2006-02-10 15:25:40Z 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"
30 #include "rb_cursor.h"
34 static void c_mark (RbWindow *w)
36 if (!NIL_P (w->parent))
37 rb_gc_mark (w->parent);
40 static void c_free (RbWindow *w)
43 ecore_x_window_del (w->real);
48 VALUE TO_ECORE_X_WINDOW (VALUE parent, Ecore_X_Window w)
51 RbWindow *window = NULL;
53 self = Data_Make_Struct (cWindow, RbWindow, c_mark, free, window);
56 window->parent = parent;
58 rb_obj_call_init (self, 0, NULL);
63 static VALUE c_alloc (VALUE klass)
65 RbWindow *window = NULL;
67 return Data_Make_Struct (cWindow, RbWindow, c_mark, c_free, window);
70 static VALUE c_init (int argc, VALUE *argv, VALUE self)
72 VALUE parent, geom[4];
74 int i, igeom[4] = {0, 0, 0, 0};
75 Ecore_X_Window pwin = 0;
77 GET_OBJ (self, RbWindow, win);
79 rb_scan_args (argc, argv, "05",
80 &parent, &geom[0], &geom[1], &geom[2], &geom[3]);
82 if (!NIL_P (parent)) {
83 CHECK_CLASS (parent, cWindow);
84 Data_Get_Struct (parent, RbWindow, p);
88 for (i = 0; i < 4; i++)
89 if (!NIL_P (geom[i])) {
90 Check_Type (geom[i], T_FIXNUM);
91 igeom[i] = FIX2INT (geom[i]);
94 win->real = ecore_x_window_new (pwin, igeom[0], igeom[1],
98 rb_iv_set (self, "@cursor", Qnil);
103 static VALUE c_inspect (VALUE self)
107 GET_OBJ (self, RbWindow, win);
109 snprintf (buf, sizeof (buf),
110 "#<%s:%p id=%u>", rb_obj_classname (self),
111 (void *) self, win->real);
113 return rb_str_new2 (buf);
116 static VALUE c_equal_value (VALUE self, VALUE other)
118 GET_OBJ (self, RbWindow, w1);
120 CHECK_CLASS (other, cWindow);
121 GET_OBJ (other, RbWindow, w2);
123 return w1->real == w2->real ? Qtrue : Qfalse;
126 static VALUE c_configure (int argc, VALUE *argv, VALUE self)
128 VALUE mask, geom[4], border, sibling, stackm;
129 RbWindow *sibwin = NULL;
132 GET_OBJ (self, RbWindow, win);
134 rb_scan_args (argc, argv, "17", &mask,
135 &geom[0], &geom[1], &geom[2], &geom[3],
136 &border, &sibling, &stackm);
138 Check_Type (mask, T_FIXNUM);
140 for (i = 0; i < 4; i++)
141 if (!NIL_P (geom[i]))
142 Check_Type (geom[i], T_FIXNUM);
145 Check_Type (border, T_FIXNUM);
147 if (!NIL_P (sibling)) {
148 CHECK_CLASS (sibling, cWindow);
149 Data_Get_Struct (sibling, RbWindow, sibwin);
153 Check_Type (stackm, T_FIXNUM);
155 ecore_x_window_configure (win->real, FIX2INT (mask),
156 NIL_P (geom[0]) ? 0 : FIX2INT (geom[0]),
157 NIL_P (geom[1]) ? 0 : FIX2INT (geom[1]),
158 NIL_P (geom[2]) ? 0 : FIX2INT (geom[2]),
159 NIL_P (geom[3]) ? 0 : FIX2INT (geom[3]),
160 NIL_P (border) ? 0 : FIX2INT (border),
161 sibwin ? sibwin->real : 0,
162 NIL_P (stackm) ? 0 : FIX2INT (stackm));
167 static VALUE c_show (VALUE self)
169 GET_OBJ (self, RbWindow, win);
171 ecore_x_window_show (win->real);
176 static VALUE c_hide (VALUE self)
178 GET_OBJ (self, RbWindow, win);
180 ecore_x_window_hide (win->real);
185 static VALUE c_visible_get (VALUE self)
187 GET_OBJ (self, RbWindow, win);
189 return ecore_x_window_visible_get (win->real) ? Qtrue : Qfalse;
192 static VALUE c_delete (VALUE self)
194 GET_OBJ (self, RbWindow, win);
196 ecore_x_window_del (win->real);
201 static VALUE c_send_delete_request (VALUE self)
203 GET_OBJ (self, RbWindow, win);
205 ecore_x_window_delete_request_send (win->real);
210 static VALUE c_raise (VALUE self)
212 GET_OBJ (self, RbWindow, win);
214 ecore_x_window_raise (win->real);
219 static VALUE c_lower (VALUE self)
221 GET_OBJ (self, RbWindow, win);
223 ecore_x_window_lower (win->real);
228 static VALUE c_reparent (VALUE self, VALUE other, VALUE x, VALUE y)
230 GET_OBJ (self, RbWindow, win);
232 CHECK_CLASS (other, cWindow);
233 GET_OBJ (other, RbWindow, o);
235 Check_Type (x, T_FIXNUM);
236 Check_Type (y, T_FIXNUM);
238 ecore_x_window_reparent (win->real, o->real,
239 FIX2INT (x), FIX2INT (y));
244 static VALUE c_focus (VALUE self)
246 GET_OBJ (self, RbWindow, win);
248 ecore_x_window_focus (win->real);
253 static VALUE c_move (VALUE self, VALUE x, VALUE y)
255 GET_OBJ (self, RbWindow, win);
257 Check_Type (x, T_FIXNUM);
258 Check_Type (y, T_FIXNUM);
260 ecore_x_window_move (win->real, FIX2INT (x), FIX2INT (y));
265 static VALUE c_resize (VALUE self, VALUE w, VALUE h)
267 GET_OBJ (self, RbWindow, win);
269 Check_Type (w, T_FIXNUM);
270 Check_Type (h, T_FIXNUM);
272 ecore_x_window_resize (win->real, FIX2INT (w), FIX2INT (h));
277 static VALUE c_size_get (VALUE self)
281 GET_OBJ (self, RbWindow, win);
283 ecore_x_window_size_get (win->real, &w, &h);
285 return rb_ary_new3 (2, INT2FIX (w), INT2FIX (h));
288 static VALUE c_geometry_get (VALUE self)
290 int x = 0, y = 0, w = 0, h = 0;
292 GET_OBJ (self, RbWindow, win);
294 ecore_x_window_geometry_get (win->real, &x, &y, &w, &h);
296 return rb_ary_new3 (4, INT2FIX (x), INT2FIX (y),
297 INT2FIX (w), INT2FIX (h));
300 static VALUE c_border_width_get (VALUE self)
302 GET_OBJ (self, RbWindow, win);
304 return INT2FIX (ecore_x_window_border_width_get (win->real));
307 static VALUE c_border_width_set (VALUE self, VALUE val)
309 GET_OBJ (self, RbWindow, win);
311 Check_Type (val, T_FIXNUM);
313 ecore_x_window_border_width_set (win->real, FIX2INT (val));
318 static VALUE c_depth_get (VALUE self)
320 GET_OBJ (self, RbWindow, win);
322 return INT2FIX (ecore_x_window_depth_get (win->real));
325 static VALUE c_parent_get (VALUE self)
327 GET_OBJ (self, RbWindow, win);
329 return TO_ECORE_X_WINDOW (Qnil,
330 ecore_x_window_parent_get (win->real));
334 static VALUE c_title_get (VALUE self)
338 GET_OBJ (self, RbWindow, win);
340 s = ecore_x_window_prop_title_get (win->real);
342 return s ? rb_str_new2 (s) : Qnil;
345 static VALUE c_title_set (VALUE self, VALUE val)
347 GET_OBJ (self, RbWindow, win);
349 Check_Type (val, T_STRING);
351 ecore_x_window_prop_title_set (win->real, StringValuePtr (val));
357 static VALUE c_set_event_mask (VALUE self, VALUE val)
359 GET_OBJ (self, RbWindow, win);
361 Check_Type (val, T_FIXNUM);
363 ecore_x_event_mask_set (win->real, FIX2INT (val));
368 static VALUE c_unset_event_mask (VALUE self, VALUE val)
370 GET_OBJ (self, RbWindow, win);
372 Check_Type (val, T_FIXNUM);
374 ecore_x_event_mask_unset (win->real, FIX2INT (val));
380 static VALUE c_set_protocol (VALUE self, VALUE proto, VALUE on)
382 GET_OBJ (self, RbWindow, win);
384 Check_Type (proto, T_FIXNUM);
387 ecore_x_window_prop_protocol_set (win->real, FIX2INT (proto),
394 static VALUE c_get_protocol (VALUE self, VALUE proto)
398 GET_OBJ (self, RbWindow, win);
400 s = ecore_x_window_prop_protocol_isset (win->real, FIX2INT (proto));
402 return s ? Qtrue : Qfalse;
406 static VALUE c_sticky_get (VALUE self)
410 GET_OBJ (self, RbWindow, win);
412 s = ecore_x_window_prop_state_isset (win->real,
413 ECORE_X_WINDOW_STATE_STICKY);
415 return s ? Qtrue : Qfalse;
418 static VALUE c_sticky_set (VALUE self, VALUE val)
420 GET_OBJ (self, RbWindow, win);
424 ecore_x_window_prop_sticky_set (win->real, val == Qtrue);
429 static VALUE c_borderless_get (VALUE self)
433 GET_OBJ (self, RbWindow, win);
435 s = ecore_x_window_prop_borderless_get (win->real);
437 return s ? Qtrue : Qfalse;
440 static VALUE c_borderless_set (VALUE self, VALUE val)
442 GET_OBJ (self, RbWindow, win);
446 ecore_x_window_prop_borderless_set (win->real, val == Qtrue);
452 static VALUE c_cursor_set (VALUE self, VALUE val)
454 GET_OBJ (self, RbWindow, win);
456 CHECK_CLASS (val, cCursor);
457 GET_OBJ (val, RbCursor, c);
459 ecore_x_window_cursor_set (win->real, c->real);
460 rb_iv_set (self, "@cursor", val);
465 static VALUE c_manage (VALUE self)
467 GET_OBJ (self, RbWindow, win);
469 ecore_x_window_manage (win->real);
474 static VALUE c_manage_container (VALUE self)
476 GET_OBJ (self, RbWindow, win);
478 ecore_x_window_container_manage (win->real);
483 static VALUE c_manage_client (VALUE self)
485 GET_OBJ (self, RbWindow, win);
487 ecore_x_window_client_manage (win->real);
492 static VALUE c_sniff (VALUE self)
494 GET_OBJ (self, RbWindow, win);
496 ecore_x_window_sniff (win->real);
501 static VALUE c_sniff_client (VALUE self)
503 GET_OBJ (self, RbWindow, win);
505 ecore_x_window_client_sniff (win->real);
510 void Init_Window (void)
512 cWindow = rb_define_class_under (mX, "Window", rb_cObject);
514 rb_define_alloc_func (cWindow, c_alloc);
515 rb_define_method (cWindow, "initialize", c_init, -1);
516 rb_define_method (cWindow, "inspect", c_inspect, 0);
517 rb_define_method (cWindow, "eql?", c_equal_value, 1);
518 rb_define_method (cWindow, "==", c_equal_value, 1);
519 rb_define_method (cWindow, "===", c_equal_value, 1);
520 rb_define_method (cWindow, "configure", c_configure, -1);
521 rb_define_method (cWindow, "show", c_show, 0);
522 rb_define_method (cWindow, "hide", c_hide, 0);
523 rb_define_method (cWindow, "visible?", c_visible_get, 0);
524 rb_define_method (cWindow, "delete", c_delete, 0);
525 rb_define_method (cWindow, "send_delete_request",
526 c_send_delete_request, 0);
527 rb_define_method (cWindow, "raise", c_raise, 0);
528 rb_define_method (cWindow, "lower", c_lower, 0);
529 rb_define_method (cWindow, "reparent", c_reparent, 3);
530 rb_define_method (cWindow, "focus", c_focus, 0);
531 rb_define_method (cWindow, "move", c_move, 2);
532 rb_define_method (cWindow, "resize", c_resize, 2);
533 rb_define_method (cWindow, "size", c_size_get, 0);
534 rb_define_method (cWindow, "geometry", c_geometry_get, 0);
535 rb_define_method (cWindow, "border_width", c_border_width_get, 0);
536 rb_define_method (cWindow, "border_width=", c_border_width_set, 1);
537 rb_define_method (cWindow, "depth", c_depth_get, 0);
538 rb_define_method (cWindow, "parent", c_parent_get, 0);
540 rb_define_method (cWindow, "title", c_title_get, 0);
541 rb_define_method (cWindow, "title=", c_title_set, 1);
543 rb_define_method (cWindow, "set_event_mask", c_set_event_mask, 1);
544 rb_define_method (cWindow, "unset_event_mask",
545 c_unset_event_mask, 1);
547 rb_define_method (cWindow, "set_protocol", c_set_protocol, 2);
549 rb_define_method (cWindow, "get_protocol", c_get_protocol, 1);
551 rb_define_method (cWindow, "sticky?", c_sticky_get, 0);
552 rb_define_method (cWindow, "sticky=", c_sticky_set, 1);
553 rb_define_method (cWindow, "borderless?", c_borderless_get, 0);
554 rb_define_method (cWindow, "borderless=", c_borderless_set, 1);
556 rb_define_method (cWindow, "cursor=", c_cursor_set, 1);
557 rb_define_method (cWindow, "manage", c_manage, 0);
558 rb_define_method (cWindow, "manage_container", c_manage_container, 0);
559 rb_define_method (cWindow, "manage_client", c_manage_client, 0);
560 rb_define_method (cWindow, "sniff", c_sniff, 0);
561 rb_define_method (cWindow, "sniff_client", c_sniff_client, 0);
563 rb_define_attr (cWindow, "cursor", 1, 0);