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

windows.dragdrop-listener: add a helper word

modern-harvey2
Alexander Iljin 2017-08-18 00:43:51 +03:00
parent 5c0ca7c41b
commit cc5333694a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,8 +7,11 @@ windows.shell32 windows.types ;
SPECIALIZED-ARRAY: WCHAR SPECIALIZED-ARRAY: WCHAR
IN: windows.dragdrop-listener IN: windows.dragdrop-listener
: filecount-from-hdrop ( hdrop -- n )
0xFFFFFFFF f 0 DragQueryFile ;
: filenames-from-hdrop ( hdrop -- filenames ) : filenames-from-hdrop ( hdrop -- filenames )
dup 0xFFFFFFFF f 0 DragQueryFile ! get count of files dup filecount-from-hdrop
[ [
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>