WAAbstractFileLibrary class>>#asSelector: and filenames starting with a digit

[adriaon]

Hi,

WAAbstractFileLibrary class>>#asSelector: drops leading digits from filenames. This will cause name collisions with certain libraries like Bootstrap Icons. A possible solution could be to add a prefix like _ and preserve the digits. Like this:

asSelector: aFilename

	| mainPart extension |

	mainPart := (aFilename copyUpToLast: $.) select: [:each | each isAlphaNumeric].
	mainPart isEmpty ifTrue: [ ^ nil ].
	mainPart first isDigit ifTrue: [mainPart := '_' , mainPart].

	extension :=
		((aFilename copyAfterLast: $.) select: [:each | each isAlphaNumeric]) asLowercase capitalized.
	^(mainPart , extension) asSymbol

Cheers,
Adriaan

[jbrichau]

Good suggestion. Thanks!
I do think that means file libraries which have such filenames will need to be migrated, but I have to verify if that is really necessary. I just wanted to mark it here to investigate and document the change when we add this fix.