hide the anchor, take 2

svn: r10959 original commit: 21e3f5f6c54315f0f0392cc30a67153571a2b747
2008-07-29 12:52:31 +00:00 · 2008-07-29 12:52:31 +00:00 · 6b60795515
commit 6b60795515
parent 28a274ad1e
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@ -2084,6 +2084,7 @@
      (clear-search-highlight)
      (send find-edit text-to-search-changed text-to-search #f)
      (when text-to-search
+        (send text-to-search set-search-anchor #f)
        (let ([canvas (send text-to-search get-canvas)])
          (when canvas
            (send canvas focus))))