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