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

audit framework begin-edit-sequence calls

Browse Source
This commit is contained in:
Robby Findler 2013-09-14 19:08:12 -05:00
parent 28e2d6098b
commit 2b30be3265
4 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/gui-pkgs/gui-lib/framework/private/color.rkt
View File

@ -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:

6
pkgs/gui-pkgs/gui-lib/framework/private/frame.rkt
View File

@ -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))

12
pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt
View File

@ -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)

18
pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
View File

@ -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)