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

Fix name of windows.dragdrop-listener vocab

db4
Joe Groff 2008-03-31 13:13:16 -07:00
parent b5be6236c5
commit 71b58d1a2a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/windows/dragdrop-listener/dragdrop-listener.factor
View File

@ -2,7 +2,7 @@ USING: windows.com windows.com.wrapper combinators
windows.kernel32 windows.ole32 windows.shell32 kernel accessors windows.kernel32 windows.ole32 windows.shell32 kernel accessors
prettyprint namespaces ui.tools.listener ui.tools.workspace prettyprint namespaces ui.tools.listener ui.tools.workspace
alien.c-types alien sequences math ; alien.c-types alien sequences math ;
IN: windows.dragdrop IN: windows.dragdrop-listener
: filenames-from-hdrop ( hdrop -- filenames ) : filenames-from-hdrop ( hdrop -- filenames )
dup HEX: FFFFFFFF f 0 DragQueryFile ! get count of files dup HEX: FFFFFFFF f 0 DragQueryFile ! get count of files
@ -54,9 +54,7 @@ SYMBOL: +listener-dragdrop-wrapper+
first unparse [ "USE: parser " % % " run-file" % ] "" make first unparse [ "USE: parser " % % " run-file" % ] "" make
eval-listener eval-listener
DROPEFFECT_COPY DROPEFFECT_COPY
] [ ] [ 2drop DROPEFFECT_NONE ] if
2drop DROPEFFECT_NONE
] if
0 r> set-ulong-nth 0 r> set-ulong-nth
S_OK S_OK
] ]