Piotr Caban : oleview: Added next field to TypeLib viewer treeview control.

[Alexandre Julliard]

Module: wine
Branch: refs/heads/master
Commit: 77895b701b9b4f0f85c8effe3632a384114a7af4
URL:    http://source.winehq.org/git/?p=wine.git;a=commit;h=77895b701b9b4f0f85c8effe...

Author: Piotr Caban <piotr.caban(a)gmail.com>
Date:   Sun Jul  2 19:44:39 2006 +0200

oleview: Added next field to TypeLib viewer treeview control.

---

 programs/oleview/typelib.c |   20 ++++++++++++++++++--
 1 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/programs/oleview/typelib.c b/programs/oleview/typelib.c
index 3eae6ea..1875992 100644
--- a/programs/oleview/typelib.c
+++ b/programs/oleview/typelib.c
@@ -94,7 +94,8 @@ int PopulateTree(void)
 {
     TVINSERTSTRUCT tvis;
     ITypeLib *pTypeLib;
-    ITypeInfo *pTypeInfo;
+    ITypeInfo *pTypeInfo, *pRefTypeInfo;
+    HREFTYPE hRefType;
     TYPEATTR *pTypeAttr;
     INT count, i;
     BSTR bstrName;
@@ -161,9 +162,24 @@ #define TKINDADDTOSTR(x) case x:\
             TKINDADDTOSTR(TKIND_RECORD);
             TKINDADDTOSTR(TKIND_MODULE);
             TKINDADDTOSTR(TKIND_INTERFACE);
-            TKINDADDTOSTR(TKIND_DISPATCH);
             TKINDADDTOSTR(TKIND_COCLASS);
             TKINDADDTOSTR(TKIND_UNION);
+            case TKIND_DISPATCH:
+                AddToStrW(wszText, wszTKIND_DISPATCH);
+                AddToStrW(wszText, bstrName);
+                if(SUCCEEDED(ITypeInfo_GetRefTypeOfImplType(pTypeInfo, -1, &hRefType)))
+                {
+                    SendMessage(typelib.hTree, TVM_INSERTITEM, 0, (LPARAM)&tvis);
+                    memset(wszText, 0, sizeof(wszText));
+
+                    ITypeInfo_GetRefTypeInfo(pTypeInfo, hRefType, &pRefTypeInfo);
+                    ITypeInfo_GetDocumentation(pRefTypeInfo, MEMBERID_NIL, &bstrName,
+                                NULL, NULL, NULL);
+                    AddToStrW(wszText, wszTKIND_INTERFACE);
+                    AddToStrW(wszText, bstrName);
+                    ITypeInfo_Release(pRefTypeInfo);
+                }
+                break;
             case TKIND_ALIAS:
                 AddToStrW(wszText, wszTKIND_ALIAS);
                 CreateTypeInfo(wszText, pTypeAttr->tdescAlias, pTypeInfo);