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

.

Browse Source 
original commit: 2c3e624ea3927fdf36ce0640e7addfcff1f080fa
This commit is contained in:
Robby Findler 2005-02-02 04:32:09 +00:00
parent c0a5e58805
commit ab66b64f9c
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/frame.ss
View File

@ -2147,10 +2147,15 @@
(λ () (λ ()
(set-searching-frame this) (set-searching-frame this)
(unhide-search) (unhide-search)
(cond
[(preferences:get 'framework:search-using-dialog?)
(search-again 'backward)
(set-searching-direction 'forward)]
[else
(if (or (send find-canvas has-focus?) (if (or (send find-canvas has-focus?)
(send replace-canvas has-focus?)) (send replace-canvas has-focus?))
(search-again 'backward) (search-again 'backward)
(send find-canvas focus)))) (send find-canvas focus))])))
(define search-again (define search-again
(opt-lambda ([direction searching-direction] [beep? #t]) (opt-lambda ([direction searching-direction] [beep? #t])
(set-searching-frame this) (set-searching-frame this)

2
collects/framework/private/keymap.ss
View File

@ -1216,7 +1216,7 @@
;; covered by menu ;; covered by menu
;(map "d:f" "move-to-search-or-search") ;(map "d:f" "move-to-search-or-search")
(map "d:r" "move-to-search-or-reverse-search") (map "c:r" "move-to-search-or-reverse-search")
(map "d:g" "find-string-again") (map "d:g" "find-string-again")
(map "c:i" "toggle-search-focus")]))))) (map "c:i" "toggle-search-focus")])))))