--- a/AbstractFileBrowser.st	Tue Nov 29 20:19:48 2011 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 29 20:20:04 2011 +0100
@@ -1114,6 +1114,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:AbstractFileBrowser andSelector:#browserMenu
      (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser browserMenu)) startUp
@@ -1152,18 +1153,17 @@
             translateLabel: true
             shortcutKey: Ctrlt
           )
-"/         (MenuItem
-"/            label: 'Add XML-Tree Page'
-"/            itemValue: newTextEditor
-"/            translateLabel: true
-"/            shortcutKey: Ctrlt
-"/          )
          (MenuItem
             label: 'Add Shell Terminal Page'
             itemValue: doAddTerminal
             translateLabel: true
           )
          (MenuItem
+            label: 'Add Archiver Page'
+            itemValue: doAddArchiver
+            translateLabel: true
+          )
+         (MenuItem
             label: 'Add Search Page'
             itemValue: doOpenSearchFile
             translateLabel: true
@@ -1193,8 +1193,6 @@
         nil
         nil
       )
-
-    "Modified: / 04-10-2011 / 13:40:06 / cg"
 !
 
 cvsMenu
@@ -2535,6 +2533,22 @@
     ].
 !
 
+doAddArchiver
+    |files|
+
+    files := self currentSelectedFiles.
+    files size == 1 ifFalse:[
+        Dialog information:'Select exactly one archive.'.
+        ^ self
+    ].
+
+    self 
+        applicationNamed:#FileApplicationNoteBook
+        ifPresentDo:[:appl | appl doAddArchiverOn:files first].
+
+    "Created: / 29-11-2011 / 19:01:31 / cg"
+!
+
 doAddTerminal
     |dir|
 
@@ -8432,9 +8446,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.475 2011-11-29 10:43:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.476 2011-11-29 19:20:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.475 2011-11-29 10:43:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.476 2011-11-29 19:20:04 cg Exp $'
 ! !