From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sat, 20 Jan 2018 21:18:45 +0000 (+0100)
Subject: windows.dropfiles: fix hwnd-reject-files and world-reject-files
X-Git-Tag: 0.98~420
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=2d546cde5443150670a30eba7b160f06315ea76d

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

diff --git a/basis/windows/dropfiles/dropfiles.factor b/basis/windows/dropfiles/dropfiles.factor
index e16905c946..8460856503 100644
--- 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 ;