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

.

Browse Source 
original commit: 033cd677c6edf1dd82973a2d78733dae7aaeae96
This commit is contained in:
Matthew Flatt 2000-09-22 22:38:25 +00:00
parent 1ef0992f87
commit edae5aa2f2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mred/wrap/mred.ss
View File

@ -2793,7 +2793,7 @@
(lambda (f) (lambda (f)
(unless (and (procedure? f) (unless (and (procedure? f)
(procedure-arity-includes? f 1)) (procedure-arity-includes? f 1))
(raise-type-error (who->name '(method container<%> change-chidlren)) (raise-type-error (who->name '(method container<%> change-children))
"procedure or arity 1" "procedure or arity 1"
f)) f))
(send (get-wx-panel) change-children (send (get-wx-panel) change-children
@ -4869,7 +4869,7 @@
(letrec ([ok? #f] (letrec ([ok? #f]
[typed-name #f] [typed-name #f]
[dir (or directory last-visted-directory (current-directory))] [dir (or directory last-visted-directory (current-directory))]
[f (make-object dialog% (if put? "Put File" "Get File") parent 500 300)] [f (make-object dialog% (if put? "Save" "Open") parent 500 300)]
[__ (when message [__ (when message
(let ([p (make-object vertical-pane% f)]) (let ([p (make-object vertical-pane% f)])
(send p stretchable-height #f) (send p stretchable-height #f)