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

fix problem with text% padding

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-31 13:40:54 -07:00
parent f480d75810
commit 5809860dd3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wxme/text.rkt
View File

@ -3101,8 +3101,8 @@
(begin (begin
(when ty (set-box! ty (+ (- total-height extra-line-h) padding-t))) (when ty (set-box! ty (+ (- total-height extra-line-h) padding-t)))
(when by (set-box! by (+ total-height padding-t))) (when by (set-box! by (+ total-height padding-t)))
(when tx (set-box! tx 0)) (when tx (set-box! tx padding-l))
(when bx (set-box! bx 0)) (when bx (set-box! bx padding-l))
#f) #f)
(if (or whole-line? (zero? len)) (if (or whole-line? (zero? len))
(begin (begin
@ -5187,7 +5187,9 @@
(let ([y ycounter] (let ([y ycounter]
[save-pen (send dc get-pen)]) [save-pen (send dc get-pen)])
(send dc set-pen local-caret-pen) (send dc set-pen local-caret-pen)
(send dc draw-line dx (+ y dy) dx (sub1 (+ y extra-line-h dy))) (send dc draw-line
(+ dx padding-l) (+ y dy)
(+ dx padding-l) (sub1 (+ y extra-line-h dy)))
(send dc set-pen save-pen))) (send dc set-pen save-pen)))
(paint-done)] (paint-done)]
[(ycounter . >= . endy) [(ycounter . >= . endy)