--- a/CypressClass.st	Tue Sep 11 10:56:07 2012 +0000
+++ b/CypressClass.st	Thu Sep 13 14:58:01 2012 +0000
@@ -16,6 +16,14 @@
     ^self new initializeFromClass: aClass.
 
     "Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fromDirectory: directory
+    "Reads a CypressClass from given directory"
+
+    ^self new initializeFromDirectory: directory
+
+    "Created: / 13-09-2012 / 15:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CypressClass methodsFor:'accessing'!
@@ -67,6 +75,12 @@
     "Created: / 10-09-2012 / 23:48:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+initializeFromDirectory: directory
+    self readFrom: directory
+
+    "Created: / 13-09-2012 / 15:35:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initializeWithMethods: aCollection
     methods := aCollection