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

windows.dragdrop-listener: Fix compilation bug.

factor-shell
Doug Coleman 2017-09-02 02:00:25 +00:00
parent 6c965dbe21
commit cfed04a373
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,9 +47,11 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
: <listener-dragdrop> ( hWnd -- object ) : <listener-dragdrop> ( hWnd -- object )
DROPEFFECT_NONE listener-dragdrop boa ; DROPEFFECT_NONE listener-dragdrop boa ;
<<
SYMBOL: +listener-dragdrop-wrapper+ SYMBOL: +listener-dragdrop-wrapper+
<< >>
{ {
{ IDropTarget { { IDropTarget {
@ -81,8 +83,6 @@ 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>
+listener-dragdrop-wrapper+ get-global com-wrap +listener-dragdrop-wrapper+ get-global com-wrap