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

unbreak undo in drracket

Browse Source 
broken by 21e06eec53
This commit is contained in:
Robby Findler 2013-09-16 13:45:58 -05:00
parent e0e45c63ee
commit dd1f3364a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt
View File

@ -305,7 +305,7 @@ If the namespace does not, they are colored the unbound color.
(mixin ((class->interface text%)) (cs-clearing<%>) (mixin ((class->interface text%)) (cs-clearing<%>)
(inherit begin-edit-sequence end-edit-sequence) (inherit begin-edit-sequence end-edit-sequence)
(define/augment (on-delete start len) (define/augment (on-delete start len)
(begin-edit-sequence #f #t) (begin-edit-sequence #t #f)
(inner (void) on-delete start len)) (inner (void) on-delete start len))
(define/augment (after-delete start len) (define/augment (after-delete start len)
(inner (void) after-delete start len) (inner (void) after-delete start len)
@ -313,7 +313,7 @@ If the namespace does not, they are colored the unbound color.
(end-edit-sequence)) (end-edit-sequence))
(define/augment (on-insert start len) (define/augment (on-insert start len)
(begin-edit-sequence #f #t) (begin-edit-sequence #t #f)
(inner (void) on-insert start len)) (inner (void) on-insert start len))
(define/augment (after-insert start len) (define/augment (after-insert start len)
(inner (void) after-insert start len) (inner (void) after-insert start len)