menu reorganized
authorClaus Gittinger <cg@exept.de>
Tue, 21 Feb 2006 18:21:12 +0100
changeset 6593 62b9331f713f
parent 6592 207318954865
child 6594 cb70dc35308d
menu reorganized
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Tue Feb 21 17:51:46 2006 +0100
+++ b/AbstractFileBrowser.st	Tue Feb 21 18:21:12 2006 +0100
@@ -1350,6 +1350,26 @@
      #(Menu
         (
          (MenuItem
+            label: 'Open'
+            itemValue: doShowFileContents
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasFileSelection
+            label: 'FileIn'
+            itemValue: fileFileIn
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: hasFileSelection
+            label: 'FileIn to Namespace...'
+            itemValue: fileFileInToNameSpace
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
             label: 'New'
             translateLabel: true
             submenuChannel: newMenu
@@ -1418,32 +1438,6 @@
           )
          (MenuItem
             label: '-'
-          )
-         (MenuItem
-            label: 'Operations'
-            translateLabel: true
-            submenuChannel: fileOpMenu
-            keepLinkedMenu: true
-          )
-         (MenuItem
-            label: 'Edit'
-            itemValue: doShowFileContents
-            translateLabel: true
-          )
-         (MenuItem
-            enabled: hasFileSelection
-            label: 'FileIn'
-            itemValue: fileFileIn
-            translateLabel: true
-          )
-         (MenuItem
-            enabled: hasFileSelection
-            label: 'FileIn to Namespace...'
-            itemValue: fileFileInToNameSpace
-            translateLabel: true
-          )
-         (MenuItem
-            label: '-'
             isVisible: javaSupportLoaded
           )
          (MenuItem
@@ -1825,6 +1819,12 @@
             label: '-'
           )
          (MenuItem
+            label: 'File Operations'
+            translateLabel: true
+            submenuChannel: fileOpMenu
+            keepLinkedMenu: true
+          )
+         (MenuItem
             label: 'File Utilities'
             translateLabel: true
             submenu: 
@@ -7005,5 +7005,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.320 2006-02-21 16:51:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.321 2006-02-21 17:21:12 cg Exp $'
 ! !