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

tweaks to try to get more information on a new error in case it happens again

Browse Source
This commit is contained in:
Robby Findler 2013-10-02 10:02:04 -05:00
parent 1742545640
commit 7037120be7
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/framework/preferences.rkt
View File

@ -144,7 +144,7 @@ the state transitions / contracts are:
(error 'preferences:set (error 'preferences:set
(string-append (string-append
"new value doesn't satisfy preferences:set-default predicate\n" "new value doesn't satisfy preferences:set-default predicate\n"
" pref sym: ~e\n" " pref sym: ~v\n"
" given: ~e\n" " given: ~e\n"
" predicate: ~e") " predicate: ~e")
p value checker?)) p value checker?))

3
pkgs/gui-pkgs/gui-lib/framework/private/editor.rkt
View File

@ -456,7 +456,8 @@
(get-current-preferred-font-size)))) (get-current-preferred-font-size))))
(define (set-current-preferred-font-size new-size) (define/contract (set-current-preferred-font-size new-size)
(-> exact-nonnegative-integer? void?)
(define old-pref (preferences:get 'framework:standard-style-list:font-size)) (define old-pref (preferences:get 'framework:standard-style-list:font-size))
(define current-mons (get-current-monitor-sizes)) (define current-mons (get-current-monitor-sizes))
(define new-monitor-sizes (define new-monitor-sizes