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

windows.dragdrop-listener: fix filenames-from-hdrop implementation

modern-harvey2
Alexander Iljin 2017-08-18 01:15:17 +03:00
parent cc5333694a
commit 75f5f08810
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@ IN: windows.dragdrop-listener
0xFFFFFFFF f 0 DragQueryFile ; 0xFFFFFFFF f 0 DragQueryFile ;
: filenames-from-hdrop ( hdrop -- filenames ) : filenames-from-hdrop ( hdrop -- filenames )
dup filecount-from-hdrop dup filecount-from-hdrop <iota>
[ [
2dup f 0 DragQueryFile 1 + ! get size of filename buffer 2dup f 0 DragQueryFile 1 + ! get size of filename buffer
dup WCHAR <c-array> dup WCHAR <c-array>