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

.

Browse Source 
original commit: ddad3b48d8f34cbb3437aa8a02f707e593b1d360
This commit is contained in:
Matthew Flatt 2004-01-08 23:03:42 +00:00
parent 3e32d58dff
commit 151595f147
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,8 +5,8 @@
(define source-dir (current-load-relative-directory)) (define source-dir (current-load-relative-directory))
(define num-times 2) (define num-times 8)
(define num-threads 2) (define num-threads 3)
(define dump-stats? #f) (define dump-stats? #f)

3
collects/tests/mred/paramz.ss
View File

@ -79,6 +79,8 @@
;; Killing an eventspace ;; Killing an eventspace
(define c (make-custodian)) (define c (make-custodian))
(define e (parameterize ([current-custodian c]) (make-eventspace))) (define e (parameterize ([current-custodian c]) (make-eventspace)))
(define tmr (parameterize ([current-eventspace e])
(new timer% [notify-callback void])))
(parameterize ([current-eventspace e]) (send (make-object frame% "x" #f 50 50) show #t)) (parameterize ([current-eventspace e]) (send (make-object frame% "x" #f 50 50) show #t))
(test #f 'shutdown? (eventspace-shutdown? e)) (test #f 'shutdown? (eventspace-shutdown? e))
(custodian-shutdown-all c) (custodian-shutdown-all c)
@ -99,5 +101,6 @@
(try-use-es (lambda () (make-object dialog% "x" #f 50 50))) (try-use-es (lambda () (make-object dialog% "x" #f 50 50)))
(try-use-es (lambda () (make-object timer%))) (try-use-es (lambda () (make-object timer%)))
(try-use-es (lambda () (queue-callback void))) (try-use-es (lambda () (queue-callback void)))
(try-use-es (lambda () (send tmr start 100 #t)))
(report-errs) (report-errs)