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

use glob-def-value

Browse Source 
original commit: 719022909e9dd87f14e6a2502ab8ea8f2e15c83e
This commit is contained in:
Matthew Flatt 1998-06-29 14:04:17 +00:00
parent dcab63f956
commit 3472d2c7bc
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mred/mem.ss
View File

@ -4,7 +4,7 @@
(define source-dir (current-load-relative-directory)) (define source-dir (current-load-relative-directory))
(define num-times 12) (define num-times 12)
(define num-threads 1) (define num-threads 3)
(define dump-stats? #t) (define dump-stats? #t)
@ -36,10 +36,12 @@
(lambda (x) (void))]))) (lambda (x) (void))])))
(when subwindows? (when subwindows?
(define sub-collect-frame (global-defined-value
(make-object wx:frame% null "sub-collect" -1 -1 200 200)) 'sub-collect-frame
(define sub-collect-panel (make-object wx:frame% null "sub-collect" -1 -1 200 200))
(make-object wx:panel% sub-collect-frame 0 0 100 100))) (global-defined-value
'sub-collect-panel
(make-object wx:panel% sub-collect-frame 0 0 100 100)))
(send sub-collect-frame show #t) (send sub-collect-frame show #t)