Sunil Mohan Adapa : oleaut32: Fix SLTG parser so that dual interfaces are returned as IDispatch first.

[Alexandre Julliard]

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

Author: Sunil Mohan Adapa <sunilmohan at fsf.org.in>
Date:   Tue Nov 10 10:28:54 2009 +0530

oleaut32: Fix SLTG parser so that dual interfaces are returned as IDispatch first.

---

 dlls/oleaut32/typelib.c |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/dlls/oleaut32/typelib.c b/dlls/oleaut32/typelib.c
index 9c13bbe..772c2cf 100644
--- a/dlls/oleaut32/typelib.c
+++ b/dlls/oleaut32/typelib.c
@@ -3938,6 +3938,9 @@ static ITypeLib2* ITypeLib2_Constructor_SLTG(LPVOID pLib, DWORD dwTLBLength)
       (*ppTypeInfoImpl)->TypeAttr.wTypeFlags =
 	(pTIHeader->typeflags1 >> 3) | (pTIHeader->typeflags2 << 5);
 
+      if((*ppTypeInfoImpl)->TypeAttr.wTypeFlags & TYPEFLAG_FDUAL)
+	(*ppTypeInfoImpl)->TypeAttr.typekind = TKIND_DISPATCH;
+
       if((pTIHeader->typeflags1 & 7) != 2)
 	FIXME_(typelib)("typeflags1 = %02x\n", pTIHeader->typeflags1);
       if(pTIHeader->typeflags3 != 2)