when moving the focus to the replace window, also select the text

closes PR 12855
This commit is contained in:
Robby Findler 2012-06-20 09:27:16 -05:00
parent 411aeb99b8
commit 8f892a2d3a

View File

@ -2173,11 +2173,12 @@
[hidden?
(unhide-search #f)
(set-replace-visible? #t)
(send replace-edit set-position 0 (send find-edit last-position))
(send replace-edit set-position 0 (send replace-edit last-position))
(send (send replace-edit get-canvas) focus)]
[else
(set-replace-visible? (not replace-visible?))
(when replace-visible?
(send replace-edit set-position 0 (send replace-edit last-position))
(send (send replace-edit get-canvas) focus))])
#t)
(define/override (edit-menu:show/hide-replace-string)