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

mrlib/terminal: create embedded terminal in a container sequence

Browse Source
This commit is contained in:
Matthew Flatt 2013-04-20 08:31:26 -06:00
parent fd8bde94da
commit 82457258e2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mrlib/terminal.rkt
View File

@ -95,6 +95,9 @@
(λ (item evt) (λ (item evt)
(send text set-position 0 (send text last-position)))])) (send text set-position 0 (send text last-position)))]))
(when container
(send container begin-container-sequence))
(set! sub-container (set! sub-container
(or frame (or frame
(new (class vertical-panel% (new (class vertical-panel%
@ -136,6 +139,8 @@
(send text lock #t) (send text lock #t)
(send text hide-caret #t) (send text hide-caret #t)
(semaphore-post setup-sema) (semaphore-post setup-sema)
(when container
(send container end-container-sequence))
(when frame (when frame
(send frame show #t))))) (send frame show #t)))))