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

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

Browse Source 
closes PR 12855

original commit: 8f892a2d3af2216311afa055bc312cd61efc5f71
This commit is contained in:
Robby Findler 2012-06-20 09:27:16 -05:00
parent fc5b2ac209
commit d0ee91fc1d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/frame.rkt
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)