2 * $Id: rb_animator.c 146 2004-11-27 15:38:52Z 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
34 static int on_animator (void *data)
37 RbAnimator *animator = data;
39 r = rb_funcall (animator->callback, rb_intern ("call"), 0);
41 /* if the callback returns false, we return 0 and Ecore
42 * will remove the animator
45 animator->deleted = true;
50 static void c_mark (RbAnimator *animator)
52 rb_gc_mark (animator->callback);
55 static void c_free (RbAnimator *animator)
57 if (animator->real && !animator->deleted)
58 ecore_animator_del (animator->real);
65 static VALUE c_new (VALUE klass)
68 RbAnimator *animator = NULL;
70 if (!rb_block_given_p ())
73 self = Data_Make_Struct (klass, RbAnimator, c_mark, c_free, animator);
77 animator->callback = rb_block_proc ();
78 animator->deleted = false;
79 animator->real = ecore_animator_add (on_animator, animator);
81 rb_obj_call_init (self, 0, NULL);
86 static VALUE c_delete (VALUE self)
88 GET_OBJ (self, RbAnimator, animator);
90 if (animator->real && !animator->deleted) {
91 ecore_animator_del (animator->real);
92 animator->real = NULL;
93 animator->deleted = true;
95 rb_raise (rb_eException, "Animator already deleted!");
100 void Init_Animator (void)
102 VALUE c = rb_define_class_under (mEcore, "Animator", rb_cObject);
104 rb_define_singleton_method (c, "new", c_new, 0);
105 rb_define_method (c, "delete", c_delete, 0);