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

adjust contour to track edit sequences better

Browse Source 
Specifically when there is no delegate and an edit
sequence is started, track that differently in case
a delegate is set before the edit sequence ends
(in which case we don't want to end the edit
sequence in the delegate since we didn't start it
there)

related to PR 13491
(cherry picked from commit 405e51bb05)
This commit is contained in:
Robby Findler 2013-02-05 07:51:52 -06:00 committed by Eli Barzilay
parent 488ee01996
commit 91b6525b29
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/framework/private/text.rkt
View File

@ -1730,14 +1730,25 @@
(when active-canvas
(send (send active-canvas get-top-level-window) delegate-moved))))))
(define no-delegate-edit-sequence-depth 0)
(define/augment (on-edit-sequence)
(when delegate
(send delegate begin-edit-sequence))
(cond
[delegate
(send delegate begin-edit-sequence)]
[else
(set! no-delegate-edit-sequence-depth
(+ no-delegate-edit-sequence-depth 1))])
(inner (void) on-edit-sequence))
(define/augment (after-edit-sequence)
(when delegate
(send delegate end-edit-sequence))
(cond
[(and delegate
(= 0 no-delegate-edit-sequence-depth))
(send delegate end-edit-sequence)]
[else
(set! no-delegate-edit-sequence-depth
(- no-delegate-edit-sequence-depth 1))])
(inner (void) after-edit-sequence))
(define/override (resized snip redraw-now?)