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

...

Browse Source 
original commit: 1a521c4b334817ed8a079d2995fb92a7e2fa99fd
This commit is contained in:
Robby Findler 1999-06-06 05:45:51 +00:00
parent bc19a8116e
commit 0504c17c42
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/standard-menus-items.ss
View File

@ -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)