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

dont modify positions if line numbers arent being shown

Browse Source
This commit is contained in:
Jon Rafkind 2010-11-05 15:43:20 -06:00
parent a698d89a75
commit e0e3870a62
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3860,7 +3860,9 @@ designates the character that triggers autocompletion
(define line-numbers-space 0)
(define/override (find-position x y . args)
;; adjust x position to account for line numbers
(super find-position (- x line-numbers-space) y . args))
(if show-line-numbers?
(super find-position (- x line-numbers-space) y . args)
(super find-position x y . args)))
(define (draw-line-numbers dc left top right bottom dx dy)
(setup-dc dc)