src/rb_evas_object_events.c

   1 /*
   2  * $Id: rb_evas_object_events.c 370 2006-02-15 18:14:53Z tilman $
   3  *
   4  * Copyright (C) 2005 Tilman Sauerbeck (tilman at code-monkey de)
   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 #include <stdbool.h>
  23
  24 #include <Evas.h>
  25
  26 #include "rb_evas_main.h"
  27 #include "rb_evas.h"
  28 #include "rb_evas_object.h"
  29
  30 #define CALLBACK_HANDLER_FUNC(name) \
  31         static void on_##name (void *data, Evas *evas, \
  32                                Evas_Object *evas_obj, void *event) \
  33 { \
  34         VALUE tmp = (VALUE) event, klass, cb = (VALUE) data, ev; \
  35 \
  36         klass = rb_hash_aref (event_classes, INT2FIX (EVAS_CALLBACK_##name)); \
  37         if (!NIL_P (klass)) { \
  38                 ev = rb_class_new_instance (1, &tmp, klass); \
  39                 rb_funcall (cb, rb_intern ("call"), 1, ev); \
  40         } else \
  41                 rb_funcall (cb, rb_intern ("call"), 0); \
  42 }
  43
  44 #define CALLBACK_HANDLER_METHOD(callback) \
  45         VALUE cb; \
  46         GET_OBJ (self, RbEvasObject, e); \
  47 \
  48         if (!rb_block_given_p ()) \
  49                 return Qnil; \
  50 \
  51         cb = rb_block_proc (); \
  52 \
  53         if (NIL_P (e->callbacks)) \
  54                 e->callbacks = rb_ary_new (); \
  55 \
  56         rb_ary_push (e->callbacks, cb); \
  57 \
  58         evas_object_event_callback_add (e->real, EVAS_CALLBACK_##callback, \
  59                                         on_##callback, (void *) cb); \
  60 \
  61         return Qnil;
  62
  63 #define CALLBACK_REGISTER(name, callback, clsname) \
  64         rb_define_method (cEvasObject, "on_"#name, c_on_##name, 0); \
  65 \
  66         c = rb_define_class_under (mEvas, (clsname), cEvent); \
  67         rb_define_private_method (rb_singleton_class (c), "new", NULL, 0); \
  68         rb_define_private_method (c, "initialize", c_ev_##name##_init, 1); \
  69 \
  70         rb_hash_aset (event_classes, INT2FIX (EVAS_CALLBACK_##callback), c);
  71
  72 #define CALLBACK_REGISTER2(name) \
  73         rb_define_method (cEvasObject, "on_"#name, c_on_##name, 0);
  74
  75 #define TO_STR(s) \
  76         (s) ? rb_str_new2 ((s)) : Qnil
  77
  78 static VALUE event_classes, cPos;
  79
  80 static VALUE c_ev_mouse_in_init (VALUE self, VALUE ev)
  81 {
  82         VALUE argv[4];
  83         Evas_Event_Mouse_In *e = (Evas_Event_Mouse_In *) ev;
  84
  85         argv[0] = INT2FIX ((int) e->output.x);
  86         argv[1] = INT2FIX ((int) e->output.y);
  87         argv[2] = INT2FIX ((int) e->canvas.x);
  88         argv[3] = INT2FIX ((int) e->canvas.y);
  89
  90         rb_iv_set (self, "@position",
  91                    rb_class_new_instance (4, argv, cPos));
  92         rb_iv_set (self, "@buttons", INT2FIX (e->buttons));
  93
  94         return self;
  95 }
  96
  97 static VALUE c_ev_mouse_out_init (VALUE self, VALUE ev)
  98 {
  99         VALUE argv[4];
 100         Evas_Event_Mouse_Out *e = (Evas_Event_Mouse_Out *) ev;
 101
 102         argv[0] = INT2FIX ((int) e->output.x);
 103         argv[1] = INT2FIX ((int) e->output.y);
 104         argv[2] = INT2FIX ((int) e->canvas.x);
 105         argv[3] = INT2FIX ((int) e->canvas.y);
 106
 107         rb_iv_set (self, "@position",
 108                    rb_class_new_instance (4, argv, cPos));
 109         rb_iv_set (self, "@buttons", INT2FIX (e->buttons));
 110
 111         return self;
 112 }
 113
 114 static VALUE c_ev_mouse_down_init (VALUE self, VALUE ev)
 115 {
 116         VALUE argv[4];
 117         Evas_Event_Mouse_Down *e = (Evas_Event_Mouse_Down *) ev;
 118
 119         argv[0] = INT2FIX ((int) e->output.x);
 120         argv[1] = INT2FIX ((int) e->output.y);
 121         argv[2] = INT2FIX ((int) e->canvas.x);
 122         argv[3] = INT2FIX ((int) e->canvas.y);
 123
 124         rb_iv_set (self, "@position",
 125                    rb_class_new_instance (4, argv, cPos));
 126         rb_iv_set (self, "@button", INT2FIX (e->button));
 127
 128         return self;
 129 }
 130
 131 static VALUE c_ev_mouse_up_init (VALUE self, VALUE ev)
 132 {
 133         VALUE argv[4];
 134         Evas_Event_Mouse_Up *e = (Evas_Event_Mouse_Up *) ev;
 135
 136         argv[0] = INT2FIX ((int) e->output.x);
 137         argv[1] = INT2FIX ((int) e->output.y);
 138         argv[2] = INT2FIX ((int) e->canvas.x);
 139         argv[3] = INT2FIX ((int) e->canvas.y);
 140
 141         rb_iv_set (self, "@position",
 142                    rb_class_new_instance (4, argv, cPos));
 143         rb_iv_set (self, "@button", INT2FIX (e->button));
 144
 145         return self;
 146 }
 147
 148 static VALUE c_ev_mouse_move_init (VALUE self, VALUE ev)
 149 {
 150         VALUE argv[4];
 151         Evas_Event_Mouse_Move *e = (Evas_Event_Mouse_Move *) ev;
 152
 153         argv[0] = INT2FIX ((int) e->cur.output.x);
 154         argv[1] = INT2FIX ((int) e->cur.output.y);
 155         argv[2] = INT2FIX ((int) e->cur.canvas.x);
 156         argv[3] = INT2FIX ((int) e->cur.canvas.y);
 157
 158         rb_iv_set (self, "@current",
 159                    rb_class_new_instance (4, argv, cPos));
 160
 161         argv[0] = INT2FIX ((int) e->prev.output.x);
 162         argv[1] = INT2FIX ((int) e->prev.output.y);
 163         argv[2] = INT2FIX ((int) e->prev.canvas.x);
 164         argv[3] = INT2FIX ((int) e->prev.canvas.y);
 165
 166         rb_iv_set (self, "@previous",
 167                    rb_class_new_instance (4, argv, cPos));
 168         rb_iv_set (self, "@buttons", INT2FIX (e->buttons));
 169
 170         return self;
 171 }
 172
 173 static VALUE c_ev_mouse_wheel_init (VALUE self, VALUE ev)
 174 {
 175         VALUE argv[4];
 176         Evas_Event_Mouse_Wheel *e = (Evas_Event_Mouse_Wheel *) ev;
 177
 178         argv[0] = INT2FIX ((int) e->output.x);
 179         argv[1] = INT2FIX ((int) e->output.y);
 180         argv[2] = INT2FIX ((int) e->canvas.x);
 181         argv[3] = INT2FIX ((int) e->canvas.y);
 182
 183         rb_iv_set (self, "@position",
 184                    rb_class_new_instance (4, argv, cPos));
 185         rb_iv_set (self, "@direction", INT2FIX (e->direction));
 186         rb_iv_set (self, "@z", INT2FIX (e->z));
 187
 188         return self;
 189 }
 190
 191 static VALUE c_ev_key_down_init (VALUE self, VALUE ev)
 192 {
 193         Evas_Event_Key_Down *e = (Evas_Event_Key_Down *) ev;
 194
 195         rb_iv_set (self, "@keyname", TO_STR (e->keyname));
 196         rb_iv_set (self, "@key", TO_STR (e->key));
 197         rb_iv_set (self, "@string", TO_STR (e->string));
 198         rb_iv_set (self, "@compose", TO_STR (e->compose));
 199
 200         return self;
 201 }
 202
 203 static VALUE c_ev_key_up_init (VALUE self, VALUE ev)
 204 {
 205         Evas_Event_Key_Up *e = (Evas_Event_Key_Up *) ev;
 206
 207         rb_iv_set (self, "@keyname", TO_STR (e->keyname));
 208         rb_iv_set (self, "@key", TO_STR (e->key));
 209         rb_iv_set (self, "@string", TO_STR (e->string));
 210         rb_iv_set (self, "@compose", TO_STR (e->compose));
 211
 212         return self;
 213 }
 214
 215 CALLBACK_HANDLER_FUNC (MOUSE_IN);
 216 CALLBACK_HANDLER_FUNC (MOUSE_OUT);
 217 CALLBACK_HANDLER_FUNC (MOUSE_DOWN);
 218 CALLBACK_HANDLER_FUNC (MOUSE_UP);
 219 CALLBACK_HANDLER_FUNC (MOUSE_MOVE);
 220 CALLBACK_HANDLER_FUNC (MOUSE_WHEEL);
 221 CALLBACK_HANDLER_FUNC (KEY_DOWN);
 222 CALLBACK_HANDLER_FUNC (KEY_UP);
 223 CALLBACK_HANDLER_FUNC (FOCUS_IN);
 224 CALLBACK_HANDLER_FUNC (FOCUS_OUT);
 225 CALLBACK_HANDLER_FUNC (SHOW);
 226 CALLBACK_HANDLER_FUNC (HIDE);
 227 CALLBACK_HANDLER_FUNC (MOVE);
 228 CALLBACK_HANDLER_FUNC (RESIZE);
 229 CALLBACK_HANDLER_FUNC (RESTACK);
 230
 231 static VALUE c_on_mouse_in (VALUE self)
 232 {
 233         CALLBACK_HANDLER_METHOD (MOUSE_IN);
 234 }
 235
 236 static VALUE c_on_mouse_out (VALUE self)
 237 {
 238         CALLBACK_HANDLER_METHOD (MOUSE_OUT);
 239 }
 240
 241 static VALUE c_on_mouse_down (VALUE self)
 242 {
 243         CALLBACK_HANDLER_METHOD (MOUSE_DOWN);
 244 }
 245
 246 static VALUE c_on_mouse_up (VALUE self)
 247 {
 248         CALLBACK_HANDLER_METHOD (MOUSE_UP);
 249 }
 250
 251 static VALUE c_on_mouse_move (VALUE self)
 252 {
 253         CALLBACK_HANDLER_METHOD (MOUSE_MOVE);
 254 }
 255
 256 static VALUE c_on_mouse_wheel (VALUE self)
 257 {
 258         CALLBACK_HANDLER_METHOD (MOUSE_WHEEL);
 259 }
 260
 261 static VALUE c_on_key_down (VALUE self)
 262 {
 263         CALLBACK_HANDLER_METHOD (KEY_DOWN);
 264 }
 265
 266 static VALUE c_on_key_up (VALUE self)
 267 {
 268         CALLBACK_HANDLER_METHOD (KEY_UP);
 269 }
 270
 271 static VALUE c_on_focus_in (VALUE self)
 272 {
 273         CALLBACK_HANDLER_METHOD (FOCUS_IN);
 274 }
 275
 276 static VALUE c_on_focus_out (VALUE self)
 277 {
 278         CALLBACK_HANDLER_METHOD (FOCUS_OUT);
 279 }
 280
 281 static VALUE c_on_show (VALUE self)
 282 {
 283         CALLBACK_HANDLER_METHOD (SHOW);
 284 }
 285
 286 static VALUE c_on_hide (VALUE self)
 287 {
 288         CALLBACK_HANDLER_METHOD (HIDE);
 289 }
 290
 291 static VALUE c_on_move (VALUE self)
 292 {
 293         CALLBACK_HANDLER_METHOD (MOVE);
 294 }
 295
 296 static VALUE c_on_resize (VALUE self)
 297 {
 298         CALLBACK_HANDLER_METHOD (RESIZE);
 299 }
 300
 301 static VALUE c_on_restack (VALUE self)
 302 {
 303         CALLBACK_HANDLER_METHOD (RESTACK);
 304 }
 305
 306 static VALUE c_ev_init (VALUE argc, VALUE argv, VALUE self)
 307 {
 308         return self;
 309 }
 310
 311 static VALUE c_pos_init (VALUE self, VALUE output_x, VALUE output_y,
 312                          VALUE canvas_x, VALUE canvas_y)
 313 {
 314         rb_iv_set (self, "@output_x", output_x);
 315         rb_iv_set (self, "@output_y", output_y);
 316         rb_iv_set (self, "@canvas_x", canvas_x);
 317         rb_iv_set (self, "@canvas_y", canvas_y);
 318
 319         return self;
 320 }
 321
 322 void Init_EvasObjectEvents (void)
 323 {
 324         VALUE cEvent, c;
 325
 326         event_classes = rb_hash_new ();
 327         rb_global_variable (&event_classes);
 328
 329         cEvent = rb_define_class_under (mEvas, "EvasObjectEvent", rb_cObject);
 330         rb_define_private_method (rb_singleton_class (cEvent), "new", NULL, 0);
 331         rb_define_private_method (cEvent, "initialize", c_ev_init, -1);
 332
 333         cPos = rb_define_class_under (cEvent, "Position", rb_cObject);
 334         rb_define_private_method (rb_singleton_class (cPos), "new", NULL, 0);
 335         rb_define_private_method (cPos, "initialize", c_pos_init, 4);
 336         rb_define_attr (cPos, "output_x", 1, 0);
 337         rb_define_attr (cPos, "output_y", 1, 0);
 338         rb_define_attr (cPos, "canvas_x", 1, 0);
 339         rb_define_attr (cPos, "canvas_y", 1, 0);
 340
 341         CALLBACK_REGISTER (mouse_in, MOUSE_IN, "MouseInEvent");
 342         rb_define_attr (c, "buttons", 1, 0);
 343         rb_define_attr (c, "position", 1, 0);
 344
 345         CALLBACK_REGISTER (mouse_out, MOUSE_OUT, "MouseOutEvent");
 346         rb_define_attr (c, "buttons", 1, 0);
 347         rb_define_attr (c, "position", 1, 0);
 348
 349         CALLBACK_REGISTER (mouse_down, MOUSE_DOWN, "MouseDownEvent");
 350         rb_define_attr (c, "button", 1, 0);
 351         rb_define_attr (c, "position", 1, 0);
 352
 353         CALLBACK_REGISTER (mouse_up, MOUSE_UP, "MouseUpEvent");
 354         rb_define_attr (c, "button", 1, 0);
 355         rb_define_attr (c, "position", 1, 0);
 356
 357         CALLBACK_REGISTER (mouse_move, MOUSE_MOVE, "MouseMoveEvent");
 358         rb_define_attr (c, "current", 1, 0);
 359         rb_define_attr (c, "previous", 1, 0);
 360         rb_define_attr (c, "buttons", 1, 0);
 361
 362         CALLBACK_REGISTER (mouse_wheel, MOUSE_WHEEL, "MouseWheelEvent");
 363         rb_define_attr (c, "direction", 1, 0);
 364         rb_define_attr (c, "z", 1, 0);
 365         rb_define_attr (c, "position", 1, 0);
 366
 367         CALLBACK_REGISTER (key_down, KEY_DOWN, "KeyDownEvent");
 368         rb_define_attr (c, "keyname", 1, 0);
 369         rb_define_attr (c, "key", 1, 0);
 370         rb_define_attr (c, "string", 1, 0);
 371         rb_define_attr (c, "compose", 1, 0);
 372
 373         CALLBACK_REGISTER (key_up, KEY_UP, "KeyUpEvent");
 374         rb_define_attr (c, "keyname", 1, 0);
 375         rb_define_attr (c, "key", 1, 0);
 376         rb_define_attr (c, "string", 1, 0);
 377         rb_define_attr (c, "compose", 1, 0);
 378
 379         CALLBACK_REGISTER2 (focus_in);
 380         CALLBACK_REGISTER2 (focus_out);
 381         CALLBACK_REGISTER2 (show);
 382         CALLBACK_REGISTER2 (hide);
 383         CALLBACK_REGISTER2 (move);
 384         CALLBACK_REGISTER2 (resize);
 385         CALLBACK_REGISTER2 (restack);
 386 }