AbstractFileBrowser.st
changeset 4317 bf3f150809c2
parent 4294 864590e72d30
child 4337 f2eed806e854
--- a/AbstractFileBrowser.st	Tue Nov 26 14:53:50 2002 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 26 16:51:55 2002 +0100
@@ -987,74 +987,9 @@
             #translateLabel: true
           )
          #(#MenuItem
-            #label: 'Settings'
+            #label: 'Settings...'
+            #itemValue: #doOpenSettings
             #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Show'
-                  #translateLabel: true
-                  #submenuChannel: #showMenuSpec
-                )
-               #(#MenuItem
-                  #label: 'Sort'
-                  #translateLabel: true
-                  #submenuChannel: #sortMenu
-                )
-               #(#MenuItem
-                  #label: 'Details'
-                  #translateLabel: true
-                  #submenuChannel: #viewInContentsBrowserMenu
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'Toolbar'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #toolBarVisibleHolder
-                )
-               #(#MenuItem
-                  #label: 'Path Entry && Filter'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #filenameEntryFieldVisibleHolder
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'Open Multiple Applications'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #openMultipleApplicationsForType
-                )
-               #(#MenuItem
-                  #label: 'Open Always in Text Editor'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #openAlwaysInTextEditor
-                )
-               #(#MenuItem
-                  #label: 'Auto Open Directory Description'
-                  #translateLabel: true
-                  #hideMenuOnActivated: false
-                  #indication: #viewDirectoryDescription
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'Save Settings'
-                  #itemValue: #saveAspectValues
-                  #translateLabel: true
-                )
-               )
-              nil
-              nil
-            )
           )
          #(#MenuItem
             #label: '-'
@@ -3469,6 +3404,15 @@
     self executeCommand:cmd.
 !
 
+doOpenSettings
+
+    | inst |
+
+    inst := FileBrowserV2SettingsFrame new.
+    inst requestor:self.
+    inst open.
+!
+
 fileFileIn
     "fileIn the selected file(s)"
 
@@ -5362,5 +5306,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.61 2002-11-19 16:43:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.62 2002-11-26 15:51:55 penk Exp $'
 ! !