src/rb_evas_object_events.c

   1 /*
   2  * $Id: rb_evas_object_events.c 282 2005-03-14 21:54:32Z 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         RbEvasObject *e = (RbEvasObject *) data; \
  35         VALUE argv[1] = {(VALUE) event}, klass, cb, ev, s; \
  36 \
  37         s = rb_str_new2 (#name); \
  38         klass = rb_hash_aref (event_classes, s); \
  39         ev = rb_class_new_instance (1, argv, klass); \
  40         cb = rb_hash_aref (e->callbacks, s); \
  41 \
  42         rb_funcall (cb, rb_intern ("call"), 1, ev); \
  43 }
  44
  45 #define CALLBACK_HANDLER_METHOD(name, callback) \
  46         GET_OBJ (self, RbEvasObject, e); \
  47 \
  48         if (!rb_block_given_p ()) \
  49                 return Qnil; \
  50 \
  51         rb_hash_aset (e->callbacks, rb_str_new2 (#name), \
  52                       rb_block_proc ()); \
  53         evas_object_event_callback_add (e->real, EVAS_CALLBACK_##callback, \
  54                                         on_##name, e); \
  55 \
  56         return Qnil;
  57
  58 #define CALLBACK_REGISTER(name, clsname) \
  59         rb_define_method (cEvasObject, "on_"#name, c_on_##name, 0); \
  60 \
  61         c = rb_define_class_under (mEvas, (clsname), cEvent); \
  62         rb_define_private_method (rb_singleton_class (c), "new", NULL, 0); \
  63         rb_define_private_method (c, "initialize", c_ev_##name##_init, 1); \
  64         rb_hash_aset (event_classes, rb_str_new2 (#name), c);
  65
  66 static VALUE event_classes, cPos;
  67
  68 static VALUE c_ev_mouse_down_init (VALUE self, VALUE ev)
  69 {
  70         Evas_Event_Mouse_Down *e = (Evas_Event_Mouse_Down *) ev;
  71
  72         rb_iv_set (self, "@button", INT2FIX (e->button));
  73
  74         return self;
  75 }
  76
  77 static VALUE c_ev_mouse_up_init (VALUE self, VALUE ev)
  78 {
  79         Evas_Event_Mouse_Up *e = (Evas_Event_Mouse_Up *) ev;
  80
  81         rb_iv_set (self, "@button", INT2FIX (e->button));
  82
  83         return self;
  84 }
  85
  86 static VALUE c_ev_mouse_move_init (VALUE self, VALUE ev)
  87 {
  88         VALUE argv[4];
  89         Evas_Event_Mouse_Move *e = (Evas_Event_Mouse_Move *) ev;
  90
  91         argv[0] = INT2FIX ((int) e->cur.output.x);
  92         argv[1] = INT2FIX ((int) e->cur.output.y);
  93         argv[2] = INT2FIX ((int) e->cur.canvas.x);
  94         argv[3] = INT2FIX ((int) e->cur.canvas.y);
  95
  96         rb_iv_set (self, "@current",
  97                    rb_class_new_instance (4, argv, cPos));
  98
  99         argv[0] = INT2FIX ((int) e->prev.output.x);
 100         argv[1] = INT2FIX ((int) e->prev.output.y);
 101         argv[2] = INT2FIX ((int) e->prev.canvas.x);
 102         argv[3] = INT2FIX ((int) e->prev.canvas.y);
 103
 104         rb_iv_set (self, "@previous",
 105                    rb_class_new_instance (4, argv, cPos));
 106         rb_iv_set (self, "@buttons", INT2FIX (e->buttons));
 107
 108         return self;
 109 }
 110
 111 CALLBACK_HANDLER_FUNC (mouse_down);
 112 CALLBACK_HANDLER_FUNC (mouse_up);
 113 CALLBACK_HANDLER_FUNC (mouse_move);
 114
 115 static VALUE c_on_mouse_down (VALUE self)
 116 {
 117         CALLBACK_HANDLER_METHOD (mouse_down, MOUSE_DOWN);
 118 }
 119
 120 static VALUE c_on_mouse_up (VALUE self)
 121 {
 122         CALLBACK_HANDLER_METHOD (mouse_up, MOUSE_UP);
 123 }
 124
 125 static VALUE c_on_mouse_move (VALUE self)
 126 {
 127         CALLBACK_HANDLER_METHOD (mouse_move, MOUSE_MOVE);
 128 }
 129
 130 static VALUE c_ev_init (VALUE self)
 131 {
 132         return self;
 133 }
 134
 135 static VALUE c_pos_init (VALUE self, VALUE output_x, VALUE output_y,
 136                          VALUE canvas_x, VALUE canvas_y)
 137 {
 138         rb_iv_set (self, "@output_x", output_x);
 139         rb_iv_set (self, "@output_y", output_y);
 140         rb_iv_set (self, "@canvas_x", canvas_x);
 141         rb_iv_set (self, "@canvas_y", canvas_y);
 142
 143         return self;
 144 }
 145
 146 void Init_EvasObjectEvents (void)
 147 {
 148         VALUE cEvent, c;
 149
 150         event_classes = rb_hash_new ();
 151         rb_global_variable (&event_classes);
 152
 153         cEvent = rb_define_class_under (mEvas, "EvasObjectEvent", rb_cObject);
 154         rb_define_private_method (rb_singleton_class (cEvent), "new", NULL, 0);
 155         rb_define_private_method (cEvent, "initialize", c_ev_init, 0);
 156
 157         cPos = rb_define_class_under (cEvent, "Position", rb_cObject);
 158         rb_define_private_method (rb_singleton_class (cPos), "new", NULL, 0);
 159         rb_define_private_method (cPos, "initialize", c_pos_init, 4);
 160         rb_define_attr (cPos, "output_x", 1, 0);
 161         rb_define_attr (cPos, "output_y", 1, 0);
 162         rb_define_attr (cPos, "canvas_x", 1, 0);
 163         rb_define_attr (cPos, "canvas_y", 1, 0);
 164
 165         CALLBACK_REGISTER (mouse_down, "MouseDownEvent");
 166         rb_define_attr (c, "button", 1, 0);
 167
 168         CALLBACK_REGISTER (mouse_up, "MouseUpEvent");
 169         rb_define_attr (c, "button", 1, 0);
 170
 171         CALLBACK_REGISTER (mouse_move, "MouseMoveEvent");
 172         rb_define_attr (c, "current", 1, 0);
 173         rb_define_attr (c, "previous", 1, 0);
 174         rb_define_attr (c, "buttons", 1, 0);
 175 }