/*
- * $Id: rb_timer.c 77 2004-08-19 17:39:29Z tilman $
+ * $Id: rb_timer.c 351 2006-02-10 15:25:40Z tilman $
*
* Copyright (C) 2004 ruby-ecore team (see AUTHORS)
*
free (timer);
}
+static VALUE c_alloc (VALUE klass)
+{
+ RbTimer *timer = NULL;
+
+ ecore_init ();
+
+ return Data_Make_Struct (klass, RbTimer, c_mark, c_free, timer);
+}
+
/*
* call-seq:
* Ecore::Timer.new(interval) { block } => timer
* When the timeout is hit, the block is called.
* If the block returns false, the timer is deleted.
*/
-static VALUE c_new (VALUE klass, VALUE interval)
+static VALUE c_init (VALUE self, VALUE interval)
{
- VALUE self;
- RbTimer *timer = NULL;
+ GET_OBJ (self, RbTimer, timer);
if (!rb_block_given_p ())
- return Qnil;
-
- self = Data_Make_Struct (klass, RbTimer, c_mark, c_free, timer);
-
- ecore_init ();
+ rb_raise (rb_eStandardError, "block missing");
timer->callback = rb_block_proc ();
timer->deleted = false;
timer->real = ecore_timer_add (NUM2DBL (interval),
on_timer, timer);
- rb_obj_call_init (self, 0, NULL);
-
return self;
}
return Qnil;
}
+static VALUE c_deleted_get (VALUE self)
+{
+ GET_OBJ (self, RbTimer, timer);
+
+ return timer->deleted ? Qtrue : Qfalse;
+}
+
+static VALUE c_interval_set (VALUE self, VALUE interval)
+{
+ GET_OBJ (self, RbTimer, timer);
+
+ ecore_timer_interval_set (timer->real, NUM2DBL (interval));
+
+ return Qnil;
+}
+
void Init_Timer (void)
{
VALUE c = rb_define_class_under (mEcore, "Timer", rb_cObject);
- rb_define_singleton_method (c, "new", c_new, 1);
+ rb_define_alloc_func (c, c_alloc);
+ rb_define_method (c, "initialize", c_init, 1);
rb_define_method (c, "delete", c_delete, 0);
+ rb_define_method (c, "deleted?", c_deleted_get, 0);
+ rb_define_method (c, "interval=", c_interval_set, 1);
}