(finder:put-file name directory replace? prompt filter filter-msg parent) -> (union string #f)
name = "Untitled" : string
directory = #f : (union #f string)
replace? = #f : bool
prompt = "Select File" : string
filter = #f : (union #f regexp)
filter-msg = "That filename does not have the right form." : string
parent = (finder:dialog-parent-parameter) : (union (instance top-level-window<%>) #f)
If the result of (preferences:get 'framework:file-dialogs)
is 'std this calls
finder:std-put-file, and if it is 'common,
finder:common-put-file is called.