cut-copy-paste is the correct order
authorClaus Gittinger <cg@exept.de>
Wed, 26 Feb 2003 15:48:58 +0100
changeset 4615 cc32f33b6b60
parent 4614 260240b16282
child 4616 e877ab5a2237
cut-copy-paste is the correct order
DirectoryContentsBrowser.st
DirectoryTreeBrowser.st
--- a/DirectoryContentsBrowser.st	Wed Feb 26 15:42:08 2003 +0100
+++ b/DirectoryContentsBrowser.st	Wed Feb 26 15:48:58 2003 +0100
@@ -443,18 +443,18 @@
      #(#Menu
         #(
          #(#MenuItem
+            #label: 'Cut'
+            #itemValue: #doCut
+            #translateLabel: true
+            #shortcutKey: #Cut
+          )
+         #(#MenuItem
             #label: 'Copy'
             #itemValue: #doCopy
             #translateLabel: true
             #shortcutKey: #Copy
           )
          #(#MenuItem
-            #label: 'Cut'
-            #itemValue: #doCut
-            #translateLabel: true
-            #shortcutKey: #Cut
-          )
-         #(#MenuItem
             #enabled: #canPaste
             #label: 'Paste'
             #itemValue: #pasteFiles
@@ -2868,5 +2868,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.83 2003-02-26 14:39:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.84 2003-02-26 14:48:27 cg Exp $'
 ! !
--- a/DirectoryTreeBrowser.st	Wed Feb 26 15:42:08 2003 +0100
+++ b/DirectoryTreeBrowser.st	Wed Feb 26 15:48:58 2003 +0100
@@ -184,6 +184,13 @@
      #(#Menu
         #(
          #(#MenuItem
+            #label: 'Cut'
+            #itemValue: #doCut
+            #translateLabel: true
+            #isVisible: #allowFileOperations
+            #shortcutKey: #Cut
+          )
+         #(#MenuItem
             #label: 'Copy'
             #itemValue: #doCopy
             #translateLabel: true
@@ -191,13 +198,6 @@
             #shortcutKey: #Copy
           )
          #(#MenuItem
-            #label: 'Cut'
-            #itemValue: #doCut
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Cut
-          )
-         #(#MenuItem
             #enabled: #canPaste
             #label: 'Paste'
             #itemValue: #pasteFiles
@@ -1356,5 +1356,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.47 2003-02-26 14:39:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.48 2003-02-26 14:48:58 cg Exp $'
 ! !