--- a/ChangeSetBrowser.st	Sat Jun 22 16:07:20 2019 +0200
+++ b/ChangeSetBrowser.st	Sun Jun 23 13:42:48 2019 +0200
@@ -73,12 +73,21 @@
     "Modified: / 17-02-2011 / 10:29:35 / cg"
 !
 
-openOnFile:aFileName
-    "open a changes browser on a file"
+openOnFile:fileNameOrString
+    "open a changes browser on a file (or cypress folder)"
+
+    |fileName changeSet|
 
-    |changeSet|
-
-    changeSet := ChangeSet fromFile:aFileName.
+    fileName := fileNameOrString asFilename.
+    
+    fileName isDirectory ifTrue:[
+        (fileName hasSuffix:'package') ifTrue:[
+            Smalltalk loadPackage:'stx:goodies/cypress'.
+            changeSet := (CypressPackage fromDirectory:fileName) asChangeSet.
+        ].
+    ] ifFalse:[
+        changeSet := ChangeSet fromFile:fileName.
+    ].    
     ^ self openOn:changeSet
 
     "
@@ -88,6 +97,7 @@
     "
 
     "Modified: / 17-02-2011 / 10:29:50 / cg"
+    "Modified: / 23-06-2019 / 13:28:39 / Claus Gittinger"
 ! !
 
 !ChangeSetBrowser class methodsFor:'defaults'!
@@ -486,6 +496,10 @@
                   isVisible: notReadOnly
                   indication: autoUpdate
                 )
+         (MenuItem
+            label: 'Autoload As Required'
+            indication: autoloadAsRequired
+          )
                (MenuItem
                   label: '-'
                 )
@@ -548,7 +562,7 @@
         nil
       )
 
-    "Modified: / 01-07-2018 / 09:24:35 / Claus Gittinger"
+    "Modified: / 23-06-2019 / 13:31:14 / Claus Gittinger"
 ! !
 
 !ChangeSetBrowser methodsFor:'aspects'!