hide the anchor, take 2

svn: r10959
2008-07-29 12:52:31 +00:00 · 2008-07-29 12:52:31 +00:00 · 21e3f5f6c5
commit 21e3f5f6c5
parent fe0fc8e20b
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))))