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

ensure a frame is a drscheme:unit:frame<%> before attempting to send 'get-tabs' to it

Browse Source 
svn: r9829
This commit is contained in:
Greg Cooper 2008-05-14 03:34:17 +00:00
parent 9a6474df71
commit 3379ac44f5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/gui-debugger/debug-tool.ss
View File

@ -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%)