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

fix (I think) a redrawing problem with the 102 chars column guide

Browse Source
This commit is contained in:
Robby Findler 2013-07-11 10:05:37 -05:00
parent 5b24eed639
commit 27603fafba
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
View File

@ -937,6 +937,7 @@
(define aw (box 0.0))
(define ah (box 0.0))
(define old-draw-the-line? #f)
(define left-padding 0)
(define/augment (on-change)
@ -944,13 +945,22 @@
(define old-aw (unbox aw))
(define old-ah (unbox ah))
(get-extent aw ah)
(define new-draw-the-line? (draw-the-line?))
(define-values (left top right bottom) (get-padding))
(unless (and (= old-aw (unbox aw))
(= old-ah (unbox ah))
(= left left-padding))
(= left left-padding)
(equal? new-draw-the-line? old-draw-the-line?))
(set! old-draw-the-line? new-draw-the-line?)
(set! left-padding left)
(invalidate-bitmap-cache)))
;; pre: aw initialized to current value
(define/private (draw-the-line?)
(define x-pos (get-x-spot char-width))
(and x-pos
(< x-pos (- (unbox aw) 3))))
(define/override (on-paint before? dc left top right bottom dx dy draw-caret)
(super on-paint before? dc left top right bottom dx dy draw-caret)
(when char-width
@ -959,7 +969,7 @@
(when x-pos
(define old-pen (send dc get-pen))
(send dc set-pen pen)
(when (< x-pos (- (unbox aw) 3))
(when (draw-the-line?)
(send dc draw-line
(+ dx x-pos)
(+ dy top column-guide-mixin-pen-size)