suzanne.soy/gui
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 
original commit: 950d165133768ac8fe500b7bfea5eb22f8d5286c
This commit is contained in:
Robby Findler 2012-01-06 20:58:32 -06:00
parent 218ea84e74
commit 1c40749acf
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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?