On this page:
preferences:  put-preferences/  gui
preferences:  get-preference/  gui
preferences:  add-panel
preferences:  add-editor-checkbox-panel
preferences:  add-general-checkbox-panel
preferences:  add-warnings-checkbox-panel
preferences:  add-scheme-checkbox-panel
preferences:  add-to-warnings-checkbox-panel
preferences:  add-to-scheme-checkbox-panel
preferences:  add-to-editor-checkbox-panel
preferences:  add-to-general-checkbox-panel
preferences:  add-font-panel
preferences:  show-dialog
preferences:  hide-dialog
preferences:  add-on-close-dialog-callback
preferences:  add-can-close-dialog-callback
preferences:  add-check

26 Preferences

procedure

(preferences:put-preferences/gui name-list    
  val-list)  any
  name-list : (listof symbol?)
  val-list : (listof any/c)
Like put-preferences, but has more sophisticated error handling. In particular, when it fails to grab a lock, it
  • waits for three consecutive failures before informing the user

  • gives the user the opportunity to “steal” the lockfile after the third failure, and

  • when lock failures occur, it remembers what its arguments were and if any preference save eventually succeeds, all of the past failures are also written at that point.

In addition when an error is raised trying to save a preference to the preference file, preferences:put-preferences/gui logs the error using log-warning, instead of raising an exception.

procedure

(preferences:get-preference/gui sym    
  [default])  any/c
  sym : symbol?
  default : (-> void?)
   = (λ () (error 'get-preference/gui "unknown pref ~s" sym))
Like get-preference, but has more sophisticated error handling. In particular, it passes a #:timeout-lock-there argument that informs the user that the preferences file is locked (and offers the alternative of not showing the message again).

procedure

(preferences:add-panel labels f)  void?

  labels : (or/c string? (cons/c string? (listof string?)))
  f : 
(->i ([parent (is-a?/c area-container-window<%>)])
     ()
     [_ (parent)
        (let ([old-children (send parent get-children)])
          (and/c (is-a?/c area-container-window<%>)
                 (λ (child)
                   (andmap eq?
                           (append old-children (list child))
                           (send parent get-children)))))])
preferences:add-preference-panel adds the result of f with name labels to the preferences dialog box.

The labels determine where this preference panel is placed in the dialog. If the list is just one string, the preferences panel is placed at the top level of the dialog. If there are more strings, a hierarchy of nested panels is created and the new panel is added at the end. If multiple calls to preferences:add-preference-panel pass the same prefix of strings, those panels are placed in the same children.

When the preference dialog is opened for the first time, the function f is called with a panel, and f is expected to add a new child panel to it and add whatever preferences configuration controls it wants to that panel. Then, f’s should return the panel it added.
Adds a preferences panel for configuring options related to editing.
Adds a catch-all preferences panel for options.
Adds a preferences panel for configuring options relating to warnings.
Adds a preferences panel for configuring options related to Racket.

procedure

(preferences:add-to-warnings-checkbox-panel proc)  void?

  proc : ((is-a?/c vertical-panel%) . -> . void?)
Saves proc until the preferences panel is created, when it is called with the Misc. panel to add new children to the panel.

procedure

(preferences:add-to-scheme-checkbox-panel proc)  void?

  proc : ((is-a?/c vertical-panel%) . -> . void?)
Saves proc until the preferences panel is created, when it is called with the Racket preferences panel to add new children to the panel.

procedure

(preferences:add-to-editor-checkbox-panel proc)  void?

  proc : ((is-a?/c vertical-panel%) . -> . void?)
Saves proc until the preferences panel is created, when it is called with the editor preferences panel to add new children to the panel.

procedure

(preferences:add-to-general-checkbox-panel proc)  void?

  proc : ((is-a?/c vertical-panel%) . -> . void?)
Saves proc until the preferences panel is created, when it is called with the general preferences panel to add new children to the panel.
Adds a font selection preferences panel to the preferences dialog.
Shows the preferences dialog.
Hides the preferences dialog.

procedure

(preferences:add-on-close-dialog-callback cb)  void?

  cb : (-> void?)
Registers cb. Next time the user clicks the OK button the preferences dialog, all of the cb functions are called, assuming that each of the callbacks passed to preferences:add-can-close-dialog-callback succeed.
Registers cb. Next time the user clicks the OK button the preferences dialog, all of the cb functions are called. If any of them return #f, the dialog is not closed.

procedure

(preferences:add-check parent    
  pref-key    
  label    
  [from-boolean    
  to-boolean])  void?
  parent : (is-a?/c area-container<%>)
  pref-key : symbol?
  label : string?
  from-boolean : (-> boolean? any/c) = values
  to-boolean : (-> any/c boolean?) = values
Adds a radio-box% object (with label as its label) to parent that, when checked adjusts the preference with the key pref-key.

The to-boolean and from-boolean functions are used to convert from the preferences value to a booleans when checking/unchecking the radio-box% object. The defaults amount to treating the preference as a boolean such that checking the radio-box% sets the preference to #t and unchecking it sets the preference to #f.