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

fix line-number mixin

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-05 09:57:33 -07:00
parent b0d95708bf
commit c9d2f43398
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/private/text.rkt
View File

@ -3880,13 +3880,16 @@ designates the character that triggers autocompletion
(+ (unbox left) dx))
(define/augment (after-insert start length)
(setup-padding))
(setup-padding)
(inner (void) after-insert start length))
(define/augment (after-delete start length)
(setup-padding))
(setup-padding)
(inner (void) after-delete start length))
(define/augment (after-change-style start length)
(setup-padding))
(setup-padding)
(inner (void) after-change-style start length))
(define (draw-numbers dc top bottom dx dy start-line end-line)
(define (draw-text . args)