--- a/DirectoryTreeBrowser.st	Tue Oct 08 10:56:20 2002 +0200
+++ b/DirectoryTreeBrowser.st	Tue Oct 08 11:43:48 2002 +0200
@@ -3,7 +3,7 @@
 AbstractFileBrowser subclass:#DirectoryTreeBrowser
 	instanceVariableNames:'rootHolder dirBrowser updateToExternFileHolderLock oldDropItem
 		expandItemTimedBlock updateTreeSelection inDropMode canDropItem
-		doubleClickAction'
+		doubleClickAction newVisibilityHolder allowFileOperations'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools-File'
@@ -183,18 +183,21 @@
          #(#MenuItem
             #label: 'Copy'
             #translateLabel: true
+            #isVisible: #allowFileOperations
             #value: #doCopy
             #shortcutKeyCharacter: #Copy
           )
          #(#MenuItem
             #label: 'Cut'
             #translateLabel: true
+            #isVisible: #allowFileOperations
             #value: #doCut
             #shortcutKeyCharacter: #Cut
           )
          #(#MenuItem
             #label: 'Paste'
             #translateLabel: true
+            #isVisible: #allowFileOperations
             #value: #pasteFiles
             #enabled: #canPaste
             #shortcutKeyCharacter: #Paste
@@ -203,37 +206,25 @@
             #label: 'Delete'
             #translateLabel: true
             #nameKey: #delete
+            #isVisible: #allowFileOperations
             #value: #doDelete
             #shortcutKeyCharacter: #Delete
           )
          #(#MenuItem
             #label: 'Rename'
             #translateLabel: true
+            #isVisible: #allowFileOperations
             #value: #treeViewFileRename
             #shortcutKeyCharacter: #Replace
           )
          #(#MenuItem
             #label: '-'
+            #isVisible: #allowFileOperations
           )
          #(#MenuItem
-            #label: 'View'
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'View File List'
-                  #translateLabel: true
-                  #submenuChannel: #viewInContentsBrowserMenu
-                )
-               #(#MenuItem
-                  #label: 'View Files in Directory Tree'
-                  #translateLabel: true
-                  #indication: #viewFilesInDirectoryTree
-                )
-               )
-              nil
-              nil
-            )
+            #label: 'View Files in Directory Tree'
+            #translateLabel: true
+            #indication: #viewFilesInDirectoryTree
           )
          #(#MenuItem
             #label: 'Sort'
@@ -253,6 +244,7 @@
          #(#MenuItem
             #label: 'New'
             #translateLabel: true
+            #isVisible: #newVisibilityHolder
             #submenuChannel: #newMenu
           )
          #(#MenuItem
@@ -452,6 +444,15 @@
 
 !DirectoryTreeBrowser methodsFor:'aspects'!
 
+allowFileOperations
+    "allowFileOperations
+    "
+    allowFileOperations isNil ifTrue:[
+        allowFileOperations := true asValue.
+    ].
+    ^ allowFileOperations.
+!
+
 fileList
     "holder, which keeps the current list of file entries shown by the directory-browser
     "
@@ -470,6 +471,15 @@
     ^ list
 !
 
+newVisibilityHolder
+    "newVisibilityHolder
+    "
+    newVisibilityHolder isNil ifTrue:[
+        newVisibilityHolder := true asValue.
+    ].
+    ^ newVisibilityHolder.
+!
+
 rootHolder
     "holder, which keeps the current root directory
     "
@@ -1116,5 +1126,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.9 2002-10-08 08:18:50 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.10 2002-10-08 09:43:41 penk Exp $'
 ! !