.

original commit: 0dcbe3ae5d5bf5fba2281bd01702b65e56dbedca
2004-01-23 18:41:54 +00:00 · 2004-01-23 18:41:54 +00:00 · 4d0fdd4624
commit 4d0fdd4624
parent f18a4ef632
1 changed files with 11 additions and 10 deletions
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@ -2138,16 +2138,17 @@
                  [else editor]))))
          
          (define (toggle-search-focus)
-            (set-searching-frame this)
-            (unhide-search)
-	    (send (cond
-		    [(send find-canvas has-focus?)
-		     replace-canvas]
-		    [(send replace-canvas has-focus?)
-		     (send (get-text-to-search) get-canvas)]
-		    [else
-		     find-canvas])
-		  focus))
+            (when find-canvas
+              (set-searching-frame this)
+              (unhide-search)
+              (send (cond
+                      [(send find-canvas has-focus?)
+                       replace-canvas]
+                      [(send replace-canvas has-focus?)
+                       (send (get-text-to-search) get-canvas)]
+                      [else
+                       find-canvas])
+                    focus)))
          (define move-to-search-or-search
            (lambda ()
              (set-searching-frame this)