André Hentschel : ole32: Implement writing VT_CLSID properties.

[Alexandre Julliard]

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

Author: André Hentschel 
Date:   Sun Nov 13 18:02:15 2011 +0100

ole32: Implement writing VT_CLSID properties.

---

dlls/ole32/stg_prop.c |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/dlls/ole32/stg_prop.c b/dlls/ole32/stg_prop.c
index 5eb0371..53c2a99 100644
--- a/dlls/ole32/stg_prop.c
+++ b/dlls/ole32/stg_prop.c
@@ -1746,6 +1746,15 @@ static HRESULT PropertyStorage_WritePropertyToStream(PropertyStorage_impl *This,
         bytesWritten = count + sizeof cf_hdr;
         break;
     }
+    case VT_CLSID:
+    {
+        CLSID temp;
+
+        StorageUtl_WriteGUID((BYTE *)&temp, 0, var->u.puuid);
+        hr = IStream_Write(This->stm, &temp, sizeof(temp), &count);
+        bytesWritten = count;
+        break;
+    }
     default:
         FIXME("unsupported type: %d\n", var->vt);
         return STG_E_INVALIDPARAMETER;