put-file in editor<%>
Called when the user must be queried for a filename to save an
editor. Starting directory and default name strings are passed in,
but either may be #f to indicate that any directory is fine or
there is no default name.
( -> string or send an-editor put-file directory default-name)#f
directory : string or #f
default-name : string or #f
Calls the global
put-fileprocedure.
If the editor is displayed in a single canvas, then the canvas's top-level frame is used as the parent for the file dialog. Otherwise, the file dialog will have no parent.