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

.

Browse Source 
original commit: f944c667beb264f1c7bdc6c6953ae57be89b873c
This commit is contained in:
Matthew Flatt 2000-05-11 20:32:51 +00:00
parent 4f18337502
commit b8305fd4d6
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,12 @@
(send mdi-frame maximize #t)
(send mdi-frame show #t))
(define default-parent-frame #f)
(define (parent-frame)
(set! default-parent-frame (make-object frame% "Item Test Parent" #f
100 100))
(send default-parent-frame show #t))
(when (defined? 'mdi?)
(when mdi?
(mdi)))
@ -20,7 +26,7 @@
(define make-frame
(opt-lambda (% name [parent #f] [x #f] [y #f] [w #f] [h #f] [style '()])
(make-object % name
(or parent mdi-frame)
(or parent mdi-frame default-parent-frame)
x y w h
(if mdi-frame
(cons 'mdi-child style)