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

insert-warning always inserts at the end now

Browse Source 
svn: r10512
This commit is contained in:
Eli Barzilay 2008-06-30 01:31:55 +00:00
parent be1097cb20
commit ad563ad56d
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
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 (get-insertion-point)])
(insert-before message)
(let ([end (get-insertion-point)])
(change-style warning-style-delta start end)))
(insert-before "\n")
(let ([start (last-position)])
(insert message start)
(let ([end (last-position)])
(change-style warning-style-delta start end)
(insert "\n" end)))
(end-edit-sequence)
(when locked? (lock #t))))
@ -958,7 +958,6 @@ 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=