--- a/AbstractFileBrowser.st	Thu Feb 13 12:30:09 2003 +0100
+++ b/AbstractFileBrowser.st	Thu Feb 13 13:11:48 2003 +0100
@@ -1406,8 +1406,21 @@
             #translateLabel: true
           )
          #(#MenuItem
-            #label: 'Truncate'
-            #itemValue: #truncateSelectedFilesToZeroSize
+            #label: '-'
+          )
+         #(#MenuItem
+            #label: 'Truncate...'
+            #itemValue: #truncateSelectedFiles
+            #translateLabel: true
+          )
+         #(#MenuItem
+            #label: 'Split...'
+            #itemValue: #splitSelectedFiles
+            #translateLabel: true
+          )
+         #(#MenuItem
+            #label: 'Join...'
+            #itemValue: #joinSelectedFiles
             #translateLabel: true
           )
          #(#MenuItem
@@ -1558,6 +1571,15 @@
             #translateLabel: true
             #indication: #viewNoteBookApplicationHolder
           )
+         #(#MenuItem
+            #label: '-'
+          )
+         #(#MenuItem
+            #label: 'DiskUsage'
+            #translateLabel: true
+            #hideMenuOnActivated: false
+            #indication: #showDiskUsageHolder
+          )
          )
         nil
         nil
@@ -2707,6 +2729,14 @@
     ^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
 !
 
+showDiskUsageHolder
+    |holder|
+
+    holder := self aspectFor:#showDiskUsageHolder ifAbsent:[ true asValue].
+    holder onChangeEvaluate:[ self notify:'' ].
+    ^ holder
+!
+
 showHiddenFiles
 
     ^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
@@ -4750,13 +4780,18 @@
 !
 
 truncateSelectedFilesToZeroSize
-    |selectedFiles|
+    |selectedFiles numFiles msg|
 
     selectedFiles := self currentFileNameHolder value.
-    selectedFiles size == 0 ifTrue:[^ self].
+    (numFiles := selectedFiles size) == 0 ifTrue:[^ self].
+
+    msg := 'Really truncate %2 ?\\WARNING: contents of file is lost !!\This cannot be undone.'.
+    numFiles > 1 ifTrue:[
+        msg := 'Really truncate %1 files ?\\WARNING: contents of files is lost !!\This cannot be undone.'.
+    ].
 
     (Dialog 
-        confirm:('Really truncate %1 files ?\\WARNING: contents of file(s) is lost !!\This cannot be undone.' bindWith:selectedFiles size) withCRs
+        confirm:(msg bindWith:numFiles with:selectedFiles first baseName) withCRs
         initialAnswer:false
     ) ifFalse:[
         ^ self
@@ -5744,5 +5779,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.91 2003-02-10 16:37:28 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.92 2003-02-13 12:11:48 cg Exp $'
 ! !