From 3379ac44f5d81ae41b43273a616f3069fe3bbc7b Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Wed, 14 May 2008 03:34:17 +0000 Subject: [PATCH] ensure a frame is a drscheme:unit:frame<%> before attempting to send 'get-tabs' to it svn: r9829 --- collects/gui-debugger/debug-tool.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/gui-debugger/debug-tool.ss b/collects/gui-debugger/debug-tool.ss index 28960e602c..97798d449a 100644 --- a/collects/gui-debugger/debug-tool.ss +++ b/collects/gui-debugger/debug-tool.ss @@ -132,9 +132,10 @@ [else (send (group:get-the-frame-group) for-each-frame (lambda (frame) - (let* ([defss (map (lambda (t) (send t get-defs)) (send frame get-tabs))] - [defs (findf (lambda (d) (send d port-name-matches? source)) defss)]) - (and defs (k defs))))) + (and (is-a? frame drscheme:unit:frame<%>) + (let* ([defss (map (lambda (t) (send t get-defs)) (send frame get-tabs))] + [defs (findf (lambda (d) (send d port-name-matches? source)) defss)]) + (and defs (k defs)))))) default])))) (define (debug-definitions-text-mixin super%)