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

The actual code needs to be updated to work with the current UI.

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index eecc3cc6b9a2f0d8e7aff2c38c06a2ec35ffd426..2454e7855b9982a4240395c728dd3f4927aae378 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -68,7 +68,6 @@ SYMBOL: +listener-dragdrop-wrapper+
 } <com-wrapper> +listener-dragdrop-wrapper+ set-global
 
 : dragdrop-listener-window ( -- )
-    get-workspace parent>> handle>> hWnd>>
-    dup <listener-dragdrop>
+    world get handle>> hWnd>> dup <listener-dragdrop>
     +listener-dragdrop-wrapper+ get-global com-wrap
-    [ RegisterDragDrop ole32-error ] with-com-interface ;
+    [ RegisterDragDrop check-ole32-error ] with-com-interface ;