windows: Fix some drag and drop apis.

[factor.git] / basis / windows / dragdrop-listener / dragdrop-listener.factor

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 3b1c68c6b5e779a5ce62265f3c11992b1e96515d..5aa2073b9174f9996c20dd2da0b0a5c1a12f3664 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -48,6 +48,9 @@ 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 )
@@ -78,6 +81,8 @@ SYMBOL: +listener-dragdrop-wrapper+
     } }
 } <com-wrapper> +listener-dragdrop-wrapper+ set-global
 
+>>
+
 : dragdrop-listener-window ( -- )
     world get handle>> hWnd>> dup <listener-dragdrop>
     +listener-dragdrop-wrapper+ get-global com-wrap