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

mrlib/terminal: fix eventspace handling in non-frame mode

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-20 16:42:59 -06:00
parent f371032a34
commit e2247fe0a5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/gui-pkgs/gui-lib/mrlib/terminal.rkt
View File

@ -44,7 +44,9 @@
#:close-button? [close-button? #t])
(define orig-eventspace (current-eventspace))
(define orig-custodian (current-custodian))
(define inst-eventspace (make-eventspace))
(define inst-eventspace (if container
(send (send container get-top-level-window) get-eventspace)
(make-eventspace)))
(define on-terminal-run-proc (on-terminal-run))
@ -155,7 +157,9 @@
(when frame
(send frame show #t)))))
(semaphore-wait setup-sema)
(if (equal? inst-eventspace (current-eventspace))
(yield setup-sema)
(semaphore-wait setup-sema))
(define (mk-port style)
(make-output-port