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

Fixed a bug with delete, undo and clickbacks in DrRacket

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxme/undo.rkt
View File

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

4
collects/typed-scheme/optimizer/tool/tool.rkt
View File

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