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

another attempt to avoid building rectangles

Browse Source 
where the right edge is left of the left edge

original commit: cc0a105e21c358290d1f92144c4a230801d5cdd0
This commit is contained in:
Robby Findler 2012-12-01 14:50:19 -06:00
parent 915918282f
commit 75820c03cd
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -216,19 +216,21 @@
(define color (range-color range))
(define lp (last-position))
(define-values (start-eol? end-eol?) (if (= start end) (values #f #f) (values #f #t)))
(define-values (start-x top-start-y bottom-start-y)
(begin
(position-locations start b1 b2 #f b3 start-eol? #t)
(values (if (and caret-space? (not (= start end)))
(+ 1 (unbox b1))
(unbox b1))
(unbox b2)
(unbox b3))))
(define-values (end-x top-end-y bottom-end-y)
(begin (position-locations end b1 b2 #f b3 end-eol? #t)
(values (unbox b1)
(unbox b2)
(unbox b3))))
(define-values (start-x top-start-y bottom-start-y)
(begin
(position-locations start b1 b2 #f b3 start-eol? #t)
(values (if (and caret-space?
(not (= start end))
(<= (+ (unbox b1) 1) end-x))
(+ 1 (unbox b1))
(unbox b1))
(unbox b2)
(unbox b3))))
(cond
;; the position-location values can be strange when
;; this condition is true, so we just bail out.