editMenu: order is cut-copy-paste (as in windows)
authorClaus Gittinger <cg@exept.de>
Fri, 21 Feb 2003 11:23:47 +0100
changeset 4591 083328c16498
parent 4590 2447e35a81d4
child 4592 dfe65b7b7e81
editMenu: order is cut-copy-paste (as in windows)
FileBrowser.st
WorkspaceApplication.st
--- a/FileBrowser.st	Fri Feb 21 10:54:32 2003 +0100
+++ b/FileBrowser.st	Fri Feb 21 11:23:47 2003 +0100
@@ -805,14 +805,14 @@
             #label: '-'
           )
          #(#MenuItem
-            #label: 'Copy'
-            #itemValue: #copySelection
+            #label: 'Cut'
+            #itemValue: #cutSelection
             #translateLabel: true
             #sendToOriginator: true
           )
          #(#MenuItem
-            #label: 'Cut'
-            #itemValue: #cutSelection
+            #label: 'Copy'
+            #itemValue: #copySelection
             #translateLabel: true
             #sendToOriginator: true
           )
@@ -7893,5 +7893,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.519 2003-01-27 15:45:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.520 2003-02-21 10:23:47 cg Exp $'
 ! !
--- a/WorkspaceApplication.st	Fri Feb 21 10:54:32 2003 +0100
+++ b/WorkspaceApplication.st	Fri Feb 21 11:23:47 2003 +0100
@@ -189,14 +189,14 @@
               #(
                #(#MenuItem
                   #enabled: #hasSelectionInActiveWorkspace
-                  #label: 'Copy'
-                  #itemValue: #copySelection
+                  #label: 'Cut'
+                  #itemValue: #cutSelection
                   #translateLabel: true
                 )
                #(#MenuItem
                   #enabled: #hasSelectionInActiveWorkspace
-                  #label: 'Cut'
-                  #itemValue: #cutSelection
+                  #label: 'Copy'
+                  #itemValue: #copySelection
                   #translateLabel: true
                 )
                #(#MenuItem
@@ -1564,5 +1564,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.57 2003-02-12 13:06:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.58 2003-02-21 10:23:17 cg Exp $'
 ! !