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

.

Browse Source 
original commit: 5f4a3b343c11b805ff7beb337721453f92c918ea
This commit is contained in:
Matthew Flatt 2004-03-09 18:26:57 +00:00
parent c7a4b945c8
commit 79aa722fab
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/kernel.ss
View File

@ -612,7 +612,6 @@
(define-function file-selector) (define-function file-selector)
(define-class list-box% item% #f (define-class list-box% item% #f
set-string set-string
get-string
set-first-visible-item set-first-visible-item
set set
get-selections get-selections

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

@ -386,7 +386,7 @@
(add-label-direction label-h? '(single)) (add-label-direction label-h? '(single))
(if alt-inits? 2 #f))) (if alt-inits? 2 #f)))
(define cb (make-object (trace-mixin check-box%) "C&h\u0000E9ck" ip void null alt-inits?)) ; \uE9 is e with ' (define cb (make-object (trace-mixin check-box%) "C&h\u00E9ck" ip void null alt-inits?)) ; \uE9 is e with '
(define icb (make-object (trace-mixin check-box%) mred-bmp ip void null alt-inits?)) (define icb (make-object (trace-mixin check-box%) mred-bmp ip void null alt-inits?))
@ -413,7 +413,7 @@
(if alt-inits? 1 0))) (if alt-inits? 1 0)))
(define ch (make-object (trace-mixin choice%) (define ch (make-object (trace-mixin choice%)
(if null-label? #f "Ch&o\u0000EDce") ; \uED is i with ' (if null-label? #f "Ch&o\u00EDce") ; \uED is i with '
'("Alpha" "Beta" "Gamma" "Delta & R\uE9st") ; \uE9 is e with ' '("Alpha" "Beta" "Gamma" "Delta & R\uE9st") ; \uE9 is e with '
ip void ip void
(add-label-direction label-h? null) (add-label-direction label-h? null)