Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / windows / dragdrop-listener / dragdrop-listener.factor

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 8384bb1acc18b4f4550f834b3be1ade6655bcbd6..e9c4930b6402d986189b7ac06b9d99c7f0d8e7f2 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -7,7 +7,7 @@ IN: windows.dragdrop-listener
 : filenames-from-hdrop ( hdrop -- filenames )\r
     dup HEX: FFFFFFFF f 0 DragQueryFile ! get count of files\r
     [\r
-        2dup f 0 DragQueryFile 1+ ! get size of filename buffer\r
+        2dup f 0 DragQueryFile 1 + ! get size of filename buffer\r
         dup "WCHAR" <c-array>\r
         [ swap DragQueryFile drop ] keep\r
         alien>u16-string\r
@@ -36,26 +36,30 @@ SYMBOL: +listener-dragdrop-wrapper+
 {\r
     { "IDropTarget" {\r
         [ ! DragEnter\r
-            >r 2drop\r
-            filenames-from-data-object\r
-            length 1 = [ DROPEFFECT_COPY ] [ DROPEFFECT_NONE ] if\r
-            dup 0 r> set-ulong-nth\r
+            [\r
+                2drop\r
+                filenames-from-data-object\r
+                length 1 = [ DROPEFFECT_COPY ] [ DROPEFFECT_NONE ] if\r
+                dup 0\r
+            ] dip set-ulong-nth\r
             >>last-drop-effect drop\r
             S_OK\r
         ] [ ! DragOver\r
-            >r 2drop last-drop-effect>> 0 r> set-ulong-nth\r
+            [ 2drop last-drop-effect>> 0 ] dip set-ulong-nth\r
             S_OK\r
         ] [ ! DragLeave\r
             drop S_OK\r
         ] [ ! Drop\r
-            >r 2drop nip\r
-            filenames-from-data-object\r
-            dup length 1 = [\r
-                first unparse [ "USE: parser " % % " run-file" % ] "" make\r
-                eval-listener\r
-                DROPEFFECT_COPY\r
-            ] [ 2drop DROPEFFECT_NONE ] if\r
-            0 r> set-ulong-nth\r
+            [\r
+                2drop nip\r
+                filenames-from-data-object\r
+                dup length 1 = [\r
+                    first unparse [ "USE: parser " % % " run-file" % ] "" make\r
+                    eval-listener\r
+                    DROPEFFECT_COPY\r
+                ] [ 2drop DROPEFFECT_NONE ] if\r
+                0\r
+            ] dip set-ulong-nth\r
             S_OK\r
         ]\r
     } }\r