diff options
Diffstat (limited to 'ext/win32ole/win32ole.c')
-rw-r--r-- | ext/win32ole/win32ole.c | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c index d34cf854ec..29be931534 100644 --- a/ext/win32ole/win32ole.c +++ b/ext/win32ole/win32ole.c @@ -4754,7 +4754,7 @@ STDMETHODIMP EVENTSINK_Invoke( unsigned int i; ITypeInfo *pTypeInfo; VARIANT *pvar; - VALUE ary, obj, event, handler, args, argv, ev; + VALUE ary, obj, event, handler, args, argv, ev, result; BOOL is_default_handler = FALSE; PIEVENTSINKOBJ pEV = (PIEVENTSINKOBJ)pEventSink; @@ -4794,12 +4794,17 @@ STDMETHODIMP EVENTSINK_Invoke( if (rb_ary_entry(event, 3) == Qtrue) { argv = rb_ary_new(); rb_ary_push(args, argv); - rb_apply(handler, rb_intern("call"), args); + result = rb_apply(handler, rb_intern("call"), args); ary2ptr_dispparams(argv, pdispparams); } else { - rb_apply(handler, rb_intern("call"), args); + result = rb_apply(handler, rb_intern("call"), args); } + + if (pvarResult) { + ole_val2variant(result, pvarResult); + } + return NOERROR; } |