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

.

Browse Source 
original commit: 14702222a7eec2e0b2005b85c2704f1f8ff1a616
This commit is contained in:
Matthew Flatt 1999-05-21 19:45:40 +00:00
commit e3cf77c071
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

@ -2509,9 +2509,9 @@
(define (constructor-name who)
(string->symbol (format "initialization for ~a%" who)))
(define (check-container-parent cwho p)
(define (check-container-parent who p)
(unless (is-a? p internal-container<%>)
(raise-type-error cwho "built-in container<%> object" p)))
(raise-type-error (who->name who) "built-in container<%> object" p)))
(define (check-top-level-parent/false who p)
(unless (or (not p) (is-a? p frame%) (is-a? p dialog%))