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

Make the 'Show Replace' menu item be always enabled. Also, make it

Browse Source 
set the keyboard focus to the replace editor.

It used to be disabled when the searching bar is hidden. In that case, it now
makes the searching bar visible.

original commit: 3345415d71591f60285786cee19a63704effc2ad
This commit is contained in:
Robby Findler 2011-11-16 16:21:55 -06:00
parent 90eacd7d08
commit ff239b6f3d
1 changed files with 27 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/framework/private/frame.rkt
View File

@ -2168,13 +2168,27 @@
(define/override (edit-menu:create-find-previous?) #t)
(define/override (edit-menu:create-show/hide-replace?) #t)
(define/override (edit-menu:show/hide-replace-callback a b) (set-replace-visible? (not replace-visible?)))
(define/override (edit-menu:show/hide-replace-callback a b)
(cond
[hidden?
(unhide-search #f)
(set-replace-visible? #t)
(send replace-edit set-position 0 (send find-edit last-position))
(send (send replace-edit get-canvas) focus)]
[else
(set-replace-visible? (not replace-visible?))
(when replace-visible?
(send (send replace-edit get-canvas) focus))])
#t)
(define/override (edit-menu:show/hide-replace-string)
(if replace-visible?
(string-constant hide-replace-menu-item)
(string-constant show-replace-menu-item)))
(define/override (edit-menu:show/hide-replace-on-demand item)
(send item enable (not hidden?)))
(send item set-label
(if (and (not hidden?) replace-visible?)
(string-constant hide-replace-menu-item)
(string-constant show-replace-menu-item))))
(define/override (edit-menu:replace-callback a b) (search-replace))
(define/override (edit-menu:create-replace?) #t)
@ -2509,7 +2523,6 @@
[callback (λ (a b) (set-replace-visible? #f))]
[parent replace-panel]))
(define stupid-internal-definitions-syntax2
(set! show/hide-replace
(λ ()
(send replace-panel begin-container-sequence)
@ -2520,7 +2533,7 @@
[else
(send replace-panel change-children (λ (l) (list show-replace-button)))
(send replace-panel stretchable-width #f)])
(send replace-panel end-container-sequence))))
(send replace-panel end-container-sequence)))
(define all-replace-children
(list replace-canvas