! Copyright (C) 2017-2018 Alexander Ilin.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.data alien.libraries alien.strings
-init io.encodings.utf16n kernel literals math namespaces
+init io.encodings.utf16 kernel literals math namespaces
sequences ui.backend.windows ui.gadgets.worlds
ui.gestures windows.errors windows.messages windows.shell32
windows.types windows.user32 ;
: reject-files ( -- )
world get world-reject-files ;
-[
- f \ init-message-filter set-global
-] "init-dropfiles" add-startup-hook
+STARTUP-HOOK: [ f \ init-message-filter set-global ]