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