suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bound toggle-focus-between-definitions-and-interactions to c:f6

Browse Source 
svn: r5068

original commit: 7f78ffb5ed515c37b45db4ea26ad16a8695beee9
This commit is contained in:
Robby Findler 2006-12-09 00:21:21 +00:00
parent c9f6745c94
commit 1f0030f873
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/preferences.ss
View File

@ -44,6 +44,9 @@ the state transitions / contracts are:
[prefix frame: framework:frame^]) [prefix frame: framework:frame^])
(export framework:preferences^) (export framework:preferences^)
(define pref-debug? (getenv "PLTDRPREFDEBUG"))
(when pref-debug?
(printf "PLTDRPREFDEBUG: showing get and set calls\n"))
(define main-preferences-symbol 'plt:framework-prefs) (define main-preferences-symbol 'plt:framework-prefs)
@ -92,6 +95,8 @@ the state transitions / contracts are:
;; return the current value of the preference `p' ;; return the current value of the preference `p'
;; exported ;; exported
(define (get p) (define (get p)
(when pref-debug?
(printf "get ~s\n" p))
(cond (cond
[(pref-default-set? p) [(pref-default-set? p)
(let* ([g (gensym)] (let* ([g (gensym)]
@ -108,7 +113,10 @@ the state transitions / contracts are:
;; set : symbol any -> void ;; set : symbol any -> void
;; updates the preference ;; updates the preference
;; exported ;; exported
(define (set p value) (multi-set (list p) (list value))) (define (set p value)
(when pref-debug?
(printf "set ~s\n" p))
(multi-set (list p) (list value)))
;; set : symbol any -> void ;; set : symbol any -> void
;; updates the preference ;; updates the preference