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

Revert "Fixed error highlighting in embedded snips."; lingering bugs

Browse Source 
on get-canvas.

This reverts commit a12d0704e7a10e73988db57ad0e8a3d39998663e.

svn: r10462
This commit is contained in:
Danny Yoo 2008-06-26 20:17:12 +00:00
parent 448495aa0e
commit 4f56c1169b
2 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/drscheme/private/debug.ss
View File

@ -764,7 +764,9 @@ profile todo:
[frame (cond
[(path? debug-source) (handler:edit-file debug-source)]
[(is-a? debug-source editor<%>)
(get-enclosing-editor-frame debug-source)]
(let ([canvas (send debug-source get-canvas)])
(and canvas
(send canvas get-top-level-window)))]
[else #f])]
[editor (cond
[(path? debug-source)
@ -787,23 +789,6 @@ profile todo:
;; get-enclosing-editor-frame: editor<%> -> (or/c frame% #f)
;; Returns the enclosing frame of an-editor, or #f if we can't find it.
(define (get-enclosing-editor-frame an-editor)
(let ([admin (send an-editor get-admin)])
(cond
[(is-a? admin editor-snip-editor-admin<%>)
(let* ([enclosing-editor-snip (send admin get-snip)]
[editor-snip-admin (send enclosing-editor-snip get-admin)]
[enclosing-editor (send editor-snip-admin get-editor)])
(get-enclosing-editor-frame enclosing-editor))]
[else
(let ([canvas (send an-editor get-canvas)])
(and canvas
(send canvas get-top-level-window)))])))
;
;
;