make sure initial update goes on eventspace thread

(cherry picked from commit 481bc2f00f)
This commit is contained in:
John Clements 2012-01-18 14:51:34 -08:00 committed by Ryan Culpepper
parent 4808c7e189
commit 9ab43903c8

View File

@ -375,8 +375,9 @@
(send (send s-frame edit-menu:get-undo-item) enable #f)
(send (send s-frame edit-menu:get-redo-item) enable #f)
(define stepper-frame-eventspace (send s-frame get-eventspace))
;; START THE MODEL
(start-listener-thread (send s-frame get-eventspace))
(start-listener-thread stepper-frame-eventspace)
(model:go
program-expander-prime
;; what do do with the results:
@ -393,8 +394,12 @@
(thread
(lambda ()
(semaphore-wait first-step-sema)
(jump-to-beginning)
(enable-all-buttons)))
(parameterize
([current-eventspace stepper-frame-eventspace])
(queue-callback
(lambda ()
(jump-to-beginning)
(enable-all-buttons))))))
s-frame)