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

go back to using insert-before no-user-evaluation-message and related changes

Browse Source 
svn: r10515
This commit is contained in:
Eli Barzilay 2008-06-30 07:42:17 +00:00
parent f5969e0e65
commit aa9cc758fc
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drscheme/private/rep.ss
View File

@ -897,11 +897,11 @@ TODO
(let ([locked? (is-locked?)])
(when locked? (lock #f))
(begin-edit-sequence)
(let ([start (last-position)])
(insert message start)
(let ([end (last-position)])
(let ([start (get-unread-start-point)])
(insert-before message)
(let ([end (get-unread-start-point)])
(change-style warning-style-delta start end)
(insert "\n" end)))
(insert-before "\n")))
(end-edit-sequence)
(when locked? (lock #t))))
@ -958,6 +958,7 @@ TODO
(when (equal? ans 3)
(set-custodian-limit new-limit)
(preferences:set 'drscheme:limit-memory new-limit))
(set-insertion-point (last-position))
(insert-warning "\n[Interactions disabled]")))
(define/private (cleanup-interaction) ; =Kernel=, =Handler=