[PreSmalltalks] Allow lowercase classnames

shingarov · Oct 12, 2023 · 84768e7 · 84768e7
1 parent 747705a
commit 84768e7
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/PreSmalltalks-Pharo/String.extension.st b/PreSmalltalks-Pharo/String.extension.st
@@ -0,0 +1,15 @@
+Extension { #name : #String }
+
+{ #category : #'*PreSmalltalks-Pharo' }
+String >> isValidGlobalName [
+
+	self ifEmpty: [ ^ false ].
+
+	"reserverd default names"
+	self = 'NameOfSubclass' ifTrue: [ ^ false ].
+	self = 'TNameOfTrait' ifTrue: [ ^ false ].
+
+	^ self first isLetter
+				and: [ self allSatisfy: [:character | 
+						character isAlphaNumeric or: [ character = $_ ]]]
+]