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

bring down below 102 columns and fix a set! expression

Browse Source 
to actually have an effect
This commit is contained in:
Robby Findler 2016-03-07 08:30:32 -06:00
parent 2ab1fb319a
commit da7a258da8
1 changed files with 75 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gui-lib/framework/private/preferences.rkt
View File

@ -51,7 +51,8 @@ the state transitions / contracts are:
(define (get-preference/gui sym [def (λ () (error 'get-preference/gui "unknown pref ~s" sym))]) (define (get-preference/gui sym [def (λ () (error 'get-preference/gui "unknown pref ~s" sym))])
(define (try) (define (try)
(get-preference sym (get-preference
sym
def def
#:timeout-lock-there #:timeout-lock-there
(λ (filename) (λ (filename)
@ -127,7 +128,9 @@ the state transitions / contracts are:
#f #f
#f ;;parent #f ;;parent
'(default=2 caution))] '(default=2 caution))]
[else (error 'preferences.rkt "preferences-lock-file-mode returned unknown mode ~s\n" the-mode)])) [else (error 'preferences.rkt
"preferences-lock-file-mode returned unknown mode ~s\n"
the-mode)]))
(case mb-ans (case mb-ans
[(2 #f) (record-actual-failure)] [(2 #f) (record-actual-failure)]
[(1) [(1)
@ -457,7 +460,8 @@ the state transitions / contracts are:
(list (string-constant editor-prefs-panel-label) (list (string-constant editor-prefs-panel-label)
(string-constant editor-general-prefs-panel-label)) (string-constant editor-general-prefs-panel-label))
(λ (editor-panel) (λ (editor-panel)
(add-check editor-panel 'framework:delete-forward? (string-constant map-delete-to-backspace) (add-check editor-panel 'framework:delete-forward?
(string-constant map-delete-to-backspace)
not not) not not)
(add-check editor-panel (add-check editor-panel
'framework:auto-set-wrap? 'framework:auto-set-wrap?
@ -544,10 +548,9 @@ the state transitions / contracts are:
(editor-panel-procs editor-panel))))]) (editor-panel-procs editor-panel))))])
(add-editor-checkbox-panel))) (add-editor-checkbox-panel)))
(define (add-general-checkbox-panel) (define (add-general-checkbox-panel) (add-general-checkbox-panel/real))
(letrec ([add-general-checkbox-panel (define (add-general-checkbox-panel/real)
(λ () (set! add-general-checkbox-panel/real void)
(set! add-general-checkbox-panel void)
(add-checkbox-panel (add-checkbox-panel
(list (string-constant general-prefs-panel-label)) (list (string-constant general-prefs-panel-label))
(λ (editor-panel) (λ (editor-panel)
@ -583,8 +586,7 @@ the state transitions / contracts are:
[(pdf) 2]))) [(pdf) 2])))
(update-print-rb (preferences:get 'framework:print-output-mode)) (update-print-rb (preferences:get 'framework:print-output-mode))
(preferences:add-callback 'framework:print-output-mode (λ (p v) (update-print-rb v))) (preferences:add-callback 'framework:print-output-mode (λ (p v) (update-print-rb v)))
(general-panel-procs editor-panel))))]) (general-panel-procs editor-panel))))
(add-general-checkbox-panel)))
(define (add-warnings-checkbox-panel) (define (add-warnings-checkbox-panel)
(letrec ([add-warnings-checkbox-panel (letrec ([add-warnings-checkbox-panel
@ -639,7 +641,8 @@ the state transitions / contracts are:
(cond (cond
[(string? default) string?] [(string? default) string?]
[(number? default) number?] [(number? default) number?]
[else (error 'internal-error.set-default "unrecognized default: ~a\n" default)])))))]) [else (error 'internal-error.set-default
"unrecognized default: ~a\n" default)])))))])
(for-each (set-default build-font-entry font-default-string string?) (for-each (set-default build-font-entry font-default-string string?)
font-families) font-families)