vbscript: Added Err.Number implementation.

This commit is contained in:
Jacek Caban 2014-03-21 14:38:11 +01:00 committed by Alexandre Julliard
parent fc0ef22a44
commit 7baaea0321
1 changed files with 11 additions and 2 deletions

View File

@ -1886,8 +1886,17 @@ static HRESULT Err_HelpFile(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VA
static HRESULT Err_Number(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
{
FIXME("\n");
return E_NOTIMPL;
TRACE("\n");
if(!This->desc)
return E_UNEXPECTED;
if(args_cnt) {
FIXME("setter not implemented\n");
return E_NOTIMPL;
}
return return_int(res, This->desc->ctx->err_number);
}
static HRESULT Err_Source(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)