On January 5, 2003 12:32 pm, Marcus Meissner wrote:
These are getting passed pointers to 32bit interfaces, but need 16bit ones.
Darn! :) I knew I was missing something... What about this one:
Index: dlls/ole32/ole2.spec =================================================================== RCS file: /var/cvs/wine/dlls/ole32/ole2.spec,v retrieving revision 1.5 diff -u -r1.5 ole2.spec --- dlls/ole32/ole2.spec 5 Jan 2003 01:04:34 -0000 1.5 +++ dlls/ole32/ole2.spec 5 Jan 2003 17:13:16 -0000 @@ -1,7 +1,7 @@ 1 pascal OleBuildVersion() OleBuildVersion 2 pascal OleInitialize(ptr) OleInitialize 3 pascal OleUninitialize() OleUninitialize -4 stub DLLGETCLASSOBJECT +4 pascal DllGetClassObject(ptr ptr ptr) DllGetClassObject16 #5 WEP 6 stub OLEQUERYLINKFROMDATA 7 stub OLEQUERYCREATEFROMDATA @@ -46,8 +46,8 @@ 46 stub MONIKERRELATIVEPATHTO 47 stub MONIKERCOMMONPREFIXWITH 48 stub ISACCELERATOR -49 stub OLESETCLIPBOARD -50 stub OLEGETCLIPBOARD +49 pascal OleSetClipboard(ptr) OleSetClipboard16 +50 pascal OleGetClipboard(ptr) OleGetClipboard16 51 stub OLEDUPLICATEDATA 52 stub OLEGETICONOFFILE 53 stub OLEGETICONOFCLASS Index: dlls/ole32/ole2stubs.c =================================================================== RCS file: /var/cvs/wine/dlls/ole32/ole2stubs.c,v retrieving revision 1.26 diff -u -r1.26 ole2stubs.c --- dlls/ole32/ole2stubs.c 2 Dec 2002 18:10:58 -0000 1.26 +++ dlls/ole32/ole2stubs.c 5 Jan 2003 17:18:55 -0000 @@ -262,3 +262,22 @@ FIXME("%s\n", debugstr_guid(clsid)); return FALSE; } + +HRESULT WINAPI DllGetClassObject16(REFCLSID rclsid, REFIID iid, LPVOID *ppv) +{ + FIXME("(%s, %s, %p): stub\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv); + return E_NOTIMPL; +} + +HRESULT WINAPI OleSetClipboard16(IDataObject* pDataObj) +{ + FIXME("(%p): stub\n", pDataObj); + return E_NOTIMPL; +} + +HRESULT WINAPI OleGetClipboard16(IDataObject** ppDataObj) +{ + FIXME("(%p): stub\n", ppDataObj); + return E_NOTIMPL; +} +