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

fixed PR 8138

Browse Source 
svn: r3432
This commit is contained in:
Robby Findler 2006-06-22 02:58:42 +00:00
parent 18cf27ac40
commit d74f28ace8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -664,9 +664,9 @@ profile todo:
(when frame (when frame
(send frame show #t)) (send frame show #t))
(when (and rep editor) (when (and rep editor)
(cond (when (is-a? editor text:basic<%>)
[(is-a? editor text:basic<%>) (send rep highlight-error editor position (+ position span))
(send rep highlight-error editor position (+ position span))])))) (send editor set-caret-owner #f 'global)))))