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

.

Browse Source 
original commit: 3a6d8e9daa1dc10a70a8d373fd3fcb627aa5ca9d
This commit is contained in:
Matthew Flatt 2004-02-23 23:04:54 +00:00
parent d6f4c4c0fa
commit 387ab66058
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/mred/item.ss
View File

@ -357,7 +357,7 @@
(send p stretchable-height stretchy?)
(let ()
(define l (make-object (trace-mixin message%) "Me&ssag\uE9" p)) ; \uE9 is e with '
(define l (make-object (trace-mixin message%) "Messag&\uE9" p)) ; \uE9 is e with '
(define il (make-object (trace-mixin message%) return-bmp p))
(add-testers "Message" l)
@ -386,7 +386,7 @@
(add-label-direction label-h? '(single))
(if alt-inits? 2 #f)))
(define cb (make-object (trace-mixin check-box%) "C&h\uE9ck" ip void null alt-inits?)) ; \uE9 is e with '
(define cb (make-object (trace-mixin check-box%) "C&h\u0000E9ck" ip void null alt-inits?)) ; \uE9 is e with '
(define icb (make-object (trace-mixin check-box%) mred-bmp ip void null alt-inits?))
@ -413,7 +413,7 @@
(if alt-inits? 1 0)))
(define ch (make-object (trace-mixin choice%)
(if null-label? #f "Ch&o\uEDce") ; \uED is i with '
(if null-label? #f "Ch&o\u0000EDce") ; \uED is i with '
'("Alpha" "Beta" "Gamma" "Delta & R\uE9st") ; \uE9 is e with '
ip void
(add-label-direction label-h? null)