FileBrowser.st
changeset 1854 21e208473bca
parent 1853 f745e1813b22
child 1857 fe83017215fa
--- 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 $'
 ! !