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

adjusted keybindings

Browse Source 
svn: r10639
This commit is contained in:
Robby Findler 2008-07-07 03:12:43 +00:00
parent 1b778eee39
commit 6d3ab9487f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1392,13 +1392,13 @@
(string-append
(case (system-type)
[(macosx macos) "d:"]
[(windows) "c:"]
[(unix) "a:"]
[(windows unix) "c:"]
[else (error 'keymap.ss "unknown platform: ~s" (system-type))])
key)
func))])
(add/map "editor-undo" 'undo "z")
(add/map "editor-redo" 'redo "y")
(unless (eq? (system-type) 'macosx)
(add/map "editor-redo" 'redo "y"))
(add/map "editor-cut" 'cut "x")
(add/map "editor-copy" 'copy "c")
(add/map "editor-paste" 'paste "v")