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

file-picker.operations: new vocab with save-as operation for byte-arrays

char-rename
Alexander Iljin 2017-05-26 13:18:48 +03:00 committed by John Benediktsson
parent 4ceb098907
commit 0464e6f84b
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/file-picker/operations/authors.txt Normal file
View File

@ -0,0 +1 @@
Alexander Ilin

13
extra/file-picker/operations/operations.factor Normal file
View File

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