From 932c9da2f6ef2f063b45535f70fcc8a76d11fe7f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 4 Jul 2008 16:54:43 +0000
Subject: [PATCH] changed linux shortcut to control-shit-z as well

svn: r10600

original commit: 489f1e732e208f1d1dea1f73a75008f362f0bb64
---
 collects/framework/private/gen-standard-menus.ss   |  6 +++---
 collects/framework/private/standard-menus-items.ss | 12 ++++++------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/collects/framework/private/gen-standard-menus.ss b/collects/framework/private/gen-standard-menus.ss
index bde21844..a1e3f1d5 100644
--- a/collects/framework/private/gen-standard-menus.ss
+++ b/collects/framework/private/gen-standard-menus.ss
@@ -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))
diff --git a/collects/framework/private/standard-menus-items.ss b/collects/framework/private/standard-menus-items.ss
index 7f51a95a..6cee32ef 100644
--- a/collects/framework/private/standard-menus-items.ss
+++ b/collects/framework/private/standard-menus-items.ss
@@ -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)