diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/color.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/color.rkt index 2f949ebce1..effd95ef0f 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/color.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/color.rkt @@ -1035,7 +1035,7 @@ added get-regions ;; See docs ;; smart-skip : (or/c #f 'adjacent 'forward) (define/public (insert-close-paren pos char flash? fixup? [smart-skip #f]) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (define closers (map symbol->string (map cadr pairs))) (define closer (get-close-paren pos (if fixup? ;; Ensure preference for given character: diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/frame.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/frame.rkt index b5f6a43b67..a46a58764b 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/frame.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/frame.rkt @@ -2099,7 +2099,7 @@ (define start-pos (min first-pos last-pos)) (define end-pos (max first-pos last-pos)) - (send text begin-edit-sequence) + (send text begin-edit-sequence #t #f) (send text set-caret-owner #f 'display) (send text set-position start-pos end-pos #f #f 'local) @@ -2435,7 +2435,7 @@ (unless (memq search/replace-panel (send super-root get-children)) (send super-root add-child search/replace-panel)) (search-parameters-changed) - (send find-edit begin-edit-sequence) + (send find-edit begin-edit-sequence #t #f) (when new-search-string-from-selection? (update-search-string-from-selection)) (when focus? @@ -2449,7 +2449,7 @@ (let ([canvas (and text-to-search (send text-to-search get-canvas))]) (cond [(or (not text-to-search) (and canvas (send canvas has-focus?))) - (send find-edit begin-edit-sequence) + (send find-edit begin-edit-sequence #t #f) (when new-search-string-from-selection? (update-search-string-from-selection)) (send find-edit set-position 0 (send find-edit last-position)) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt index ec4e69de3c..a5b392e7ce 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt @@ -767,7 +767,7 @@ (define (insert-return) (if (tabify-on-return?) (begin - (begin-edit-sequence) + (begin-edit-sequence #t #f) (insert #\newline) (tabify (get-start-position)) (set-position @@ -1076,7 +1076,7 @@ [closer (and paren? (get-forward-sexp pos))]) (if (and paren? closer) - (begin (begin-edit-sequence) + (begin (begin-edit-sequence #t #f) (delete pos (add1 pos)) (delete (- closer 2) (- closer 1)) (end-edit-sequence)) @@ -1131,7 +1131,7 @@ (end-edit-sequence)))) (define/public (move-sexp-out begin-inner) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (let ([end-inner (get-forward-sexp begin-inner)] [begin-outer (find-up-sexp begin-inner)]) (cond @@ -1147,7 +1147,7 @@ (end-edit-sequence)) (define/public (kill-enclosing-parens begin-inner) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (define begin-outer (find-up-sexp begin-inner)) (cond [begin-outer @@ -1163,7 +1163,7 @@ ;; change the parens following the cursor from () to [] or vice versa (define/public (toggle-round-square-parens start-pos) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (let* ([sexp-begin (skip-whitespace start-pos 'forward #f)] [sexp-end (get-forward-sexp sexp-begin)]) (cond [(and sexp-end @@ -1562,7 +1562,7 @@ (define selection-start (send text get-start-position)) (define selection-end (send text get-end-position)) (define open-len (if (string? open-brace) (string-length open-brace) 1)) - (send text begin-edit-sequence) + (send text begin-edit-sequence #t #f) (send text insert open-brace selection-start) (define tok-type (send text classify-position selection-start)) (when (or (not checkp) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt index 6d1122fee7..2af8e3d6f3 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt @@ -576,7 +576,7 @@ (define/public (get-edition-number) edition) (define/augment (on-insert start len) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (inner (void) on-insert start len)) (define/augment (after-insert start len) (set! edition (+ edition 1)) @@ -871,7 +871,7 @@ (inherit begin-edit-sequence end-edit-sequence delete insert get-character) (define/augment (on-insert start len) (inner (void) on-insert start len) - (begin-edit-sequence)) + (begin-edit-sequence #t #f)) (inherit find-string) (define/augment (after-insert start len) (unless rewriting @@ -922,7 +922,7 @@ 'end))) (define old-char-w char-width) (set! char-width new-cw) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (inv old-char-w) (inv char-width) (end-edit-sequence))) @@ -1149,7 +1149,7 @@ (define/public (get-anchor-pos) anchor-pos) (define/public (set-search-anchor position) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (when anchor-pos (unhighlight-anchor)) (cond [(and position @@ -1229,7 +1229,7 @@ (unhighlight-replace))] [else (define next (do-search (get-start-position) 'eof)) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (cond [next (unless (and to-replace-highlight @@ -1286,7 +1286,7 @@ (clear-yellow) (set! clear-yellow void)] [else - (begin-edit-sequence) + (begin-edit-sequence #t #f) (clear-yellow) (set! clear-yellow void) (when (and searching-str (= (string-length searching-str) (- end start))) @@ -1351,7 +1351,7 @@ (end-edit-sequence)) (pause) (when was-in-edit-sequence? - (begin-edit-sequence)) + (begin-edit-sequence #t #f)) (set! did-something? #f) (set! start-time (current-inexact-milliseconds)) #t] @@ -1404,7 +1404,7 @@ (maybe-pause) - (begin-edit-sequence) + (begin-edit-sequence #t #f) (clear-all-regions) (maybe-pause) @@ -1420,7 +1420,7 @@ (update-yellow) (end-edit-sequence)] [else - (begin-edit-sequence) + (begin-edit-sequence #t #f) (clear-all-regions) (set! search-hit-count 0) (set! before-caret-search-hit-count 0)