ole2.dll16: Add stub OleIsCurrentClipboard function.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=7102Signed-off-by: Vijay Kiran Kamuju <infyquest@gmail.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

ole2.dll16: Add stub OleIsCurrentClipboard function.
9c954340 · Vijay Kiran Kamuju · Alexandre Julliard · 9fe61171 · 9c954340 · 9c954340
Commit 9c954340 authored Jun 02, 2020 by Vijay Kiran Kamuju Committed by Alexandre Julliard Jun 02, 2020
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 1 deletion

ole2.c dlls/ole2.dll16/ole2.c +9 -0

ole2.dll16.spec dlls/ole2.dll16/ole2.dll16.spec +1 -1

No files found.
--- a/dlls/ole2.dll16/ole2.c
+++ b/dlls/ole2.dll16/ole2.c
@@ -272,6 +272,15 @@ HRESULT WINAPI OleFlushClipboard16(void)
  return OleFlushClipboard();
 }
+/***********************************************************************
+ *           OleIsCurrentClipboard                    [OLE2.77]
+ */
+HRESULT WINAPI OleIsCurrentClipboard16(IDataObject* pDataObj)
+{
+  FIXME("(%p): stub\n", pDataObj);
+  return S_OK;
+}
 #define GET_SEGPTR_METHOD_ADDR(ifacename,segptr,methodname) \
    ((SEGPTR)((const ifacename##Vtbl*)MapSL((SEGPTR)((ifacename*)MapSL(segptr))->lpVtbl))->methodname)

--- a/dlls/ole2.dll16/ole2.dll16.spec
+++ b/dlls/ole2.dll16/ole2.dll16.spec
@@ -72,7 +72,7 @@
 74 stub READFMTUSERTYPESTG
 75 stub WRITEFMTUSERTYPESTG
 76 pascal -ret16 OleFlushClipboard() OleFlushClipboard16
-77 stub OLEISCURRENTCLIPBOARD
+77 pascal OleIsCurrentClipboard(ptr) OleIsCurrentClipboard16
 78 stub OLETRANSLATEACCELERATOR
 79 pascal OleDoAutoConvert(ptr ptr) OleDoAutoConvert16
 80 stub OLEGETAUTOCONVERT