src/ecore_x/rb_window.c

   1 /*
   2  * $Id: rb_window.c 81 2004-08-21 09:43:23Z tilman $
   3  *
   4  * Copyright (C) 2004 ruby-ecore team (see AUTHORS)
   5  *
   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.
  10  *
  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.
  15  *
  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
  19  */
  20
  21 #include <ruby.h>
  22
  23 #include <Ecore.h>
  24 #include <Ecore_X.h>
  25
  26 #define __RB_WINDOW_C
  27 #include "../ecore/rb_ecore.h"
  28 #include "rb_ecore_x.h"
  29 #include "rb_window.h"
  30
  31 VALUE cWindow;
  32
  33 static void c_mark (RbWindow *w)
  34 {
  35         if (!NIL_P (w->parent))
  36                 rb_gc_mark (w->parent);
  37 }
  38
  39 static void c_free (RbWindow *w)
  40 {
  41         if (w->real)
  42                 ecore_x_window_del (w->real);
  43
  44         free (w);
  45 }
  46
  47 VALUE TO_ECORE_X_WINDOW (VALUE parent, Ecore_X_Window w)
  48 {
  49         VALUE self;
  50         RbWindow *window = NULL;
  51
  52         self = Data_Make_Struct (cWindow, RbWindow, c_mark, free, window);
  53
  54         window->real = w;
  55         window->parent = parent;
  56
  57         rb_obj_call_init (self, 0, NULL);
  58
  59         return self;
  60 }
  61
  62 static VALUE c_new (int argc, VALUE *argv, VALUE klass)
  63 {
  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;
  68
  69         self = Data_Make_Struct (cWindow, RbWindow, c_mark, c_free, window);
  70
  71         rb_scan_args (argc, argv, "05",
  72                       &parent, &geom[0], &geom[1], &geom[2], &geom[3]);
  73
  74         if (!NIL_P (parent)) {
  75                 CHECK_CLASS (parent, cWindow);
  76                 Data_Get_Struct (parent, RbWindow, p);
  77                 pwin = p->real;
  78         }
  79
  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]);
  84                 }
  85
  86         window->real = ecore_x_window_new (pwin, igeom[0], igeom[1],
  87                                            igeom[2], igeom[3]);
  88         window->parent = parent;
  89
  90         rb_obj_call_init (self, 0, NULL);
  91
  92         return self;
  93 }
  94
  95 static VALUE c_equal_value (VALUE self, VALUE other)
  96 {
  97         GET_OBJ (self, RbWindow, w1);
  98
  99         CHECK_CLASS (other, cWindow);
 100         GET_OBJ (other, RbWindow, w2);
 101
 102         return w1->real == w2->real ? Qtrue : Qfalse;
 103 }
 104
 105 static VALUE c_show (VALUE self)
 106 {
 107         GET_OBJ (self, RbWindow, win);
 108
 109         ecore_x_window_show (win->real);
 110
 111         return Qnil;
 112 }
 113
 114 static VALUE c_hide (VALUE self)
 115 {
 116         GET_OBJ (self, RbWindow, win);
 117
 118         ecore_x_window_hide (win->real);
 119
 120         return Qnil;
 121 }
 122
 123 static VALUE c_visible_get (VALUE self)
 124 {
 125         GET_OBJ (self, RbWindow, win);
 126
 127         return ecore_x_window_visible_get (win->real) ? Qtrue : Qfalse;
 128 }
 129
 130 static VALUE c_delete (VALUE self)
 131 {
 132         GET_OBJ (self, RbWindow, win);
 133
 134         if (win->real) {
 135                 ecore_x_window_del (win->real);
 136                 win->real = 0;
 137         }
 138
 139         return Qnil;
 140 }
 141
 142 static VALUE c_raise (VALUE self)
 143 {
 144         GET_OBJ (self, RbWindow, win);
 145
 146         ecore_x_window_raise (win->real);
 147
 148         return Qnil;
 149 }
 150
 151 static VALUE c_lower (VALUE self)
 152 {
 153         GET_OBJ (self, RbWindow, win);
 154
 155         ecore_x_window_lower (win->real);
 156
 157         return Qnil;
 158 }
 159
 160 static VALUE c_reparent (VALUE self, VALUE other, VALUE x, VALUE y)
 161 {
 162         GET_OBJ (self, RbWindow, win);
 163
 164         CHECK_CLASS (other, cWindow);
 165         GET_OBJ (other, RbWindow, o);
 166
 167         Check_Type (x, T_FIXNUM);
 168         Check_Type (y, T_FIXNUM);
 169
 170         ecore_x_window_reparent (win->real, o->real,
 171                                  FIX2INT (x), FIX2INT (y));
 172
 173         return Qnil;
 174 }
 175
 176 static VALUE c_move (VALUE self, VALUE x, VALUE y)
 177 {
 178         GET_OBJ (self, RbWindow, win);
 179
 180         Check_Type (x, T_FIXNUM);
 181         Check_Type (y, T_FIXNUM);
 182
 183         ecore_x_window_move (win->real, FIX2INT (x), FIX2INT (y));
 184
 185         return Qnil;
 186 }
 187
 188 static VALUE c_resize (VALUE self, VALUE w, VALUE h)
 189 {
 190         GET_OBJ (self, RbWindow, win);
 191
 192         Check_Type (w, T_FIXNUM);
 193         Check_Type (h, T_FIXNUM);
 194
 195         ecore_x_window_move (win->real, FIX2INT (w), FIX2INT (h));
 196
 197         return Qnil;
 198 }
 199
 200 static VALUE c_size_get (VALUE self)
 201 {
 202         int w = 0, h = 0;
 203
 204         GET_OBJ (self, RbWindow, win);
 205
 206         ecore_x_window_size_get (win->real, &w, &h);
 207
 208         return rb_ary_new3 (2, INT2FIX (w), INT2FIX (h));
 209 }
 210
 211 static VALUE c_geometry_get (VALUE self)
 212 {
 213         int x = 0, y = 0, w = 0, h = 0;
 214
 215         GET_OBJ (self, RbWindow, win);
 216
 217         ecore_x_window_geometry_get (win->real, &x, &y, &w, &h);
 218
 219         return rb_ary_new3 (4, INT2FIX (x), INT2FIX (y),
 220                             INT2FIX (w), INT2FIX (h));
 221 }
 222
 223 static VALUE c_border_size_get (VALUE self)
 224 {
 225         GET_OBJ (self, RbWindow, win);
 226
 227         return INT2FIX (ecore_x_window_border_size_get (win->real));
 228 }
 229
 230 static VALUE c_depth_get (VALUE self)
 231 {
 232         GET_OBJ (self, RbWindow, win);
 233
 234         return INT2FIX (ecore_x_window_depth_get (win->real));
 235 }
 236
 237 static VALUE c_parent_get (VALUE self)
 238 {
 239         GET_OBJ (self, RbWindow, win);
 240
 241         return TO_ECORE_X_WINDOW (Qnil,
 242                                   ecore_x_window_parent_get (win->real));
 243 }
 244
 245 static VALUE c_title_get (VALUE self)
 246 {
 247         GET_OBJ (self, RbWindow, win);
 248
 249         return rb_str_new2 (ecore_x_window_prop_title_get (win->real));
 250 }
 251
 252 static VALUE c_title_set (VALUE self, VALUE val)
 253 {
 254         GET_OBJ (self, RbWindow, win);
 255
 256         Check_Type (val, T_STRING);
 257
 258         ecore_x_window_prop_title_set (win->real, StringValuePtr (val));
 259
 260         return Qnil;
 261 }
 262
 263 static VALUE c_set_event_mask (VALUE self, VALUE val)
 264 {
 265         GET_OBJ (self, RbWindow, win);
 266
 267         Check_Type (val, T_FIXNUM);
 268
 269         ecore_x_event_mask_set (win->real, FIX2INT (val));
 270
 271         return Qnil;
 272 }
 273
 274 static VALUE c_unset_event_mask (VALUE self, VALUE val)
 275 {
 276         GET_OBJ (self, RbWindow, win);
 277
 278         Check_Type (val, T_FIXNUM);
 279
 280         ecore_x_event_mask_unset (win->real, FIX2INT (val));
 281
 282         return Qnil;
 283 }
 284
 285 static VALUE c_set_protocol (VALUE self, VALUE proto, VALUE on)
 286 {
 287         GET_OBJ (self, RbWindow, win);
 288
 289         Check_Type (proto, T_FIXNUM);
 290         CHECK_BOOL (on);
 291
 292         ecore_x_window_prop_protocol_set (win->real, FIX2INT (proto),
 293                                           on == Qtrue);
 294
 295         return Qnil;
 296 }
 297
 298 void Init_Window (void)
 299 {
 300         cWindow = rb_define_class_under (mX, "Window", rb_cObject);
 301
 302         rb_define_singleton_method (cWindow, "new", c_new, -1);
 303         rb_define_method (cWindow, "==", c_equal_value, 1);
 304         rb_define_method (cWindow, "show", c_show, 0);
 305         rb_define_method (cWindow, "hide", c_hide, 0);
 306         rb_define_method (cWindow, "visible?", c_visible_get, 0);
 307         rb_define_method (cWindow, "delete", c_delete, 0);
 308         rb_define_method (cWindow, "raise", c_raise, 0);
 309         rb_define_method (cWindow, "lower", c_lower, 0);
 310         rb_define_method (cWindow, "reparent", c_reparent, 3);
 311         rb_define_method (cWindow, "move", c_move, 2);
 312         rb_define_method (cWindow, "resize", c_resize, 2);
 313         rb_define_method (cWindow, "size", c_size_get, 0);
 314         rb_define_method (cWindow, "geometry", c_geometry_get, 0);
 315         rb_define_method (cWindow, "border_size", c_border_size_get, 0);
 316         rb_define_method (cWindow, "depth", c_depth_get, 0);
 317         rb_define_method (cWindow, "parent", c_parent_get, 0);
 318         rb_define_method (cWindow, "title", c_title_get, 0);
 319         rb_define_method (cWindow, "title=", c_title_set, 1);
 320         rb_define_method (cWindow, "set_event_mask", c_set_event_mask, 1);
 321         rb_define_method (cWindow, "unset_event_mask",
 322                           c_unset_event_mask, 1);
 323         rb_define_method (cWindow, "set_protocol", c_set_protocol, 2);
 324 }