Move prefs:get/set from unstable/gui/prefs to framework/preferences.

This commit is contained in:
Vincent St-Amour 2015-08-18 16:19:12 -05:00
parent 115fe633a8
commit 8d8eaf0a41
2 changed files with 13 additions and 9 deletions

View File

@ -171,6 +171,11 @@ the state transitions / contracts are:
(define pref-save-callbacks '())
(define (preferences:get/set sym)
(case-lambda
[() (preferences:get sym)]
[(v) (preferences:set sym v)]))
(define (preferences:register-save-callback f)
(define key (gensym))
(set! pref-save-callbacks (cons (list key f) pref-save-callbacks))
@ -377,6 +382,14 @@ the state transitions / contracts are:
if the preference's default has not been set.
See also @racket[preferences:set-default].})
(proc-doc/names
preferences:get/set
(-> symbol? (case-> (-> any/c) (-> any/c void?)))
(pref)
@{Returns a procedure that when applied to zero arguments retrieves the
current value of the preference named @racket[pref] and when
applied to one argument updates the preference named @racket[pref].})
(proc-doc/names
preferences:add-callback

View File

@ -1,9 +0,0 @@
#lang racket/base
;; owner: ryanc
(require framework/preferences)
(provide pref:get/set)
(define (pref:get/set sym)
(case-lambda
[() (preferences:get sym)]
[(v) (preferences:set sym v)]))