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

hide the anchor, take 2

Browse Source 
svn: r10959

original commit: 21e3f5f6c54315f0f0392cc30a67153571a2b747
This commit is contained in:
Robby Findler 2008-07-29 12:52:31 +00:00
parent 28a274ad1e
commit 6b60795515
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/framework/private/frame.ss
View File

@ -2084,6 +2084,7 @@
(clear-search-highlight) (clear-search-highlight)
(send find-edit text-to-search-changed text-to-search #f) (send find-edit text-to-search-changed text-to-search #f)
(when text-to-search (when text-to-search
(send text-to-search set-search-anchor #f)
(let ([canvas (send text-to-search get-canvas)]) (let ([canvas (send text-to-search get-canvas)])
(when canvas (when canvas
(send canvas focus)))) (send canvas focus))))