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

fixed up the keymap that's used when the menu bindings are disabled

Browse Source 
svn: r10932

original commit: 49e46e0ae193f13f1cd3c7daa2d3cbe51586b43e
This commit is contained in:
Robby Findler 2008-07-27 04:03:38 +00:00
parent c45658a668
commit c1fd17c5ec
1 changed files with 18 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1325,42 +1325,27 @@
[add-m (λ (name func)
(send kmap add-function name func))])
(add "move-to-search-or-search"
(send-frame (λ (f) (send f move-to-search-or-back)))) ;; key 1
(add "find-string-again"
(send-frame (λ (f) (send f search-again)))) ;; key 2
(add "toggle-search-focus"
(send-frame (λ (f) (send f toggle-search-focus)))) ;; key 3
(add "hide-search"
(send-frame (λ (f) (send f hide-search)))) ;; key 4
(add "search forward"
(send-frame (λ (f) (send f search 'forward))))
(add "search backward"
(send-frame (λ (f) (send f search 'backward))))
(add "replace & search forward"
(send-frame (λ (f) (send f replace&search 'forward))))
(add "replace & search backward"
(send-frame (λ (f) (send f replace&search 'backward))))
(add "hide-search"
(send-frame (λ (f) (send f hide-search))))
(map "c:g" "hide-search")
(map "f3" "search forward")
(map "c:s" "search forward")
(map "c:r" "replace & search forward")
(map "c:s:s" "search backward")
(map "c:s:r" "replace & search backward")
(case (system-type)
[(unix)
(map "c:s" "move-to-search-or-search")
(map-meta "%" "move-to-search-or-search")
(map "c:r" "move-to-search-or-reverse-search")
(map "f3" "find-string-again")
(map "c:i" "toggle-search-focus")
(map "c:g" "hide-search")]
[(windows)
(map "c:r" "move-to-search-or-reverse-search")
(map "f3" "find-string-again")
(map "c:g" "find-string-again")
;; covered by menu
;(map "c:f" "move-to-search-or-search")
(map "c:i" "toggle-search-focus")]
[(macos macosx)
(map "c:s" "move-to-search-or-search")
(map "c:g" "hide-search")
;; covered by menu
;(map "d:f" "move-to-search-or-search")
(map "c:r" "move-to-search-or-reverse-search")
(map "d:g" "find-string-again")
(map "c:i" "toggle-search-focus")])))))
(map-meta "%" "search forward")])))))
(define setup-file
(let* ([get-outer-editor ;; : text% -> text%