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

...

Browse Source 
original commit: bd36a6d7398a9ac30028b5bfcf9c1f184fab7ed5
This commit is contained in:
Robby Findler 1999-06-06 05:47:54 +00:00
parent 0504c17c42
commit 51ff33c414
1 changed files with 0 additions and 8 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,13 +119,6 @@
'(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)
@ -137,7 +130,6 @@
(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)