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

.

Browse Source 
original commit: b859370c5bb0ddf24dd624ef6b1a02bf130b2057
This commit is contained in:
Matthew Flatt 1998-08-16 19:23:15 +00:00
parent 4012de47d0
commit e4969989ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -2645,7 +2645,7 @@
[(ctl) "Ctl+"])
(char-upcase shortcut))]
[(windows) (format "~aCtl+~a" #\tab (char-upcase shortcut))]
[(macos) (format "~aCmd-~a" #\tab (char-upcase shortcut))]))
[(macos) (format "~aCmd+~a" #\tab (char-upcase shortcut))]))
(strip-tab label))]
[key-binding (and shortcut
(case (system-type)