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

no input

Browse Source 
original commit: 29ff060ec59213244a49e95182df4f73a21848ef
This commit is contained in:
Robby Findler 1999-03-10 00:36:52 +00:00
parent f385eeb27c
commit 95117335ab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,10 +83,11 @@
start 100)) start 100))
(if frame? (if frame?
(let* ([f (make-object (if (even? n) (let* ([f (remember tag
(make-object (if (even? n)
frame% frame%
dialog%) dialog%)
"Tester" #f 200 200)] "Tester" #f 200 200))]
[p (remember tag (make-object (get-pane% n) f))]) [p (remember tag (make-object (get-pane% n) f))])
(remember tag (make-object canvas% f)) (remember tag (make-object canvas% f))
(when (zero? (modulo n 3)) (when (zero? (modulo n 3))
@ -214,7 +215,7 @@
(thread-weight t (floor (/ (thread-weight t) n)))) (thread-weight t (floor (/ (thread-weight t) n))))
(define (breakable t) (define (breakable t)
(if #t (if #f
(thread (lambda () (thread (lambda ()
(read) (read)
(printf "breaking~n") (printf "breaking~n")