changeset 24143 | c6ea584e6331 |
parent 23950 | 308a94fcf0cd |
child 24144 | e8db60b4a0bd |
--- a/Character.st Fri May 24 09:24:05 2019 +0200 +++ b/Character.st Fri May 24 12:56:36 2019 +0200 @@ -2136,6 +2136,14 @@ ^ self isLetter or:[self isDigit] ! +isLetterOrDigitOrUnderline + "return true, if I am a letter or a digit or $_" + + ^ self == $_ or:[ self isLetterOrDigit ] + + "Created: / 24-05-2019 / 12:56:23 / Claus Gittinger" +! + isLetterOrUnderline "return true, if I am a letter or $_"