suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

disable replace-all on empty search string

Browse Source 
- fixes drracket internal err
This commit is contained in:
Stephen Chang 2016-12-12 13:19:08 -05:00 committed by Robby Findler
parent 871e81e0e2
commit e627cdcba5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui-lib/framework/private/frame.rkt
View File

@ -2370,7 +2370,11 @@
(define/override (edit-menu:create-find-case-sensitive?) #t) (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-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 (edit-menu:create-replace-all?) #t)
(define/override make-root-area-container (define/override make-root-area-container