#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sun, 23 Jun 2019 21:51:43 +0200
changeset 18840 6c8e59889b0b
parent 18839 8603075897cb
child 18841 980c8159d853
#FEATURE by cg class: AbstractFileBrowser changed: #currentFileNameHolderChangedForCommon
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Sun Jun 23 21:51:12 2019 +0200
+++ b/AbstractFileBrowser.st	Sun Jun 23 21:51:43 2019 +0200
@@ -4948,7 +4948,11 @@
     selectionNotEmpty := selection notEmptyOrNil.
     self hasSelection value:selectionNotEmpty.
     self hasFileSelection value:(selectionNotEmpty and:[self firstSelectedFile notNil]).
-    self hasFileOrCypressPackageSelection value:(selection contains:[:sel | sel isDirectory and:[sel hasSuffix:'package']]).
+    self hasFileOrCypressPackageSelection 
+        value:(selection contains:[:sel | 
+                sel isDirectory 
+                and:[(sel hasSuffix:'package') or:[sel hasSuffix:'class']]
+        ]).
     self canOpenChangeBrowser value:(selectionNotEmpty).
 
     newDirectories := self directoriesForFiles:selection.
@@ -4998,7 +5002,7 @@
 
     "Modified: / 29-12-2010 / 11:01:52 / cg"
     "Modified: / 17-12-2013 / 08:23:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 23-06-2019 / 13:07:24 / Claus Gittinger"
+    "Modified: / 23-06-2019 / 21:42:40 / Claus Gittinger"
 !
 
 filterModelChanged