From e0e3870a622627a048e548ea5db0b5acf99b9f39 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Fri, 5 Nov 2010 15:43:20 -0600 Subject: [PATCH] dont modify positions if line numbers arent being shown --- collects/framework/private/text.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 2b920d896c..45a5f49f9d 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -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)