Vijay Kiran Kamuju : ole2.dll16: Add stub OleIsCurrentClipboard function.

[Alexandre Julliard]

Module: wine
Branch: stable
Commit: 1c66b0065107fc97c938e986dce3957315ebb33a
URL:    https://source.winehq.org/git/wine.git/?a=commit;h=1c66b0065107fc97c938e986dce3957315ebb33a

Author: Vijay Kiran Kamuju <infyquest at gmail.com>
Date:   Tue Jun  2 18:02:50 2020 +0200

ole2.dll16: Add stub OleIsCurrentClipboard function.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=7102
Signed-off-by: Vijay Kiran Kamuju <infyquest at gmail.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>
(cherry picked from commit 9c95434095630aa1ed4f1ae3763424f09f423575)
Signed-off-by: Michael Stefaniuc <mstefani at winehq.org>

---

 dlls/ole2.dll16/ole2.c          | 9 +++++++++
 dlls/ole2.dll16/ole2.dll16.spec | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/dlls/ole2.dll16/ole2.c b/dlls/ole2.dll16/ole2.c
index 5e6142fc96a..04b40b08635 100644
--- 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)
 
diff --git a/dlls/ole2.dll16/ole2.dll16.spec b/dlls/ole2.dll16/ole2.dll16.spec
index 108c3ee8f31..7aac6864e56 100644
--- 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