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

windows.dragdrop-listener: Fix an error when calling 

``windows.dragdrop-listener" load``
factor-shell
Doug Coleman 2017-09-06 19:05:29 -05:00
parent 5a0bc9621d
commit 8c4a7c0402
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,11 +48,10 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
DROPEFFECT_NONE listener-dragdrop boa ; DROPEFFECT_NONE listener-dragdrop boa ;
<< <<
SYMBOL: +listener-dragdrop-wrapper+ SYMBOL: +listener-dragdrop-wrapper+
>> >>
<<
{ {
{ IDropTarget { { IDropTarget {
[ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect ) [ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
@ -82,6 +81,7 @@ SYMBOL: +listener-dragdrop-wrapper+
] ]
} } } }
} <com-wrapper> +listener-dragdrop-wrapper+ set-global } <com-wrapper> +listener-dragdrop-wrapper+ set-global
>>
: dragdrop-listener-window ( -- ) : dragdrop-listener-window ( -- )
world get handle>> hWnd>> dup <listener-dragdrop> world get handle>> hWnd>> dup <listener-dragdrop>