steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

modern-harvey2
Alexander Iljin 2017-08-18 00:42:19 +03:00
parent e1bd46faee
commit 5c0ca7c41b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/windows/dragdrop-listener/dragdrop-listener.factor
View File

@ -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