windows.dropfiles: fix hwnd-reject-files and world-reject-files

[factor.git] / basis / windows / dropfiles / dropfiles.factor

diff --git a/basis/windows/dropfiles/dropfiles.factor b/basis/windows/dropfiles/dropfiles.factor
index e16905c946bc390e0f38a5fd34e2b03e47e6a964..8460856503c9feaed97c835904dcd4fce5dee515 100644 (file)
--- a/basis/windows/dropfiles/dropfiles.factor
+++ b/basis/windows/dropfiles/dropfiles.factor
@@ -48,13 +48,13 @@ IN: windows.dropfiles
     TRUE DragAcceptFiles init-message-filter install-wm-handler ;
 
 : hwnd-reject-files ( hwnd -- )
-    f DragAcceptFiles ;
+    FALSE DragAcceptFiles ;
 
 : world-accept-files ( world -- )
     handle>> hWnd>> hwnd-accept-files ;
 
 : world-reject-files ( world -- )
-    handle>> hWnd>> hwnd-accept-files ;
+    handle>> hWnd>> hwnd-reject-files ;
 
 : accept-files ( -- )
     world get world-accept-files ;