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

draw error highlight before calling super

Browse Source 
closes PR 14517
This commit is contained in:
Robby Findler 2014-05-17 17:08:34 -05:00
parent 01fb28fa87
commit a6808bd4e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/drracket-pkgs/drracket/drracket/private/module-language.rkt
View File

@ -1381,7 +1381,6 @@
(inherit position-location get-admin)
(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)
(unless (null? online-error-ranges)
(unless before?
@ -1416,7 +1415,8 @@
(send dc set-alpha 1)
(send dc set-brush saved-brush)
(send dc set-pen saved-pen)
(send dc set-smoothing smoothing)))))
(send dc set-smoothing smoothing))))
(super on-paint before? dc left top right bottom dx dy draw-caret))
(define/override (on-event evt)
(define-values (mx my)