#FEATURE by cg
class: Character
added: #isLetterOrDigitOrUnderline
(grafted from c6ea584e6331a451cdd6848c3065230ab30dc905)
--- a/Character.st Wed Aug 28 18:36:06 2019 +0200
+++ b/Character.st Fri May 24 12:56:36 2019 +0200
@@ -2015,6 +2015,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 $_"