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

windows.dragdrop-listener: fix compilation of dragdrop-listener-window 

The actual code needs to be updated to work with the current UI.
modern-harvey2
Alexander Iljin 2017-08-12 16:41:46 +03:00
parent 111d73a901
commit bd10484dc1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -68,7 +68,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 ( -- )
get-workspace parent>> handle>> hWnd>> world get handle>> hWnd>> dup <listener-dragdrop>
dup <listener-dragdrop>
+listener-dragdrop-wrapper+ get-global com-wrap +listener-dragdrop-wrapper+ get-global com-wrap
[ RegisterDragDrop ole32-error ] with-com-interface ; [ RegisterDragDrop check-ole32-error ] with-com-interface ;