Fixed a bug with delete, undo and clickbacks in DrRacket

This commit is contained in:
lvilnis 2011-08-25 23:53:27 -04:00 committed by Matthew Flatt
parent ba09e906d8
commit b0d909bd8f
2 changed files with 3 additions and 3 deletions

View File

@ -156,7 +156,7 @@
(for-each disown deletions)
(send editor do-insert-snips deletions start)
(for-each (lambda (cb)
(send editor set-clickback cb))
(send editor add-back-clickback cb))
clickbacks)
(send editor set-position startsel endsel)

View File

@ -64,9 +64,9 @@
(send this remove-clickback start end)]))
(set! highlights '()))
(define/augment (after-insert start len)
(define/augment (on-insert start len)
(clear-highlights))
(define/augment (after-delete start len)
(define/augment (on-delete start len)
(clear-highlights))
(super-new)))