From 203fbf795047f1e5f16f455da5b102dfa0ca6360 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 26 Jul 2012 18:21:24 -0500 Subject: [PATCH] fix coordinate computation for the new, big definitions/interactions labels closes PR 12944 --- collects/drracket/private/module-language.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 211c5f7a0d..64cf8aa8bd 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -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)