Jacek Caban : vbscript: Added isObject implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 8bcd9876d30970a5ee8457c5275d36f6ada319e8
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=8bcd9876d30970a5ee8457c527...

Author: Jacek Caban 
Date:   Mon Sep 19 14:08:48 2011 +0200

vbscript: Added isObject implementation.

---

dlls/vbscript/global.c |   12 ++++++++++--
 1 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c
index 87aef8f..0e71acf 100644
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -25,8 +25,16 @@ WINE_DEFAULT_DEBUG_CHANNEL(vbscript);

static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    TRACE("(%s)\n", debugstr_variant(arg));
+
+    if(V_VT(arg) == (VT_VARIANT|VT_BYREF))
+        arg = V_VARIANTREF(arg);
+
+    if(res) {
+        V_VT(res) = VT_BOOL;
+        V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
+    }
+    return S_OK;
 }

static const builtin_prop_t global_props[] = {