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

windows.dragdrop-listener: replace set-ulong-nth with set-alien-unsigned-4

modern-harvey2
Alexander Iljin 2017-08-12 16:32:41 +03:00
parent 5f87b1d577
commit d91d820e70
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/windows/dragdrop-listener/dragdrop-listener.factor
View File

@ -42,12 +42,12 @@ SYMBOL: +listener-dragdrop-wrapper+
2drop 2drop
filenames-from-data-object filenames-from-data-object
length 1 = [ DROPEFFECT_COPY ] [ DROPEFFECT_NONE ] if length 1 = [ DROPEFFECT_COPY ] [ DROPEFFECT_NONE ] if
dup 0 dup
] dip set-ulong-nth ] dip 0 set-alien-unsigned-4
>>last-drop-effect drop >>last-drop-effect drop
S_OK S_OK
] [ ! DragOver ] [ ! DragOver
[ 2drop last-drop-effect>> 0 ] dip set-ulong-nth [ 2drop last-drop-effect>> ] dip 0 set-alien-unsigned-4
S_OK S_OK
] [ ! DragLeave ] [ ! DragLeave
drop S_OK drop S_OK
@ -60,8 +60,7 @@ SYMBOL: +listener-dragdrop-wrapper+
eval-listener eval-listener
DROPEFFECT_COPY DROPEFFECT_COPY
] [ 2drop DROPEFFECT_NONE ] if ] [ 2drop DROPEFFECT_NONE ] if
0 ] dip 0 set-alien-unsigned-4
] dip set-ulong-nth
S_OK S_OK
] ]
} } } }