Fixed a bug with delete, undo and clickbacks in DrRacket
This commit is contained in:
parent
ba09e906d8
commit
b0d909bd8f
|
@ -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)
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user