GrafoscopioUtils/repository/Grafoscopio-Utils/FileReference.extension.st

7 lines
176 B
Smalltalk

Extension { #name : #FileReference }
{ #category : #'*Grafoscopio-Utils' }
FileReference >> basenameWithoutChecksum [
^ (self basenameWithoutExtension splitOn: '--') first
]