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

windows.dropfiles: remove an exception suppression 

Instead of suppressing all exceptions make a specific check for the
function avalability.
factor-shell
Alexander Iljin 2018-01-20 22:12:07 +01:00 committed by John Benediktsson
parent 8a24d1b25a
commit 1224353571
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,10 @@
! Copyright (C) 2017 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.data alien.strings continuations
fry io.encodings.utf16n kernel literals math namespaces
sequences ui.backend.windows ui.gadgets.worlds ui.gestures
windows.messages windows.shell32 windows.types windows.user32 ;
USING: accessors alien alien.data alien.libraries alien.strings
continuations fry io.encodings.utf16n kernel literals math
namespaces sequences ui.backend.windows ui.gadgets.worlds
ui.gestures windows.messages windows.shell32 windows.types
windows.user32 ;
IN: windows.dropfiles
: filecount-from-hdrop ( hdrop -- n )
@ -29,17 +30,16 @@ IN: windows.dropfiles
! list of wm-handlers. Therefore, there is no benefit in using the stricter
! ChangeWindowMessageFilterEx approach. Plus, the latter is not in Vista.
: (init-message-filter) ( -- )
${ WM_DROPFILES WM_COPYDATA WM_COPYGLOBALDATA }
[ MSGFLT_ADD ChangeWindowMessageFilter win32-error=0/f ] each ;
"ChangeWindowMessageFilter" "user32" dlsym? [
${ WM_DROPFILES WM_COPYDATA WM_COPYGLOBALDATA }
[ MSGFLT_ADD ChangeWindowMessageFilter win32-error=0/f ] each
] when ;
: do-once ( guard-variable quot -- )
dupd '[ t _ set-global @ ] [ get-global ] dip unless ; inline
! Ignore the errors: on WinXP the function is missing, and is not needed.
: init-message-filter ( -- )
\ init-message-filter [
[ (init-message-filter) ] [ drop ] recover
] do-once ;
\ init-message-filter [ (init-message-filter) ] do-once ;
: install-wm-handler ( -- )
[ drop 2nip handle-wm-dropfiles 0 ] WM_DROPFILES add-wm-handler ;