From 21e3f5f6c54315f0f0392cc30a67153571a2b747 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 29 Jul 2008 12:52:31 +0000 Subject: [PATCH] hide the anchor, take 2 svn: r10959 --- collects/framework/private/frame.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 23205e9feb..98025a2352 100644 --- 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))))