suzanne.soy/racket
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
This commit is contained in:
Robby Findler 2008-07-27 04:03:38 +00:00
parent 12d18d8107
commit 49e46e0ae1
2 changed files with 20 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/frame.ss
View File

@ -90,7 +90,8 @@
[(meta) "m:"] [(meta) "m:"]
[(ctl) "c:"] [(ctl) "c:"]
[(shift) "s:"] [(shift) "s:"]
[(opt) "a:"])) [(opt option) "a:"]
[else (error 'menu-item->prefix-string "unknown prefix ~s\n" prefix)]))
(send item get-shortcut-prefix)))) (send item get-shortcut-prefix))))
(define/private (copy-hash-table ht) (define/private (copy-hash-table ht)

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

@ -1325,42 +1325,27 @@
[add-m (λ (name func) [add-m (λ (name func)
(send kmap add-function name func))]) (send kmap add-function name func))])
(add "move-to-search-or-search" (add "search forward"
(send-frame (λ (f) (send f move-to-search-or-back)))) ;; key 1 (send-frame (λ (f) (send f search 'forward))))
(add "find-string-again" (add "search backward"
(send-frame (λ (f) (send f search-again)))) ;; key 2 (send-frame (λ (f) (send f search 'backward))))
(add "toggle-search-focus" (add "replace & search forward"
(send-frame (λ (f) (send f toggle-search-focus)))) ;; key 3 (send-frame (λ (f) (send f replace&search 'forward))))
(add "hide-search" (add "replace & search backward"
(send-frame (λ (f) (send f hide-search)))) ;; key 4 (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) (case (system-type)
[(unix) [(unix)
(map "c:s" "move-to-search-or-search") (map-meta "%" "search forward")])))))
(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")])))))
(define setup-file (define setup-file
(let* ([get-outer-editor ;; : text% -> text% (let* ([get-outer-editor ;; : text% -> text%