From 71b58d1a2a4813f101c9977ca8621f3308223ea5 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 31 Mar 2008 13:13:16 -0700 Subject: [PATCH] Fix name of windows.dragdrop-listener vocab --- extra/windows/dragdrop-listener/dragdrop-listener.factor | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/extra/windows/dragdrop-listener/dragdrop-listener.factor b/extra/windows/dragdrop-listener/dragdrop-listener.factor index 0776d37625..8384bb1acc 100644 --- a/extra/windows/dragdrop-listener/dragdrop-listener.factor +++ b/extra/windows/dragdrop-listener/dragdrop-listener.factor @@ -2,7 +2,7 @@ USING: windows.com windows.com.wrapper combinators windows.kernel32 windows.ole32 windows.shell32 kernel accessors prettyprint namespaces ui.tools.listener ui.tools.workspace alien.c-types alien sequences math ; -IN: windows.dragdrop +IN: windows.dragdrop-listener : filenames-from-hdrop ( hdrop -- filenames ) 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 eval-listener DROPEFFECT_COPY - ] [ - 2drop DROPEFFECT_NONE - ] if + ] [ 2drop DROPEFFECT_NONE ] if 0 r> set-ulong-nth S_OK ]