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

fix excessive redraw after changes within an editor

Browse Source 
svn: r14549
This commit is contained in:
Matthew Flatt 2009-04-18 01:38:18 +00:00
parent 4b3626c156
commit 82b9ab8a53
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wxme/text.ss
View File

@ -2561,7 +2561,6 @@
(error (method-name 'text% 'save-port) "error writing editor content")) (error (method-name 'text% 'save-port) "error writing editor content"))
#t))) #t)))
(define/private (do-read-from-file f start overwritestyle?) (define/private (do-read-from-file f start overwritestyle?)
(if write-locked? (if write-locked?
#f #f
@ -4722,9 +4721,9 @@
(cond (cond
[(not (= delayedscroll -1)) [(not (= delayedscroll -1))
(scroll-to-position/refresh delayedscroll delayedscrollateol? #f (when (scroll-to-position/refresh delayedscroll delayedscrollateol? #f
delayedscrollend delayedscrollbias) delayedscrollend delayedscrollbias)
(set! refresh-all? #t)] (set! refresh-all? #t))]
[delayedscrollbox? [delayedscrollbox?
(set! delayedscrollbox? #f) (set! delayedscrollbox? #f)
(when (do-scroll-to delayedscrollsnip delayedscroll-x delayedscroll-y (when (do-scroll-to delayedscrollsnip delayedscroll-x delayedscroll-y