From 2d546cde5443150670a30eba7b160f06315ea76d Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Sat, 20 Jan 2018 22:18:45 +0100 Subject: [PATCH] windows.dropfiles: fix hwnd-reject-files and world-reject-files --- basis/windows/dropfiles/dropfiles.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ; -- 2.34.1