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

fix delete-time callback to release caret focus

Browse Source 
svn: r15681
This commit is contained in:
Matthew Flatt 2009-08-06 16:37:49 +00:00
parent 2038edda70
commit 015e926c04
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1790,8 +1790,10 @@
(values deleted-line? update-cursor?) (values deleted-line? update-cursor?)
(let ([update-cursor? (let ([update-cursor?
(or (and (eq? snip s-caret-snip) (or (and (eq? snip s-caret-snip)
(begin (let ([rl? read-locked?])
(set! read-locked? #t)
(send s-caret-snip own-caret #f) (send s-caret-snip own-caret #f)
(set! read-locked? rl?)
(set! s-caret-snip #f) (set! s-caret-snip #f)
#t)) #t))
update-cursor?)]) update-cursor?)])