set the font before computing the distance between the line numbers and the real text. add an option to the general pane to enable line numbers

original commit: eb89a429e796f4ee0ae0d8e0bd154992e36dc0dc
2010-11-01 23:45:00 -06:00 · 2010-11-01 23:45:00 -06:00 · 7a68394411
commit 7a68394411
parent 8493d46967
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/text.rkt
+++ b/collects/framework/private/text.rkt
@ -3902,6 +3902,7 @@ designates the character that triggers autocompletion
            (define-values (x y) (send dc get-origin))
            (set! old-origin-x x)
            (set! old-origin-y y)
+            (setup-dc dc)
            (define-values (font-width font-height baseline space)
                           (send dc get-text-extent "10000"))
            ;; add an extra 0 so it looks nice