14 lines
497 B
Factor
14 lines
497 B
Factor
|
! 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
|