class: AbstractFileBrowser
authorClaus Gittinger <cg@exept.de>
Thu, 06 Jun 2013 22:09:43 +0200
changeset 12871 74bdca95981d
parent 12870 798d611cfd62
child 12872 2f2d2bb58976
class: AbstractFileBrowser changed:6 methods menu item enable/disable
AbstractFileBrowser.st
--- 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 $'
 ! !