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

PR 10442

Browse Source 
svn: r15966
This commit is contained in:
Robby Findler 2009-09-11 00:03:23 +00:00
parent c8c43bbe34
commit 53bf9d51c1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -885,8 +885,9 @@ profile todo:
(send frame get-interactions-text))]) (send frame get-interactions-text))])
(when frame (when frame
(send frame show #t)) (send frame show #t))
(when (let ([wbv (weak-box-value (car edition-pair))]) (when (and edition-pair
(and wbv (eq? editor wbv))) (let ([wbv (weak-box-value (car edition-pair))])
(and wbv (eq? editor wbv))))
(unless (= (cdr edition-pair) (send editor get-edition-number)) (unless (= (cdr edition-pair) (send editor get-edition-number))
(message-box (string-constant drscheme) (message-box (string-constant drscheme)
(string-constant editor-changed-since-srcloc-recorded) (string-constant editor-changed-since-srcloc-recorded)