Did you know ... Search Documentation:
file->backup
file ->backup: extension=[name]
If the file file->exists, it is copied to a file named file<-name concatenated with extension (default _~_). The file object itself is not affected.

This method may be used in combination with file->open: write or object->save_in_file. 

save_diagram(Picture, File) :-
        send(File, backup),
        send(Picture?graphicals, save_in_file, File).
See also
!backup_file
Tags are associated to your profile if you are logged in
Tags: