disable replace-all on empty search string

- fixes drracket internal err
2016-12-12 13:19:08 -05:00 · 2016-12-12 13:19:08 -05:00 · e627cdcba5
commit e627cdcba5
parent 871e81e0e2
1 changed files with 5 additions and 1 deletions
--- a/gui-lib/framework/private/frame.rkt
+++ b/gui-lib/framework/private/frame.rkt
@ -2370,7 +2370,11 @@
    (define/override (edit-menu:create-find-case-sensitive?) #t)

    (define/override (edit-menu:replace-all-callback menu evt) (replace-all) #t)
-    (define/override (edit-menu:replace-all-on-demand item) (send item enable (not hidden?)))
+    (define/override (edit-menu:replace-all-on-demand item)
+      (send item enable (and find-edit
+                             (not (string=? (send find-edit get-text) ""))
+                             (not hidden?)
+                             replace-visible?)))
    (define/override (edit-menu:create-replace-all?) #t)

    (define/override make-root-area-container