DirectoryTreeBrowser.st
changeset 4383 2fc564ad0f70
parent 4333 503f177eb6e8
child 4410 b1972ecceb2a
--- a/DirectoryTreeBrowser.st	Fri Dec 13 17:50:38 2002 +0100
+++ b/DirectoryTreeBrowser.st	Sun Dec 15 14:45:38 2002 +0100
@@ -214,6 +214,11 @@
             #shortcutKey: #Delete
           )
          #(#MenuItem
+            #label: '-'
+            #isVisible: #allowFileOperations
+          )
+         #(#MenuItem
+            #enabled: #hasSelection
             #label: 'Rename'
             #itemValue: #treeViewFileRename
             #translateLabel: true
@@ -221,20 +226,14 @@
             #shortcutKey: #Rename
           )
          #(#MenuItem
-            #label: '-'
-            #isVisible: #allowFileOperations
+            #enabled: #hasSelection
+            #label: 'Properties...'
+            #itemValue: #doShowProperties
+            #translateLabel: true
           )
          #(#MenuItem
-            #label: 'View Files'
-            #translateLabel: true
-            #indication: #viewFilesInDirectoryTree
-          )
-         #(#MenuItem
-            #label: 'Sort'
-            #nameKey: #Sort
-            #translateLabel: true
-            #isVisible: #sortInTreeVisibilityHolder
-            #submenuChannel: #sortInTreeMenu
+            #label: '-'
+            #isVisible: #allowFileOperations
           )
          #(#MenuItem
             #enabled: #selectedFilesIncludesNonRootDirectory
@@ -252,17 +251,6 @@
             #submenuChannel: #newMenu
           )
          #(#MenuItem
-            #label: 'Update'
-            #itemValue: #doUpdate
-            #translateLabel: true
-          )
-         #(#MenuItem
-            #enabled: #hasSelection
-            #label: 'Properties...'
-            #itemValue: #doShowProperties
-            #translateLabel: true
-          )
-         #(#MenuItem
             #label: 'More'
             #translateLabel: true
             #submenu: 
@@ -284,6 +272,40 @@
               nil
             )
           )
+         #(#MenuItem
+            #label: '-'
+          )
+         #(#MenuItem
+            #label: 'View'
+            #translateLabel: true
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'View Files'
+                  #translateLabel: true
+                  #indication: #viewFilesInDirectoryTree
+                )
+               #(#MenuItem
+                  #label: 'Sort'
+                  #nameKey: #Sort
+                  #translateLabel: true
+                  #enabled: #sortInTreeVisibilityHolder
+                  #submenuChannel: #sortInTreeMenu
+                )
+               )
+              nil
+              nil
+            )
+          )
+         #(#MenuItem
+            #label: '-'
+          )
+         #(#MenuItem
+            #label: 'Update'
+            #itemValue: #doUpdate
+            #translateLabel: true
+          )
          )
         nil
         nil
@@ -1328,5 +1350,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.36 2002-11-29 09:14:01 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.37 2002-12-15 13:45:38 cg Exp $'
 ! !