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

fix the not-a-language message so that the styles in the REPL are right

Browse Source
This commit is contained in:
Robby Findler 2012-01-06 20:58:32 -06:00
parent 631c145add
commit 950d165133
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drracket/private/rep.rkt
View File

@ -1641,9 +1641,9 @@ TODO
(λ args (drracket:app:about-drscheme)) (λ args (drracket:app:about-drscheme))
click-delta)) click-delta))
(set! setting-up-repl? #f) (set! setting-up-repl? #f)
(thaw-colorer)
(send context disable-evaluation) (send context disable-evaluation)
(reset-console) (reset-console)
(thaw-colorer)
(insert-prompt) (insert-prompt)
;; call the first-opened method on the user's thread, but wait here for that to terminate ;; call the first-opened method on the user's thread, but wait here for that to terminate
@ -1710,7 +1710,9 @@ TODO
obj obj
(if (eq? (car i) sp-err-other-end) (if (eq? (car i) sp-err-other-end)
(get-err-port) (get-err-port)
(get-out-port))))) (get-out-port))))
(flush-output (get-err-port))
(flush-output (get-out-port)))
(send context enable-evaluation) (send context enable-evaluation)
(end-edit-sequence) (end-edit-sequence)

9
collects/framework/private/text.rkt
View File

@ -2007,7 +2007,9 @@
get-focus-snip get-focus-snip
get-view-size get-view-size
scroll-to-position scroll-to-position
position-location) position-location
get-styles-fixed
set-styles-fixed)
;; private field ;; private field
(define eventspace (current-eventspace)) (define eventspace (current-eventspace))
@ -2305,9 +2307,11 @@
;; do-insertion : (listof (cons (union string snip) style-delta)) boolean -> void ;; do-insertion : (listof (cons (union string snip) style-delta)) boolean -> void
;; thread: eventspace main thread ;; thread: eventspace main thread
(define/private (do-insertion txts showing-input?) (define/private (do-insertion txts showing-input?)
(let ([locked? (is-locked?)]) (let ([locked? (is-locked?)]
[sf? (get-styles-fixed)])
(begin-edit-sequence) (begin-edit-sequence)
(lock #f) (lock #f)
(set-styles-fixed #f)
(set! allow-edits? #t) (set! allow-edits? #t)
(let loop ([txts txts]) (let loop ([txts txts])
(cond (cond
@ -2341,6 +2345,7 @@
(unless (is-a? str/snp string-snip%) (unless (is-a? str/snp string-snip%)
(change-style style old-insertion-point insertion-point)))) (change-style style old-insertion-point insertion-point))))
(loop (cdr txts))])) (loop (cdr txts))]))
(set-styles-fixed sf?)
(set! allow-edits? #f) (set! allow-edits? #f)
(lock locked?) (lock locked?)
(unless showing-input? (unless showing-input?