From 0504c17c42a4783d1cd1c510c43924a81069744b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 6 Jun 1999 05:45:51 +0000 Subject: [PATCH] ... original commit: 1a521c4b334817ed8a079d2995fb92a7e2fa99fd --- collects/framework/standard-menus-items.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/framework/standard-menus-items.ss b/collects/framework/standard-menus-items.ss index b1ff5b3e..8242818a 100644 --- a/collects/framework/standard-menus-items.ss +++ b/collects/framework/standard-menus-items.ss @@ -119,6 +119,13 @@ '(if (eq? (system-type) 'windows) "E&xit" "Quit") "") (make-after 'file-menu 'quit 'nothing) +<<<<<<< standard-menus-items.ss + + (make-an-item 'edit-menu 'undo "Undo the most recent action" #f #\z "&Undo" "") + (make-an-item 'edit-menu 'redo "Redo the most recent undo" #f #\y "&Redo" "") + (make-between 'edit-menu 'redo 'cut 'separator) + (make-an-item 'edit-menu 'cut "Cut the selection" #f #\x "Cu&t" "") +======= (make-an-item 'edit-menu 'undo "Undo the most recent action" (edit-menu:do 'undo) @@ -130,6 +137,7 @@ (make-an-item 'edit-menu 'cut "Cut the selection" (edit-menu:do 'cut) #\x "Cu&t" "") +>>>>>>> 1.9 (make-between 'edit-menu 'cut 'copy 'nothing) (make-an-item 'edit-menu 'copy "Copy the selection" (edit-menu:do 'copy)