suzanne.soy/gui
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

original commit: 015e926c0400de5f8bcb408c7c61c3b68318008c
This commit is contained in:
Matthew Flatt 2009-08-06 16:37:49 +00:00
parent d50bb5be1f
commit fc3ccde0b4
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?)
(let ([update-cursor?
(or (and (eq? snip s-caret-snip)
(begin
(let ([rl? read-locked?])
(set! read-locked? #t)
(send s-caret-snip own-caret #f)
(set! read-locked? rl?)
(set! s-caret-snip #f)
#t))
update-cursor?)])