--- a/StringPattern.st	Sat Jan 24 00:44:21 2015 +0100
+++ b/StringPattern.st	Sat Jan 24 01:05:51 2015 +0100
@@ -101,6 +101,18 @@
     "Created: / 09-08-2011 / 13:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!StringPattern methodsFor:'conversion'!
+
+asString
+    "Returns a string representation of the pattern.
+
+     `StringPattern fromString: pattern asString` should return
+     the same pattern (same meaning equal)"
+
+    ^ self subclassResponsibility
+
+    "Created: / 23-01-2015 / 17:36:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
 !StringPattern methodsFor:'initialization'!
 
@@ -220,6 +232,19 @@
     "Created: / 29-11-2011 / 15:37:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!StringPattern::Includes methodsFor:'conversion'!
+
+asString
+    "Returns a string representation of the pattern.
+     
+     `StringPattern fromString: pattern asString` should return
+     the same pattern (same meaning equal)"
+
+    ^ ' ', data
+
+    "Created: / 23-01-2015 / 17:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !StringPattern::Includes methodsFor:'matching'!
 
 match:string from: from to: to case: case relax:relax
@@ -234,6 +259,19 @@
     "Created: / 26-11-2014 / 06:40:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!StringPattern::Matches methodsFor:'conversion'!
+
+asString
+    "Returns a string representation of the pattern.
+     
+     `StringPattern fromString: pattern asString` should return
+     the same pattern (same meaning equal)"
+
+    ^ data
+
+    "Created: / 23-01-2015 / 17:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !StringPattern::Matches methodsFor:'matching'!
 
 match:string from: from to: to case: case relax:relax
@@ -316,6 +354,19 @@
     "Modified (format): / 09-01-2015 / 13:09:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!StringPattern::StartsWith methodsFor:'conversion'!
+
+asString
+    "Returns a string representation of the pattern.
+     
+     `StringPattern fromString: pattern asString` should return
+     the same pattern (same meaning equal)"
+
+    ^ data
+
+    "Created: / 23-01-2015 / 17:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !StringPattern::StartsWith methodsFor:'matching'!
 
 match: string from: from to: to case: case relax: relax
@@ -374,10 +425,10 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.10 2015-01-09 13:09:20 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.11 2015-01-24 00:05:51 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.10 2015-01-09 13:09:20 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.11 2015-01-24 00:05:51 vrany Exp $'
 ! !