--- a/FileBrowser.st Fri Feb 11 11:41:31 2011 +0100
+++ b/FileBrowser.st Mon Feb 14 17:22:24 2011 +0100
@@ -1395,7 +1395,7 @@
#label: 'ZipFile Tool'
#translateLabel: true
#value: #openZipTool
- #enabled: #hasZipFileSelected
+ #enabled: #hasZipFileSelectedHolder
)
#(#MenuItem
#label: 'SlideShow'
@@ -1444,6 +1444,8 @@
nil
nil
)
+
+ "Modified: / 14-02-2011 / 17:17:33 / cg"
!
visitedFileMenuSpec
@@ -1753,24 +1755,26 @@
!
hasZipFileSelected
- ^ [|sel f fn suff|
-
- sel := fileListView selection.
- sel size == 1 ifTrue:[
- f := fileList at:sel first ifAbsent:nil.
- f notNil ifTrue:[
- suff := f asFilename suffix asLowercase.
- suff = 'zip' or:[suff = 'jar']
- ] ifFalse:[
- false
- ]
- ] ifFalse:[
- false
- ]
- ]
-
- "Created: / 26.8.1998 / 16:15:26 / cg"
- "Modified: / 30.1.1999 / 19:05:59 / cg"
+ |sel fileName suff|
+
+ sel := fileListView selection.
+ sel size == 1 ifFalse:[^ false].
+
+ fileName := sel first.
+ fileName isNil ifTrue:[^ false].
+
+ suff := fileName suffix asLowercase.
+ (suff = 'zip' or:[suff = 'jar']) ifTrue:[^ true].
+
+ ^ fileName mimeTypeOfContents = 'application/x-zip-compressed'
+
+ "Modified: / 14-02-2011 / 17:21:37 / cg"
+!
+
+hasZipFileSelectedHolder
+ ^ [ self hasZipFileSelected ]
+
+ "Created: / 14-02-2011 / 17:21:18 / cg"
!
javaSupportLoaded
@@ -7498,9 +7502,9 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.641 2011-02-09 13:04:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.642 2011-02-14 16:22:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.641 2011-02-09 13:04:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.642 2011-02-14 16:22:24 cg Exp $'
! !