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

fix undo of delete implied by insert over a selection

Browse Source 
svn: r14623
This commit is contained in:
Matthew Flatt 2009-04-27 13:02:49 +00:00
parent 3bc5491945
commit 30a3e8ced8
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wxme/text.ss
View File

@ -1700,9 +1700,7 @@
(set! write-locked? #t) (set! write-locked? #t)
(if (not (can-delete? start (- end start))) (if (not (can-delete? start (- end start)))
(begin (set! write-locked? #f)
(set! write-locked? #f)
(set! flow-locked? #f))
(begin (begin
(on-delete start (- end start)) (on-delete start (- end start))
@ -1917,11 +1915,11 @@
[([(make-alts exact-nonnegative-integer? (symbol-in start)) start] [([(make-alts exact-nonnegative-integer? (symbol-in start)) start]
[(make-alts exact-nonnegative-integer? (symbol-in back)) [end 'back]] [(make-alts exact-nonnegative-integer? (symbol-in back)) [end 'back]]
[any? [scroll-ok? #t]]) [any? [scroll-ok? #t]])
(do-delete (if (symbol? start) startpos start) end scroll-ok?)] (do-delete (if (symbol? start) startpos start) end #t scroll-ok?)]
(method-name 'text% 'delete))) (method-name 'text% 'delete)))
(def/public (erase) (def/public (erase)
(do-delete 0 len #t)) (do-delete 0 len #t #t))
(def/override (clear) (def/override (clear)
(delete startpos endpos #t)) (delete startpos endpos #t))