--- a/FileBrowserV2.st	Tue Jan 13 16:37:58 2004 +0100
+++ b/FileBrowserV2.st	Wed Jan 14 10:42:33 2004 +0100
@@ -793,113 +793,119 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'Browser'
-            #translateLabel: true
-            #submenuChannel: #browserMenu
+     #(Menu
+        (
+         (MenuItem
+            label: 'Browser'
+            translateLabel: true
+            submenuChannel: browserMenu
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: 'Directory'
-            #translateLabel: true
-            #submenuChannel: #directoryMenu
+         (MenuItem
+            label: 'Directory'
+            translateLabel: true
+            submenuChannel: directoryMenu
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: 'File'
-            #translateLabel: true
-            #submenuChannel: #fileMenu
-          )
-         #(#MenuItem
-            #label: 'Edit'
-            #translateLabel: true
-            #submenuChannel: #editMenu
+         (MenuItem
+            label: 'File'
+            translateLabel: true
+            submenuChannel: fileMenu
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: 'View'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Details'
-                  #translateLabel: true
-                  #submenuChannel: #viewInContentsBrowserMenu
+         (MenuItem
+            label: 'Edit'
+            translateLabel: true
+            submenuChannel: editMenu
+            keepLinkedMenu: true
+          )
+         (MenuItem
+            label: 'View'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Details'
+                  translateLabel: true
+                  submenuChannel: viewInContentsBrowserMenu
                 )
-               #(#MenuItem
-                  #label: 'Sort'
-                  #translateLabel: true
-                  #submenuChannel: #sortMenu
+               (MenuItem
+                  label: 'Sort'
+                  translateLabel: true
+                  submenuChannel: sortMenu
                 )
-               #(#MenuItem
-                  #label: 'Show'
-                  #translateLabel: true
-                  #submenuChannel: #showMenuSpec
+               (MenuItem
+                  label: 'Show'
+                  translateLabel: true
+                  submenuChannel: showMenuSpec
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Toolbar'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #toolBarVisibleHolder
+               (MenuItem
+                  label: 'Toolbar'
+                  translateLabel: true
+                  hideMenuOnActivated: false
+                  indication: toolBarVisibleHolder
                 )
-               #(#MenuItem
-                  #label: 'Path Entry && Filter'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #filenameEntryFieldVisibleHolder
+               (MenuItem
+                  label: 'Path Entry && Filter'
+                  translateLabel: true
+                  hideMenuOnActivated: false
+                  indication: filenameEntryFieldVisibleHolder
                 )
-               #(#MenuItem
-                  #label: 'Preview'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #previewVisibleHolder
+               (MenuItem
+                  label: 'Preview'
+                  translateLabel: true
+                  hideMenuOnActivated: false
+                  indication: previewVisibleHolder
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'Update'
-                  #translateLabel: true
-                  #itemValue: #updateCurrentDirectory
+               (MenuItem
+                  label: 'Update'
+                  itemValue: updateCurrentDirectory
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: 'Tools'
-            #translateLabel: true
-            #submenuChannel: #toolsMenuSpec
+         (MenuItem
+            label: 'Tools'
+            translateLabel: true
+            submenuChannel: toolsMenuSpec
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: 'CVS'
-            #translateLabel: true
-            #submenuChannel: #cvsMenu
+         (MenuItem
+            label: 'CVS'
+            translateLabel: true
+            submenuChannel: cvsMenu
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: 'Help'
-            #translateLabel: true
-            #startGroup: #right
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'FileBrowser Documentation'
-                  #translateLabel: true
-                  #value: #openHTMLDocument:
-                  #argument: 'tools/fbrowser/TOP.html'
+         (MenuItem
+            label: 'Help'
+            translateLabel: true
+            startGroup: right
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'FileBrowser Documentation'
+                  itemValue: openHTMLDocument:
+                  translateLabel: true
+                  argument: 'tools/fbrowser/TOP.html'
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #label: 'About FileBrowser...'
-                  #translateLabel: true
-                  #value: #openAboutThisApplication  
+               (MenuItem
+                  label: 'About FileBrowser...'
+                  itemValue: openAboutThisApplication
+                  translateLabel: true
                 )
                )
               nil
@@ -1648,7 +1654,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.100 2004-01-07 12:40:54 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.101 2004-01-14 09:42:33 penk Exp $'
 ! !
 
 FileBrowserV2 initialize!