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

adjust the tooltip position so it goes to the end of the line where the arrowhead sits

Browse Source
This commit is contained in:
Robby Findler 2012-08-27 20:13:16 -05:00
parent 9934f202c9
commit 8a4567f5aa
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/drracket/private/syncheck/gui.rkt
View File

@ -1211,10 +1211,11 @@ If the namespace does not, they are colored the unbound color.
(define left-pos (tooltip-info-pos-left tooltip))
(define right-pos (tooltip-info-pos-right tooltip))
(define text (tooltip-info-text tooltip))
(send text position-location left-pos xlb ylb #t)
(send text position-location right-pos xrb yrb #f)
(define-values (xl-off yl-off) (send text editor-location-to-dc-location (unbox xlb) (unbox ylb)))
(define-values (xr-off yr-off) (send text editor-location-to-dc-location (unbox xrb) (unbox yrb)))
(define eol-pos (line-end-position (position-line right-pos)))
(send text position-location eol-pos xlb ylb #t #t)
(define-values (x-off y-off) (send text editor-location-to-dc-location (+ (unbox xlb) 4) (unbox ylb)))
(define window
(let loop ([ed text])
(cond
@ -1227,12 +1228,8 @@ If the namespace does not, they are colored the unbound color.
(cond
[window
(define (c n) (inexact->exact (round n)))
(define-values (glx gly) (send window client->screen (c xl-off) (c yl-off)))
(define-values (grx gry) (send window client->screen (c xr-off) (c yr-off)))
(values (min glx grx)
(min gly gry)
(max glx grx)
(max gly gry))]
(define-values (gx gy) (send window client->screen (c x-off) (c y-off)))
(values gx gy gx gy)]
[else
(values #f #f #f #f)]))