windows.dragdrop-listener: Fix an error when calling

``windows.dragdrop-listener" load``
2017-09-06 19:05:29 -05:00 · 2017-09-06 19:05:29 -05:00 · 8c4a7c0402
parent 5a0bc9621d
commit 8c4a7c0402
1 changed files with 2 additions and 2 deletions
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@ -48,11 +48,10 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
    DROPEFFECT_NONE listener-dragdrop boa ;

 <<
-
 SYMBOL: +listener-dragdrop-wrapper+
-
 >>

+<<
 {
    { IDropTarget {
        [ ! 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
+>>

 : dragdrop-listener-window ( -- )
    world get handle>> hWnd>> dup <listener-dragdrop>