From bbb2bec62b55d3297581fb59a631fdf7d99cb669 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Apr 2013 19:55:53 -0500 Subject: [PATCH] fix jump-to-defining-file when a stacktrace window is open (cherry picked from commit 951538ab90cf39b56c4a5539eb9e766000ff4a44) --- collects/drracket/private/syncheck/gui.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index b8f5987989..29fe560081 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1555,7 +1555,8 @@ If the namespace does not, they are colored the unbound color. (match-define (def-link id filename submods) a-def-link) (define tab (for/or ([frame (in-list (send (group:get-the-frame-group) get-frames))]) - (send frame find-matching-tab filename))) + (and (is-a? frame drracket:unit:frame<%>) + (send frame find-matching-tab filename)))) (define dt (and tab (send (send tab get-defs) syncheck:find-definition-target id submods)))