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

...

Browse Source 
original commit: bd0c59dad8f3ab39d30c7c289645b755f28f334b
This commit is contained in:
Robby Findler 2000-08-24 03:17:50 +00:00
parent d25a01dcec
commit 59f4f161d5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/frame.ss
View File

@ -147,7 +147,12 @@
(public
[get-area-container (lambda () panel)])
(sequence
(set! after-init? #t))))
(set! after-init? #t)
'(global-defined-value 'open-frames
(cons (make-weak-box this)
(global-defined-value 'open-frames))))))
'(global-defined-value 'open-frames null)
(define info<%> (interface (basic<%>)
determine-width