From 3a04bed4795db5e6aece35cfdaa31939b4d24ea3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 23 Nov 2012 15:40:34 -0600 Subject: [PATCH] avoid calling client->screen with numbers out of its domain related to PR 13292 --- collects/drracket/private/syncheck/gui.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index 166b31a993..a31e677278 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1216,7 +1216,7 @@ If the namespace does not, they are colored the unbound color. (loop (send (send admin get-snip) get-editor)) #f)]))) (cond - [window + [(and window (< -10000 x-off 10000) (< -10000 y-off 10000)) (define (c n) (inexact->exact (round n))) (define-values (gx gy) (send window client->screen (c x-off) (c y-off))) (values gx gy gx gy)]