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

stop is idempotent now

Browse Source 
svn: r7085
This commit is contained in:
Matthias Felleisen 2007-08-13 14:11:53 +00:00
parent 2cb2eefd66
commit 39f6a4bc3a
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/htdch/draw/support.scm
View File

@ -201,10 +201,13 @@
void-or-true) void-or-true)
(define (endOfTime-java.lang.String-native this accs gets privates s) (define (endOfTime-java.lang.String-native this accs gets privates s)
(define theCanvas ((hash-table-get accs 'theCanvas) this)) (define _ (check-string s "endOfTime(String)" "first"))
(define _ (check-string s "endOfTime(String)" "first")) (define t (send s get-mzscheme-string))
(message-box "end of time" (send s get-mzscheme-string)) (define theCanvas ((hash-table-get accs 'theCanvas) this))
(send theCanvas stop) (parameterize ([current-eventspace (make-eventspace)])
(message-box "end of world" (send s get-mzscheme-string)))
(unless (null? theCanvas)
(send theCanvas stop))
#t) #t)
(define (endOfWorld-java.lang.String-native this accs gets privates s) (define (endOfWorld-java.lang.String-native this accs gets privates s)
@ -212,6 +215,7 @@
(define _ (check-string s "endOfWorld(String)" "first")) (define _ (check-string s "endOfWorld(String)" "first"))
(parameterize ([current-eventspace (make-eventspace)]) (parameterize ([current-eventspace (make-eventspace)])
(message-box "end of world" (send s get-mzscheme-string))) (message-box "end of world" (send s get-mzscheme-string)))
(send theCanvas stop) (unless (null? theCanvas)
(send theCanvas stop))
this)) this))
) )