off_event

static VALUE
fev_off_event(int argc, VALUE *argv, VALUE self)
{
    VALUE event = Qnil;
    VALUE events;

    rb_secure(4);
    rb_scan_args(argc, argv, "01", &event);
    if(!NIL_P(event)) {
        if(TYPE(event) != T_STRING && TYPE(event) != T_SYMBOL) {
            rb_raise(rb_eTypeError, "wrong argument type (expected String or Symbol)");
        }
        if (TYPE(event) == T_SYMBOL) {
            event = rb_sym_to_s(event);
        }
    }
    events = rb_ivar_get(self, id_events);
    if (NIL_P(events)) {
        return Qnil;
    }
    ole_delete_event(events, event);
    return Qnil;
}