Implemented body of HGLOBALStreamImpl::Clone

[Alberto Massari]

ChangeLog:
- Implemented body of HGLOBALStreamImpl::Clone

Alberto

Index: hglobalstream.c
===================================================================
RCS file: /home/wine/wine/dlls/ole32/hglobalstream.c,v
retrieving revision 1.13
diff -u -r1.13 hglobalstream.c
--- hglobalstream.c     12 Sep 2002 22:07:04 -0000      1.13
+++ hglobalstream.c     7 Nov 2002 11:17:36 -0000
@@ -820,6 +820,15 @@
                   IStream*     iface,
                   IStream**    ppstm) /* [out] */
  {
-  FIXME("not implemented!\n");
-  return E_NOTIMPL;
+  ULARGE_INTEGER dummy;
+  LARGE_INTEGER offset;
+  HRESULT hr;
+  HGLOBALStreamImpl* const This=(HGLOBALStreamImpl*)iface;
+  TRACE(" Cloning %p (deleteOnRelease=%d seek 
position=%ld)\n",iface,This->deleteOnRelease,(long)This->currentPosition.QuadPart);
+  hr=CreateStreamOnHGlobal(This->supportHandle, FALSE, ppstm);
+  if(FAILED(hr))
+    return hr;
+  offset.QuadPart=(LONGLONG)This->currentPosition.QuadPart;
+  HGLOBALStreamImpl_Seek(*ppstm,offset,STREAM_SEEK_SET,&dummy);
+  return S_OK;
  }