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

fix coordinate computation for the new, big definitions/interactions labels

Browse Source 
closes PR 12944
This commit is contained in:
Robby Findler 2012-07-26 18:21:24 -05:00
parent 9d6f0e96ba
commit 203fbf7950
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/module-language.rkt
View File

@ -1802,8 +1802,8 @@
(define fore (send dc get-text-foreground))
(send dc set-font defs/ints-font)
(define-values (tw th _1 _2) (send dc get-text-extent id))
(define tx (- (unbox bw) tw))
(define ty (- (unbox bh) th))
(define tx (+ (unbox bx) (- (unbox bw) tw)))
(define ty (+ (unbox by) (- (unbox bh) th)))
(when (and (or (< left tx right)
(< left (+ tx tw) right))
(or (< top ty bottom)