mred:common-put-file

• (mred:common-put-file name directory replace? prompt filter filter-msg parent) -> string or #f
      name = "Untitled" : string
      directory = null : null or a string
      replace? = #f : boolean
      prompt = "Select File" : string
      filter = #f : #f or a regular expression
      filter-msg = "That filename does not have the right form." : string
      parent = null : wx:window%