--- a/AbstractFileBrowser.st Thu Jun 06 21:39:41 2013 +0200
+++ b/AbstractFileBrowser.st Thu Jun 06 22:09:43 2013 +0200
@@ -1821,16 +1821,19 @@
label: 'Split...'
itemValue: splitSelectedFiles
translateLabel: true
+ enabled: hasFileSelection
)
(MenuItem
label: 'Join...'
itemValue: joinSelectedFiles
translateLabel: true
+ enabled: hasFileSelection
)
(MenuItem
label: 'Copy Corrupted File To...'
itemValue: copySelectionToRepairingCorruptedFiles
translateLabel: true
+ enabled: hasFileSelection
)
(MenuItem
label: '-'
@@ -1840,11 +1843,13 @@
itemValue: filterSelectedFiles:
translateLabel: true
argument: rot13
+ enabled: hasFileSelection
)
(MenuItem
label: '-'
)
(MenuItem
+ enabled: hasFileSelection
label: 'Truncate...'
itemValue: truncateSelectedFilesToZeroSize
translateLabel: true
@@ -1868,14 +1873,14 @@
label: '-'
)
(MenuItem
- enabled: hasSelection
+ enabled: hasFileSelection
label: 'File Differences'
itemValue: openDiffView
translateLabel: true
isVisible: hasTwoFilesSelectedHolder
)
(MenuItem
- enabled: hasSelection
+ enabled: hasFileSelection
label: 'File Differences...'
itemValue: openDiffView
translateLabel: true
@@ -2270,8 +2275,8 @@
itemValue: openCBrowser
isVisible: hasCBrowser
)
- (MenuItem
- enabled: canOpenMontocelloBrowser
+ (MenuItem
+ enabled: canOpenMonticelloBrowser
label: 'Monticello Browser'
itemValue: doOpenMonticelloBrowser
)
@@ -2437,6 +2442,7 @@
(MenuItem
label: 'Same Contents as Selected...'
itemValue: fileFindDuplicateFile
+ enabled: hasFileSelection
)
(MenuItem
label: 'Duplicate Files'
@@ -7995,7 +8001,7 @@
splitSelectedFiles
|selectedFiles numFiles msg sizeString kiloBytes|
- selectedFiles := self currentSelectedObjects.
+ selectedFiles := self currentSelectedFiles.
(numFiles := selectedFiles size) == 0 ifTrue:[^ self].
msg := (numFiles > 1)
@@ -8166,7 +8172,7 @@
hasJavaAndSelection
- ^ [ self currentSelectedFiles size > 0
+ ^ [ self currentSelectedFiles notEmptyOrNil
and:[JavaClassReader notNil
and:[JavaClassReader isLoaded]]]
!
@@ -8179,14 +8185,13 @@
hasMP3PlayerAndSelection
- ^ [ self currentSelectedFiles size > 0
+ ^ [ self currentSelectedFiles notEmptyOrNil
and:[ self hasMP3Player value]]
!
hasResourceFileSelected
-
- ^ self currentSelectedFiles
- conform:[:fn |
+ ^ (self currentSelectedFiles)
+ contains:[:fn |
fn suffix asLowercase = 'rs'
].
!
@@ -9194,10 +9199,10 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.526 2013-06-06 10:44:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.527 2013-06-06 20:09:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.526 2013-06-06 10:44:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.527 2013-06-06 20:09:43 cg Exp $'
! !