--- a/AbstractFileBrowser.st Wed Jan 14 10:42:33 2004 +0100
+++ b/AbstractFileBrowser.st Wed Jan 14 10:49:12 2004 +0100
@@ -1551,6 +1551,7 @@
label: 'New'
translateLabel: true
submenuChannel: newMenu
+ keepLinkedMenu: true
)
(MenuItem
label: '-'
@@ -1608,6 +1609,7 @@
label: 'Operations'
translateLabel: true
submenuChannel: fileOpMenu
+ keepLinkedMenu: true
)
(MenuItem
label: '-'
@@ -6434,5 +6436,5 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.193 2004-01-09 14:05:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.194 2004-01-14 09:48:57 penk Exp $'
! !
--- a/DirectoryContentsBrowser.st Wed Jan 14 10:42:33 2004 +0100
+++ b/DirectoryContentsBrowser.st Wed Jan 14 10:49:12 2004 +0100
@@ -548,6 +548,7 @@
label: 'New'
translateLabel: true
submenuChannel: newMenu
+ keepLinkedMenu: true
)
(MenuItem
label: '-'
@@ -578,6 +579,7 @@
label: 'Operations'
translateLabel: true
submenuChannel: fileOpMenu
+ keepLinkedMenu: true
)
(MenuItem
enabled: hasSelection
@@ -642,6 +644,7 @@
label: 'Tools'
translateLabel: true
submenuChannel: toolsMenuSpec
+ keepLinkedMenu: true
)
(MenuItem
label: '-'
@@ -3097,5 +3100,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.142 2003-12-15 11:22:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.143 2004-01-14 09:49:12 penk Exp $'
! !
--- a/DirectoryTreeBrowser.st Wed Jan 14 10:42:33 2004 +0100
+++ b/DirectoryTreeBrowser.st Wed Jan 14 10:49:12 2004 +0100
@@ -196,130 +196,131 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Cut'
- #itemValue: #doCut
- #translateLabel: true
- #isVisible: #allowFileOperations
- #shortcutKey: #Cut
+ #(Menu
+ (
+ (MenuItem
+ label: 'Cut'
+ itemValue: doCut
+ translateLabel: true
+ isVisible: allowFileOperations
+ shortcutKey: Cut
)
- #(#MenuItem
- #label: 'Copy'
- #itemValue: #doCopy
- #translateLabel: true
- #isVisible: #allowFileOperations
- #shortcutKey: #Copy
+ (MenuItem
+ label: 'Copy'
+ itemValue: doCopy
+ translateLabel: true
+ isVisible: allowFileOperations
+ shortcutKey: Copy
)
- #(#MenuItem
- #enabled: #canPaste
- #label: 'Paste'
- #itemValue: #pasteFiles
- #translateLabel: true
- #isVisible: #allowFileOperations
- #shortcutKey: #Paste
+ (MenuItem
+ enabled: canPaste
+ label: 'Paste'
+ itemValue: pasteFiles
+ translateLabel: true
+ isVisible: allowFileOperations
+ shortcutKey: Paste
)
- #(#MenuItem
- #label: 'Delete'
- #itemValue: #doDelete
- #nameKey: #delete
- #translateLabel: true
- #isVisible: #allowFileOperations
- #shortcutKey: #Delete
+ (MenuItem
+ label: 'Delete'
+ itemValue: doDelete
+ nameKey: delete
+ translateLabel: true
+ isVisible: allowFileOperations
+ shortcutKey: Delete
)
- #(#MenuItem
- #label: '-'
- #isVisible: #allowFileOperations
+ (MenuItem
+ label: '-'
+ isVisible: allowFileOperations
)
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #isVisible: #newVisibilityHolder
- #submenuChannel: #newMenu
+ (MenuItem
+ label: 'New'
+ translateLabel: true
+ isVisible: newVisibilityHolder
+ submenuChannel: newMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #label: '-'
- #isVisible: #newVisibilityHolder
+ (MenuItem
+ label: '-'
+ isVisible: newVisibilityHolder
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Rename'
- #itemValue: #renameFileInTreeView
- #translateLabel: true
- #isVisible: #allowFileOperations
- #shortcutKey: #Rename
+ (MenuItem
+ enabled: hasSelection
+ label: 'Rename'
+ itemValue: renameFileInTreeView
+ translateLabel: true
+ isVisible: allowFileOperations
+ shortcutKey: Rename
)
- #(#MenuItem
- #enabled: #hasSelection
- #label: 'Properties...'
- #itemValue: #doShowProperties
- #translateLabel: true
+ (MenuItem
+ enabled: hasSelection
+ label: 'Properties...'
+ itemValue: doShowProperties
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #enableDirectoryUp
- #label: 'Directory Up'
- #itemValue: #doGoDirectoryUp
- #translateLabel: true
+ (MenuItem
+ enabled: enableDirectoryUp
+ label: 'Directory Up'
+ itemValue: doGoDirectoryUp
+ translateLabel: true
)
- #(#MenuItem
- #label: 'View'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #enabled: #sortInTreeVisibilityHolder
- #label: 'Sort'
- #nameKey: #Sort
- #translateLabel: true
- #submenuChannel: #sortInTreeMenu
+ (MenuItem
+ label: 'View'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: sortInTreeVisibilityHolder
+ label: 'Sort'
+ nameKey: Sort
+ translateLabel: true
+ submenuChannel: sortInTreeMenu
)
- #(#MenuItem
- #label: 'Show'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Files'
- #translateLabel: true
- #indication: #viewFilesInDirectoryTree
+ (MenuItem
+ label: 'Show'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Files'
+ translateLabel: true
+ indication: viewFilesInDirectoryTree
)
)
nil
nil
)
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #enabled: #selectedFilesIncludesNonRootDirectory
- #label: 'Make Selected Directory new Root'
- #itemValue: #doSetSelectionToRoot
- #translateLabel: true
+ (MenuItem
+ enabled: selectedFilesIncludesNonRootDirectory
+ label: 'Make Selected Directory new Root'
+ itemValue: doSetSelectionToRoot
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Re-/ Expand Directory'
- #itemValue: #toggleExpandSelectedItem
- #translateLabel: true
+ (MenuItem
+ label: 'Re-/ Expand Directory'
+ itemValue: toggleExpandSelectedItem
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Update'
- #itemValue: #updateCurrentDirectory
- #translateLabel: true
+ (MenuItem
+ label: 'Update'
+ itemValue: updateCurrentDirectory
+ translateLabel: true
)
)
nil
@@ -1302,5 +1303,5 @@
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.81 2003-11-27 12:39:33 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.82 2004-01-14 09:49:06 penk Exp $'
! !
--- a/FileBrowser.st Wed Jan 14 10:42:33 2004 +0100
+++ b/FileBrowser.st Wed Jan 14 10:49:12 2004 +0100
@@ -702,110 +702,111 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Spawn'
- #translateLabel: true
- #value: #fileSpawn
+ #(Menu
+ (
+ (MenuItem
+ label: 'Spawn'
+ itemValue: fileSpawn
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Edit File'
- #translateLabel: true
- #value: #fileGet
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Edit File'
+ itemValue: fileGet
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Insert File'
- #translateLabel: true
- #value: #fileInsert
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Insert File'
+ itemValue: fileInsert
+ translateLabel: true
)
- #(#MenuItem
- #label: 'FileIn'
- #translateLabel: true
- #value: #fileFileIn
- #enabled: #hasSelection
- #shortcutKeyCharacter: #Accept
+ (MenuItem
+ enabled: hasSelection
+ label: 'FileIn'
+ itemValue: fileFileIn
+ translateLabel: true
+ shortcutKey: Accept
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Directory...'
- #translateLabel: true
- #value: #newDirectory
+ (MenuItem
+ label: 'New'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Directory...'
+ itemValue: newDirectory
+ translateLabel: true
)
- #(#MenuItem
- #label: 'File...'
- #translateLabel: true
- #value: #newFile
+ (MenuItem
+ label: 'File...'
+ itemValue: newFile
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Hard Link...'
- #translateLabel: true
- #isVisible: #systemIsUnix
- #value: #newHardLink
+ (MenuItem
+ label: 'Hard Link...'
+ itemValue: newHardLink
+ translateLabel: true
+ isVisible: systemIsUnix
)
- #(#MenuItem
- #label: 'Symbolic Link...'
- #translateLabel: true
- #isVisible: #systemIsUnix
- #value: #newSoftLink
+ (MenuItem
+ label: 'Symbolic Link...'
+ itemValue: newSoftLink
+ translateLabel: true
+ isVisible: systemIsUnix
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Remove...'
- #translateLabel: true
- #value: #fileRemove
- #enabled: #hasSelection
- #shortcutKeyCharacter: #Cut
+ (MenuItem
+ enabled: hasSelection
+ label: 'Remove...'
+ itemValue: fileRemove
+ translateLabel: true
+ shortcutKey: Cut
)
- #(#MenuItem
- #label: 'Rename...'
- #translateLabel: true
- #value: #fileRename
- #enabled: #hasSelection
- #shortcutKeyCharacter: #Replace
+ (MenuItem
+ enabled: hasSelection
+ label: 'Rename...'
+ itemValue: fileRename
+ translateLabel: true
+ shortcutKey: Replace
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Properties...'
- #translateLabel: true
- #value: #fileGetLongInfo
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Properties...'
+ itemValue: fileGetLongInfo
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Tools'
- #translateLabel: true
- #submenuChannel: #toolsMenuSpec
- #shortcutKeyCharacter: #Ctrl
+ (MenuItem
+ label: 'Tools'
+ translateLabel: true
+ submenuChannel: toolsMenuSpec
+ shortcutKey: Ctrl
+ keepLinkedMenu: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Update'
- #translateLabel: true
- #value: #updateCurrentDirectory
+ (MenuItem
+ label: 'Update'
+ itemValue: updateCurrentDirectory
+ translateLabel: true
)
)
nil
@@ -828,369 +829,371 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'File'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Spawn'
- #translateLabel: true
- #value: #fileSpawn
+ #(Menu
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Spawn'
+ itemValue: fileSpawn
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Open'
- #translateLabel: true
- #isVisible: false
- #value: #menuOpen
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Open'
+ itemValue: menuOpen
+ translateLabel: true
+ isVisible: false
)
- #(#MenuItem
- #label: 'Open selected Filename'
- #translateLabel: true
- #isVisible: #hasFilenameSelectionInCodeView
- #value: #openSelectedFilename
- #enabled: #hasFilenameSelectionInCodeView
+ (MenuItem
+ enabled: hasFilenameSelectionInCodeView
+ label: 'Open selected Filename'
+ itemValue: openSelectedFilename
+ translateLabel: true
+ isVisible: hasFilenameSelectionInCodeView
)
- #(#MenuItem
- #label: 'FileIn'
- #translateLabel: true
- #value: #fileFileIn
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'FileIn'
+ itemValue: fileFileIn
+ translateLabel: true
)
- #(#MenuItem
- #label: 'FileInTo NameSpace...'
- #translateLabel: true
- #value: #fileFileInToNameSpace
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'FileInTo NameSpace...'
+ itemValue: fileFileInToNameSpace
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'New'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Directory...'
- #translateLabel: true
- #value: #newDirectory
+ (MenuItem
+ label: 'New'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Directory...'
+ itemValue: newDirectory
+ translateLabel: true
)
- #(#MenuItem
- #label: 'File...'
- #translateLabel: true
- #value: #newFile
+ (MenuItem
+ label: 'File...'
+ itemValue: newFile
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Hard Link...'
- #translateLabel: true
- #isVisible: #systemIsUnix
- #value: #newHardLink
+ (MenuItem
+ label: 'Hard Link...'
+ itemValue: newHardLink
+ translateLabel: true
+ isVisible: systemIsUnix
)
- #(#MenuItem
- #label: 'Symbolic Link...'
- #translateLabel: true
- #isVisible: #systemIsUnix
- #value: #newSoftLink
+ (MenuItem
+ label: 'Symbolic Link...'
+ itemValue: newSoftLink
+ translateLabel: true
+ isVisible: systemIsUnix
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Remove'
- #translateLabel: true
- #value: #fileRemove
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Remove'
+ itemValue: fileRemove
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Rename'
- #translateLabel: true
- #value: #fileRename
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Rename'
+ itemValue: fileRename
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Properties...'
- #translateLabel: true
- #value: #fileGetLongInfo
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Properties...'
+ itemValue: fileGetLongInfo
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
- #isVisible: #javaSupportLoaded
+ (MenuItem
+ label: '-'
+ isVisible: javaSupportLoaded
)
- #(#MenuItem
- #label: 'Add to Java ClassPath'
- #translateLabel: true
- #isVisible: #javaSupportLoaded
- #value: #fileAddToJavaClassPath
- #enabled: #canAddToClassPath
+ (MenuItem
+ enabled: canAddToClassPath
+ label: 'Add to Java ClassPath'
+ itemValue: fileAddToJavaClassPath
+ translateLabel: true
+ isVisible: javaSupportLoaded
)
- #(#MenuItem
- #label: 'Remove from Java ClassPath'
- #translateLabel: true
- #isVisible: #javaSupportLoaded
- #value: #fileRemoveFromJavaClassPath
- #enabled: #canRemoveFromClassPath
+ (MenuItem
+ enabled: canRemoveFromClassPath
+ label: 'Remove from Java ClassPath'
+ itemValue: fileRemoveFromJavaClassPath
+ translateLabel: true
+ isVisible: javaSupportLoaded
)
- #(#MenuItem
- #label: 'Add to Java SourcePath'
- #translateLabel: true
- #isVisible: #javaSupportLoaded
- #value: #fileAddToJavaSourcePath
- #enabled: #canAddToSourcePath
+ (MenuItem
+ enabled: canAddToSourcePath
+ label: 'Add to Java SourcePath'
+ itemValue: fileAddToJavaSourcePath
+ translateLabel: true
+ isVisible: javaSupportLoaded
)
- #(#MenuItem
- #label: 'Remove from Java SourcePath'
- #translateLabel: true
- #isVisible: #javaSupportLoaded
- #value: #fileRemoveFromJavaSourcePath
- #enabled: #canRemoveFromSourcePath
+ (MenuItem
+ enabled: canRemoveFromSourcePath
+ label: 'Remove from Java SourcePath'
+ itemValue: fileRemoveFromJavaSourcePath
+ translateLabel: true
+ isVisible: javaSupportLoaded
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #menuExit
+ (MenuItem
+ label: 'Exit'
+ itemValue: menuExit
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Directory'
- #translateLabel: true
- #submenuChannel: #directoryMenuSpec
+ (MenuItem
+ label: 'Directory'
+ translateLabel: true
+ submenuChannel: directoryMenuSpec
+ keepLinkedMenu: true
)
- #(#MenuItem
- #label: 'Edit'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Edit File'
- #translateLabel: true
- #value: #fileGet
- #enabled: #hasSelection
+ (MenuItem
+ label: 'Edit'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSelection
+ label: 'Edit File'
+ itemValue: fileGet
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Insert File'
- #translateLabel: true
- #value: #fileInsert
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Insert File'
+ itemValue: fileInsert
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Copy File List'
- #translateLabel: true
- #value: #copyFileList
+ (MenuItem
+ label: 'Copy File List'
+ itemValue: copyFileList
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Copy Selected Filename'
- #translateLabel: true
- #value: #copySelectedFileName
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Copy Selected Filename'
+ itemValue: copySelectedFileName
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Copy Selected Pathname'
- #translateLabel: true
- #value: #copySelectedPathName
- #enabled: #hasSelection
+ (MenuItem
+ enabled: hasSelection
+ label: 'Copy Selected Pathname'
+ itemValue: copySelectedPathName
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Copy Command History'
- #translateLabel: true
- #value: #copyCommandHistory
+ (MenuItem
+ label: 'Copy Command History'
+ itemValue: copyCommandHistory
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Visited Files'
- #translateLabel: true
- #submenuChannel: #visitedFileMenuSpec
+ (MenuItem
+ label: 'Visited Files'
+ translateLabel: true
+ submenuChannel: visitedFileMenuSpec
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'View'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Show Details'
- #translateLabel: true
- #indication: #showingDetails
+ (MenuItem
+ label: 'View'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Show Details'
+ translateLabel: true
+ indication: showingDetails
)
- #(#MenuItem
- #label: 'Show Time && Date'
- #translateLabel: true
- #enabled: #showingDetails
- #indication: #showingTimeAndDate
+ (MenuItem
+ enabled: showingDetails
+ label: 'Show Time && Date'
+ translateLabel: true
+ indication: showingTimeAndDate
)
- #(#MenuItem
- #label: 'Show Hidden Files'
- #translateLabel: true
- #indication: #showingHiddenFiles
+ (MenuItem
+ label: 'Show Hidden Files'
+ translateLabel: true
+ indication: showingHiddenFiles
)
- #(#MenuItem
- #label: 'Show Big Image Preview'
- #translateLabel: true
- #indication: #showingBigImagePreview
+ (MenuItem
+ label: 'Show Big Image Preview'
+ translateLabel: true
+ indication: showingBigImagePreview
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Sort by Name'
- #translateLabel: true
- #choice: #sortByWhat
- #choiceValue: #name
+ (MenuItem
+ label: 'Sort by Name'
+ translateLabel: true
+ choice: sortByWhat
+ choiceValue: name
)
- #(#MenuItem
- #label: 'Sort by Type'
- #translateLabel: true
- #choice: #sortByWhat
- #choiceValue: #type
+ (MenuItem
+ label: 'Sort by Type'
+ translateLabel: true
+ choice: sortByWhat
+ choiceValue: type
)
- #(#MenuItem
- #label: 'Sort by Time'
- #translateLabel: true
- #choice: #sortByWhat
- #choiceValue: #time
+ (MenuItem
+ label: 'Sort by Time'
+ translateLabel: true
+ choice: sortByWhat
+ choiceValue: time
)
- #(#MenuItem
- #label: 'Ignore Case in Sort'
- #translateLabel: true
- #indication: #sortCaseless
+ (MenuItem
+ label: 'Ignore Case in Sort'
+ translateLabel: true
+ indication: sortCaseless
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Encoding...'
- #translateLabel: true
- #value: #fileEncoding
+ (MenuItem
+ label: 'Encoding...'
+ itemValue: fileEncoding
+ translateLabel: true
)
- #(#MenuItem
- #label: 'DOS EndOfLine Mode'
- #translateLabel: true
- #indication: #dosEOLMode
+ (MenuItem
+ label: 'DOS EndOfLine Mode'
+ translateLabel: true
+ indication: dosEOLMode
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Update'
- #translateLabel: true
- #value: #updateCurrentDirectory
+ (MenuItem
+ label: 'Update'
+ itemValue: updateCurrentDirectory
+ translateLabel: true
)
- #(#MenuItem
- #label: 'AutoUpdate'
- #translateLabel: true
- #indication: #autoUpdate
+ (MenuItem
+ label: 'AutoUpdate'
+ translateLabel: true
+ indication: autoUpdate
)
)
nil
nil
)
)
- #(#MenuItem
- #label: 'Tools'
- #translateLabel: true
- #submenuChannel: #toolsMenuSpec
+ (MenuItem
+ label: 'Tools'
+ translateLabel: true
+ submenuChannel: toolsMenuSpec
+ keepLinkedMenu: true
)
- #(#MenuItem
- #label: 'CVS'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Update Selected Files/Directories'
- #translateLabel: true
- #value: #cvsUpdateSelection
- #enabled: #hasSelection
+ (MenuItem
+ label: 'CVS'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasSelection
+ label: 'Update Selected Files/Directories'
+ itemValue: cvsUpdateSelection
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Update Directory Local'
- #translateLabel: true
- #value: #cvsUpdateDirectoryLocal
+ (MenuItem
+ label: 'Update Directory Local'
+ itemValue: cvsUpdateDirectoryLocal
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Update Directory Recursive'
- #translateLabel: true
- #value: #cvsUpdateDirectoryRecursive
+ (MenuItem
+ label: 'Update Directory Recursive'
+ itemValue: cvsUpdateDirectoryRecursive
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Commit...'
- #translateLabel: true
- #value: #cvsCommitSelection
+ (MenuItem
+ label: 'Commit...'
+ itemValue: cvsCommitSelection
+ translateLabel: true
)
- #(#MenuItem
- #label: 'Add && Commit...'
- #translateLabel: true
- #value: #cvsAddAndCommitSelection
+ (MenuItem
+ label: 'Add && Commit...'
+ itemValue: cvsAddAndCommitSelection
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Remove File && CVS Container...'
- #translateLabel: true
- #value: #cvsRemoveFileAndContainer
- #enabled: #canRemoveCVSContainer
+ (MenuItem
+ enabled: canRemoveCVSContainer
+ label: 'Remove File && CVS Container...'
+ itemValue: cvsRemoveFileAndContainer
+ translateLabel: true
)
)
nil
nil
)
)
- #(#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
@@ -7612,5 +7615,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.553 2003-12-02 10:09:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.554 2004-01-14 09:48:48 penk Exp $'
! !