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+ SYMBOL: +listener-dragdrop-wrapper+
{ {
{ IDropTarget { { IDropTarget {
[ ! DragEnter [ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
[ [
2drop 2drop
filenames-from-data-object filenames-from-data-object
@ -47,12 +47,12 @@ SYMBOL: +listener-dragdrop-wrapper+
] dip 0 set-alien-unsigned-4 ] dip 0 set-alien-unsigned-4
>>last-drop-effect drop >>last-drop-effect drop
S_OK S_OK
] [ ! DragOver ] [ ! HRESULT DragOver ( DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
[ 2drop last-drop-effect>> ] dip 0 set-alien-unsigned-4 [ 2drop last-drop-effect>> ] dip 0 set-alien-unsigned-4
S_OK S_OK
] [ ! DragLeave ] [ ! HRESULT DragLeave ( )
drop S_OK drop S_OK
] [ ! Drop ] [ ! HRESULT Drop ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
[ [
2drop nip 2drop nip
filenames-from-data-object filenames-from-data-object