On this page:
finder:  dialog-parent-parameter
finder:  default-extension
finder:  default-filters
finder:  common-put-file
finder:  common-get-file
finder:  std-put-file
finder:  std-get-file
finder:  put-file
finder:  get-file

13 Finder

This parameter determines the parent of the dialogs created by finder:get-file, finder:put-file, finder:common-get-file, finder:common-put-file, finder:common-get-file-list, finder:std-get-file, and finder:std-put-file.

parameter

(finder:default-extension)  string?

(finder:default-extension extension)  void?
  extension : string?
This parameter controls the default extension for the framework’s finder:put-file and finder:get-file dialog. Its value gets passed as the extension argument to put-file and get-file.

Its default value is "".

parameter

(finder:default-filters)  (listof (list/c string? string?))

(finder:default-filters filters)  void?
  filters : (listof (list/c string? string?))
This parameter controls the default filters for the framework’s finder:put-file dialog. Its value gets passed as the default-filters argument to put-file.

Its default value is '(("Any" "*.*")).

procedure

(finder:common-put-file [name    
  directory    
  replace?    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c false/c path?)
  name : string? = "Untitled"
  directory : (or/c false/c path?) = #f
  replace? : boolean? = #f
  prompt : string? = "Select File"
  filter : (or/c false/c byte-regexp?) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c (is-a?/c top-level-window<%>) false/c)
   = (finder:dialog-parent-parameter)
This procedure queries the user for a single filename, using a platform-independent dialog box. Consider using finder:put-file instead of this function.

procedure

(finder:common-get-file [directory    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c path? false/c)
  directory : (or/c path? false/c) = #f
  prompt : string? = "Select File"
  filter : (or/c byte-regexp? false/c) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c false/c (is-a?/c top-level-window<%>)) = #f
This procedure queries the user for a single filename, using a platform-independent dialog box. Consider using finder:get-file instead of this function.

procedure

(finder:std-put-file [name    
  directory    
  replace?    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c false/c path?)
  name : string? = "Untitled"
  directory : (or/c false/c path?) = #f
  replace? : boolean? = #f
  prompt : string? = "Select File"
  filter : (or/c false/c byte-regexp?) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c (is-a?/c top-level-window<%>) false/c)
   = (finder:dialog-parent-parameter)
This procedure queries the user for a single filename, using a platform-dependent dialog box. Consider using finder:put-file instead of this function.

procedure

(finder:std-get-file [directory    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c path? false/c)
  directory : (or/c path? false/c) = #f
  prompt : string? = "Select File"
  filter : (or/c byte-regexp? false/c) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c false/c (is-a?/c top-level-window<%>)) = #f
This procedure queries the user for a single filename, using a platform-dependent dialog box. Consider using finder:get-file instead of this function.

procedure

(finder:put-file [name    
  directory    
  replace?    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c false/c path?)
  name : string? = "Untitled"
  directory : (or/c false/c path?) = #f
  replace? : boolean? = #f
  prompt : string? = "Select File"
  filter : (or/c false/c byte-regexp?) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c (is-a?/c top-level-window<%>) false/c)
   = (finder:dialog-parent-parameter)
Queries the user for a filename.

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.

procedure

(finder:get-file [directory    
  prompt    
  filter    
  filter-msg    
  parent])  (or/c path? false/c)
  directory : (or/c path? false/c) = #f
  prompt : string? = "Select File"
  filter : (or/c byte-regexp? string? false/c) = #f
  filter-msg : string?
   = "That filename does not have the right form."
  parent : (or/c false/c (is-a?/c top-level-window<%>)) = #f
Queries the user for a filename.

If the result of (preferences:get 'framework:file-dialogs) is 'std this calls finder:std-get-file, and if it is 'common, finder:common-get-file is called.