fix one way that rectangles could have the left side be to the

right of the right side original commit: f8793c0cc2be9a4592ffd12c620920eadb1dee49
2012-11-26 10:56:04 -06:00 · 2012-11-26 10:56:04 -06:00 · 528ac68d11
commit 528ac68d11
parent 6d9a8922d6
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/text.rkt
+++ b/collects/framework/private/text.rkt
@ -213,7 +213,7 @@
      (define-values (start-x top-start-y bottom-start-y)
        (begin 
          (position-locations start b1 b2 #f b3 start-eol? #t)
-          (values (if caret-space?
+          (values (if (and caret-space? (not (= start end)))
                      (+ 1 (unbox b1))
                      (unbox b1))
                  (unbox b2)