--- a/CypressMethod.st	Tue Sep 11 10:56:07 2012 +0000
+++ b/CypressMethod.st	Thu Sep 13 14:58:01 2012 +0000
@@ -10,6 +10,13 @@
 
 !CypressMethod class methodsFor:'instance creation'!
 
+fromFile: aStringOrFilename
+    "Reads a CypressMethod from given file"
+    ^self new initializeFromFile: aStringOrFilename
+
+    "Created: / 13-09-2012 / 15:36:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 fromMethod: aMethod
     "Returns a Cypress method for given (real) method"
     ^self new initializeFromMethod: aMethod
@@ -41,6 +48,12 @@
 
 !CypressMethod methodsFor:'initialization'!
 
+initializeFromFile: aStringOrFilename
+    self readFrom: aStringOrFilename
+
+    "Created: / 13-09-2012 / 15:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initializeFromMethod: aMethod
     name := aMethod selector.
     klass := aMethod mclass name.