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

unbreak view|show module browser

Browse Source 
fixes bug introduced in e8529ac30a

closes PR 14445
This commit is contained in:
Robby Findler 2014-04-13 15:00:41 -05:00
parent 08bec9de9c
commit 9f6ae47cf6
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/drracket-pkgs/drracket/drracket/private/module-browser.rkt
View File

@ -125,15 +125,17 @@
; ;
(define (fill-pasteboard pasteboard filename show-status) (define (fill-pasteboard pasteboard filename-or-text/pos show-status send-user-thread/eventspace)
(define text/pos (define text/pos
(let ([t (make-object text:basic%)]) (if (drracket:language:text/pos? filename-or-text/pos)
(send t load-file filename) filename-or-text/pos
(drracket:language:text/pos (let ([t (make-object text:basic%)])
t (send t load-file filename-or-text/pos)
0 (drracket:language:text/pos
(send t last-position)))) t
0
(send t last-position)))))
(define progress-channel (make-async-channel)) (define progress-channel (make-async-channel))
(define connection-channel (make-async-channel)) (define connection-channel (make-async-channel))
@ -232,6 +234,7 @@
complete-program?) complete-program?)
(semaphore-wait init-complete) (semaphore-wait init-complete)
(send-user-thread/eventspace user-thread user-custodian)
;; this thread puts a "cap" on the end of the connection-channel ;; this thread puts a "cap" on the end of the connection-channel
;; so that we know when we've gotten to the end. ;; so that we know when we've gotten to the end.
@ -551,7 +554,7 @@
#f #f
(λ (x) (update-label x)))) (λ (x) (update-label x))))
(let ([success? (fill-pasteboard pasteboard filename show-status)]) (let ([success? (fill-pasteboard pasteboard filename show-status void)])
(kill-thread thd) (kill-thread thd)
(parameterize ([current-eventspace progress-eventspace]) (parameterize ([current-eventspace progress-eventspace])
(queue-callback (queue-callback
@ -1284,7 +1287,7 @@
pasteboard:basic%))) pasteboard:basic%)))
(new draw-lines-pasteboard% [cache-arrow-drawing? #t])) (new draw-lines-pasteboard% [cache-arrow-drawing? #t]))
(define (standalone-fill-pasteboard pasteboard filename show-status) (define (standalone-fill-pasteboard pasteboard filename show-status void)
(define progress-channel (make-async-channel)) (define progress-channel (make-async-channel))
(define connection-channel (make-async-channel)) (define connection-channel (make-async-channel))