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

Lots of "~e" to "~.s" changes.

Browse Source 
original commit: 606b7f60dc597a6870efc11364e1dd3e1a8b4a1b
This commit is contained in:
Eli Barzilay 2010-08-25 16:10:55 -04:00
parent 7d81183831
commit b0135206c3
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/preferences.rkt
View File

@ -141,7 +141,7 @@ the state transitions / contracts are:
(let ([default (hash-ref defaults p)]) (let ([default (hash-ref defaults p)])
(unless ((default-checker default) value) (unless ((default-checker default) value)
(error 'preferences:set (error 'preferences:set
"tried to set preference ~e to ~e but it does not meet test from preferences:set-default" "tried to set preference ~e to ~e but it does not meet test from `preferences:set-default'"
p value)) p value))
(check-callbacks p value) (check-callbacks p value)
(hash-set! preferences p value))] (hash-set! preferences p value))]

6
collects/framework/private/color.rkt
View File

@ -918,15 +918,15 @@ added get-regions
(let* ((x null) (let* ((x null)
(f (λ (a b c) (set! x (cons (list a b c) x))))) (f (λ (a b c) (set! x (cons (list a b c) x)))))
(send (lexer-state-tokens ls) for-each f) (send (lexer-state-tokens ls) for-each f)
(printf "tokens: ~e~n" (reverse x)) (printf "tokens: ~.s~n" (reverse x))
(set! x null) (set! x null)
(send (lexer-state-invalid-tokens ls) for-each f) (send (lexer-state-invalid-tokens ls) for-each f)
(printf "invalid-tokens: ~e~n" (reverse x)) (printf "invalid-tokens: ~.s~n" (reverse x))
(printf "start-pos: ~a current-pos: ~a invalid-tokens-start ~a~n" (printf "start-pos: ~a current-pos: ~a invalid-tokens-start ~a~n"
(lexer-state-start-pos ls) (lexer-state-start-pos ls)
(lexer-state-current-pos ls) (lexer-state-current-pos ls)
(lexer-state-invalid-tokens-start ls)) (lexer-state-invalid-tokens-start ls))
(printf "parens: ~e~n" (car (send (lexer-state-parens ls) test))))) (printf "parens: ~.s~n" (car (send (lexer-state-parens ls) test)))))
lexer-states)) lexer-states))
;; ------------------------- Callbacks to Override ---------------------- ;; ------------------------- Callbacks to Override ----------------------

8
collects/framework/test.rkt
View File

@ -267,7 +267,7 @@
(send panel get-children)))]) (send panel get-children)))])
(or found (or found
(error object-tag (error object-tag
"no object of class ~a named ~e in active frame" "no object of class ~a named ~.s in active frame"
obj-class obj-class
b-desc)))] b-desc)))]
[(is-a? b-desc obj-class) b-desc] [(is-a? b-desc obj-class) b-desc]
@ -289,11 +289,11 @@
[ctrl (find-ctrl)]) [ctrl (find-ctrl)])
(cond (cond
[(not (send ctrl is-shown?)) [(not (send ctrl is-shown?))
(error error-tag "control ~e is not shown (label ~e)" ctrl (send ctrl get-label))] (error error-tag "control ~.s is not shown (label ~e)" ctrl (send ctrl get-label))]
[(not (send ctrl is-enabled?)) [(not (send ctrl is-enabled?))
(error error-tag "control ~e is not enabled (label ~e)" ctrl (send ctrl get-label))] (error error-tag "control ~.s is not enabled (label ~e)" ctrl (send ctrl get-label))]
[(not (in-active-frame? ctrl)) [(not (in-active-frame? ctrl))
(error error-tag "control ~e is not in active frame (label ~e)" ctrl (send ctrl get-label))] (error error-tag "control ~.s is not in active frame (label ~e)" ctrl (send ctrl get-label))]
[else [else
(update-control ctrl) (update-control ctrl)
(send ctrl command event) (send ctrl command event)