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

io.files.trash.windows: using flags{ }.

master
John Benediktsson 2020-02-12 14:33:30 -08:00
parent 42e49f432c
commit ec0326fee9
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/io/files/trash/windows/windows.factor
View File

@ -3,7 +3,7 @@
USING: accessors alien.c-types alien.data alien.strings USING: accessors alien.c-types alien.data alien.strings
alien.syntax classes.struct destructors io.files.trash kernel alien.syntax classes.struct destructors io.files.trash kernel
libc math sequences system windows.types ; libc literals math sequences system windows.types ;
IN: io.files.trash.windows IN: io.files.trash.windows
@ -59,10 +59,12 @@ M: windows send-to-trash ( path -- )
FO_DELETE >>wFunc FO_DELETE >>wFunc
swap >>pFrom swap >>pFrom
f >>pTo f >>pTo
FOF_ALLOWUNDO flags{
FOF_NOCONFIRMATION bitor FOF_ALLOWUNDO
FOF_NOERRORUI bitor FOF_NOCONFIRMATION
FOF_SILENT bitor >>fFlags FOF_NOERRORUI
FOF_SILENT
} >>fFlags
SHFileOperationW [ throw ] unless-zero SHFileOperationW [ throw ] unless-zero