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

file-picker.operations: fix invalid parameter order in save-as

char-rename
Alexander Iljin 2017-05-29 19:28:38 +03:00 committed by John Benediktsson
parent 55d5577961
commit 5b1198e20c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/file-picker/operations/operations.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2017 Alexander Ilin. ! Copyright (C) 2017 Alexander Ilin.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: byte-arrays file-picker io io.encodings.binary io.files USING: byte-arrays file-picker io io.encodings.binary io.files
kernel locals ui.commands ui.operations ; kernel ui.commands ui.operations ;
IN: file-picker.operations IN: file-picker.operations
:: save-as ( data -- ) : save-as ( seq -- )
"" save-file-dialog [ data binary set-file-contents ] when* ; "" save-file-dialog [ binary set-file-contents ] [ drop ] if* ;
! Right-click a byte-array presentation to open the Save As window. ! Right-click a byte-array presentation to open the Save As window.
[ byte-array? ] \ save-as H{ [ byte-array? ] \ save-as H{