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

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

factor-shell
Alexander Iljin 2018-01-20 22:18:45 +01:00 committed by John Benediktsson
parent ddd3965f98
commit 2d546cde54
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/windows/dropfiles/dropfiles.factor
View File

@ -48,13 +48,13 @@ IN: windows.dropfiles
TRUE DragAcceptFiles init-message-filter install-wm-handler ; TRUE DragAcceptFiles init-message-filter install-wm-handler ;
: hwnd-reject-files ( hwnd -- ) : hwnd-reject-files ( hwnd -- )
f DragAcceptFiles ; FALSE DragAcceptFiles ;
: world-accept-files ( world -- ) : world-accept-files ( world -- )
handle>> hWnd>> hwnd-accept-files ; handle>> hWnd>> hwnd-accept-files ;
: world-reject-files ( world -- ) : world-reject-files ( world -- )
handle>> hWnd>> hwnd-accept-files ; handle>> hWnd>> hwnd-reject-files ;
: accept-files ( -- ) : accept-files ( -- )
world get world-accept-files ; world get world-accept-files ;