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

fix editor refresh problem when line numbers are shown

Browse Source 
More generally, fix horizontal refresh when an editor has left
padding. Otherwise, deleting a character in DrRacket with line
numbers shown seems sluggish, because the update waits for a
refresh event.
This commit is contained in:
Matthew Flatt 2011-10-28 20:00:13 -06:00
parent 3caf08da43
commit 506aa79d14
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wxme/mline.rkt
View File

@ -1145,13 +1145,13 @@ Debugging tools:
(unless (= maxscroll (mline-numscrolls mline))
(set-scroll-length mline maxscroll))
(if (= maxh (mline-h mline))
(send media refresh-box 0 y bigwidth maxh)
(send media refresh-box padding-l y bigwidth maxh)
(begin
(set-height mline maxh)
(let ([bigwidth (max 1e5 ;; really want viewable width, but > ok
(send media get-s-total-width))]
[bigheight (+ maxh (send media get-s-total-height))])
(send media refresh-box 0 y bigwidth bigheight))))))))
(send media refresh-box padding-l y bigwidth bigheight))))))))
#t)))
(define (update-right)
(and (bit-overlap? (mline-flags mline) CALC-RIGHT)