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

put status bar update on stepper frame eventspace

Browse Source
This commit is contained in:
John Clements 2012-01-18 13:08:16 -08:00
parent 276cb4150d
commit 758523bdf3
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/stepper/private/view-controller.rkt
View File

@ -79,19 +79,20 @@
(define view #f) (define view #f)
;; wait for steps to show up on the channel. When they do, add them to the list. ;; wait for steps to show up on the channel. When they do, add them to the list.
(define (start-listener-thread) (define (start-listener-thread stepper-frame-eventspace)
(thread (thread
(lambda () (lambda ()
(let loop () (let loop ()
(define new-result (async-channel-get view-channel)) (define new-result (async-channel-get view-channel))
(define new-step (format-result new-result)) (define new-step (format-result new-result))
(parameterize ([current-eventspace stepper-frame-eventspace])
(queue-callback (queue-callback
(lambda () (lambda ()
(set! view-history (append view-history (list new-step))) (set! view-history (append view-history (list new-step)))
(set! num-steps-available (length view-history)) (set! num-steps-available (length view-history))
;; this is only necessary the first time, but it's cheap: ;; this is only necessary the first time, but it's cheap:
(semaphore-post first-step-sema) (semaphore-post first-step-sema)
(update-status-bar))) (update-status-bar))))
(loop))))) (loop)))))
@ -375,7 +376,7 @@
(send (send s-frame edit-menu:get-redo-item) enable #f) (send (send s-frame edit-menu:get-redo-item) enable #f)
;; START THE MODEL ;; START THE MODEL
(start-listener-thread) (start-listener-thread (send s-frame get-eventspace))
(model:go (model:go
program-expander-prime program-expander-prime
;; what do do with the results: ;; what do do with the results: