mrlib/terminal: create embedded terminal in a container sequence

2013-04-20 08:31:26 -06:00 · 2013-04-20 08:31:26 -06:00 · 82457258e2
commit 82457258e2
parent fd8bde94da
1 changed files with 5 additions and 0 deletions
--- a/collects/mrlib/terminal.rkt
+++ b/collects/mrlib/terminal.rkt
@ -94,6 +94,9 @@
              [callback
               (λ (item evt)
                  (send text set-position 0 (send text last-position)))]))
+       
+       (when container
+         (send container begin-container-sequence))

       (set! sub-container
             (or frame
@ -136,6 +139,8 @@
       (send text lock #t)
       (send text hide-caret #t)
       (semaphore-post setup-sema)
+       (when container
+         (send container end-container-sequence))
       (when frame
         (send frame show #t)))))