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

changed linux shortcut to control-shit-z as well

Browse Source 
svn: r10600

original commit: 489f1e732e208f1d1dea1f73a75008f362f0bb64
This commit is contained in:
Robby Findler 2008-07-04 16:54:43 +00:00
parent 7c24b87bc7
commit 932c9da2f6
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/gen-standard-menus.ss
View File

@ -7,6 +7,9 @@
(define-runtime-path here ".")
(define standard-menus.ss-filename (simplify-path (build-path here "standard-menus.ss")))
(define docs-menus.ss-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
;; build-before-super-item-clause : an-item -> (listof clause)
(define build-before-super-item-clause
(λ (item)
@ -115,9 +118,6 @@
(list `(define/public ,(generic-name generic)
,(generic-initializer generic)))]))
(define standard-menus.ss-filename (build-path here "standard-menus.ss"))
(define docs-menus.ss-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl")))
(define (main)
(write-standard-menus.ss)
(write-docs))

12
collects/framework/private/standard-menus-items.ss
View File

@ -292,12 +292,12 @@
(make-an-item 'edit-menu 'redo
'(string-constant redo-info)
(edit-menu:do 'redo)
'(if (eq? (system-type) 'macosx)
#\z
#\y)
'(if (eq? (system-type) 'macosx)
(cons 'shift (get-default-shortcut-prefix))
(get-default-shortcut-prefix))
'(if (eq? (system-type) 'windows)
#\y
#\z)
'(if (eq? (system-type) 'windows)
(get-default-shortcut-prefix)
(cons 'shift (get-default-shortcut-prefix)))
'(string-constant redo-menu-item)
(edit-menu:can-do-on-demand 'redo)
#t)