--- a/AbstractFileBrowser.st	Mon Oct 13 11:30:12 2003 +0200
+++ b/AbstractFileBrowser.st	Mon Oct 13 15:32:00 2003 +0200
@@ -1285,46 +1285,46 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'Spawn'
-            #itemValue: #doSpawn
-            #translateLabel: true
+     #(Menu
+        (
+         (MenuItem
+            label: 'Spawn'
+            itemValue: doSpawn
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'New Text Editor'
-            #itemValue: #newTextEditor
-            #translateLabel: true
+         (MenuItem
+            label: 'Add Text Editor'
+            itemValue: newTextEditor
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Search Files'
-            #itemValue: #doOpenSearchFile
-            #translateLabel: true
+         (MenuItem
+            label: 'Add Shell Terminal'
+            itemValue: doAddTerminal
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Shell Terminal'
-            #itemValue: #doAddTerminal
-            #translateLabel: true
+         (MenuItem
+            label: 'Add Search Tile'
+            itemValue: doOpenSearchFile
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Settings...'
-            #itemValue: #doOpenSettings
-            #translateLabel: true
+         (MenuItem
+            label: 'Settings...'
+            itemValue: doOpenSettings
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Exit'
-            #itemValue: #closeRequest
-            #translateLabel: true
+         (MenuItem
+            label: 'Exit'
+            itemValue: closeRequest
+            translateLabel: true
           )
          )
         nil
@@ -6427,5 +6427,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.176 2003-10-07 16:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.177 2003-10-13 13:32:00 cg Exp $'
 ! !