windows.dragdrop-listener: list all function parameters in the comments

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index a8818d703a8336e564fabf04b306a9dfac363c3f..34bef347d0da5cb75b0748b99aad48994a1ec973 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -38,7 +38,7 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
 SYMBOL: +listener-dragdrop-wrapper+
 {
     { IDropTarget {
-        [ ! DragEnter
+        [ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
             [
                 2drop
                 filenames-from-data-object
@@ -47,12 +47,12 @@ SYMBOL: +listener-dragdrop-wrapper+
             ] dip 0 set-alien-unsigned-4
             >>last-drop-effect drop
             S_OK
-        ] [ ! DragOver
+        ] [ ! HRESULT DragOver ( DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
             [ 2drop last-drop-effect>> ] dip 0 set-alien-unsigned-4
             S_OK
-        ] [ ! DragLeave
+        ] [ ! HRESULT DragLeave ( )
             drop S_OK
-        ] [ ! Drop
+        ] [ ! HRESULT Drop ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
             [
                 2drop nip
                 filenames-from-data-object