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

macro-stepper: added thread/eventspace check

Browse Source 
Closes PR 11364 (actually, earlier commit closed)
This commit is contained in:
Ryan Culpepper 2010-10-29 16:54:26 -06:00
parent 60f8d3854a
commit a3367fd0b4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/macro-debugger/view/view.rkt
View File

@ -38,7 +38,12 @@
(send/i (send/i stepper-frame stepper-frame<%> get-widget) widget<%>
add-deriv deriv))))
;; PRE: current thread = current eventspace's handler thread
(define/public (new-stepper [flags '()])
(unless (eq? (current-thread)
(eventspace-handler-thread (current-eventspace)))
(error 'macro-stepper-director
"new-stepper method called from wrong thread"))
(define stepper-frame (new-stepper-frame))
(define stepper (send/i stepper-frame stepper-frame<%> get-widget))
(send stepper-frame show #t)