Jacek Caban : vbscript: Added isObject implementation.
Alexandre Julliard
julliard at winehq.org
Mon Sep 19 13:48:44 CDT 2011
Module: wine
Branch: master
Commit: 8bcd9876d30970a5ee8457c5275d36f6ada319e8
URL: http://source.winehq.org/git/wine.git/?a=commit;h=8bcd9876d30970a5ee8457c5275d36f6ada319e8
Author: Jacek Caban <jacek at codeweavers.com>
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[] = {
More information about the wine-cvs
mailing list