--- a/FileBrowser.st Wed Aug 26 16:23:23 1998 +0200
+++ b/FileBrowser.st Wed Aug 26 16:35:12 1998 +0200
@@ -421,7 +421,6 @@
#(#MenuItem
#label: 'ZipFile Tool'
#translateLabel: true
- #isVisible: #hasZipFileSelected
#value: #openZipTool
#enabled: #hasZipFileSelected
)
@@ -481,7 +480,7 @@
nil
)
- "Modified: / 26.8.1998 / 16:17:08 / cg"
+ "Modified: / 26.8.1998 / 16:34:00 / cg"
!
menuSpec
@@ -782,7 +781,6 @@
#(#MenuItem
#label: 'ZipFile Tool'
#translateLabel: true
- #isVisible: #hasZipFileSelected
#value: #openZipTool
#enabled: #hasZipFileSelected
)
@@ -824,7 +822,7 @@
nil
)
- "Modified: / 26.8.1998 / 16:17:38 / cg"
+ "Modified: / 26.8.1998 / 16:33:44 / cg"
! !
!FileBrowser methodsFor:'aspects'!
@@ -852,6 +850,7 @@
hasZipFileSelected
^ [|sel fn|
+
sel := fileListView selectionValue.
sel size == 1
and:[ ((fn := self getSelectedFileName asFilename) hasSuffix:'zip')
@@ -859,7 +858,7 @@
]
"Created: / 26.8.1998 / 16:15:26 / cg"
- "Modified: / 26.8.1998 / 16:22:25 / cg"
+ "Modified: / 26.8.1998 / 16:33:05 / cg"
!
showingDetails
@@ -5155,5 +5154,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.250 1998-08-26 14:23:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.251 1998-08-26 14:35:12 cg Exp $'
! !