--- a/StringPattern.st Tue Dec 13 15:16:02 2011 +0100
+++ b/StringPattern.st Thu Dec 22 00:20:13 2011 +0100
@@ -251,7 +251,7 @@
| data |
stream position1Based == 1 ifTrue:[
- (stream peek notNil and:[stream peek isWhiteSpace]) ifFalse:[
+ (stream peek notNil and:[stream peek isSeparator]) ifFalse:[
data := stream upToSeparator.
(data includes: $*) ifTrue:[
^StringPattern matches: data
@@ -274,6 +274,7 @@
^StringPattern includes: data
"Created: / 18-10-2011 / 21:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 21-12-2011 / 23:19:06 / jv"
! !
!StringPattern::StartsWith methodsFor:'matching'!
@@ -302,9 +303,9 @@
!StringPattern class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.3 2011-11-29 15:04:19 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.3 2011-11-29 15:04:19 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.4 2011-12-21 23:20:13 vrany Exp $'
! !