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

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

@ -2560,7 +2560,6 @@
(when fileerr? (when fileerr?
(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?
@ -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
@ -4735,7 +4734,7 @@
(send s-admin get-dc x y) (send s-admin get-dc x y)
(when (or (not (= origx x)) (not (= origy y))) (when (or (not (= origx x)) (not (= origy y)))
(set! refresh-all? #t))) (set! refresh-all? #t)))
(let-boxes ([x 0.0] [y 0.0] [w 0.0] [h 0.0]) (let-boxes ([x 0.0] [y 0.0] [w 0.0] [h 0.0])
(send s-admin get-max-view x y w h) (send s-admin get-max-view x y w h)
(let ([top y] (let ([top y]