--- 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 $'
! !