From 626ad71111ea526ee1b5c1d4a5080d6a58390f62 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 18 Mar 2022 18:13:09 -0500
Subject: [PATCH] Extracting the checksum of a file name, according to our
 ad-hoc naming conventions.

---
 repository/Grafoscopio-Utils/FileReference.extension.st | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 repository/Grafoscopio-Utils/FileReference.extension.st

diff --git a/repository/Grafoscopio-Utils/FileReference.extension.st b/repository/Grafoscopio-Utils/FileReference.extension.st
new file mode 100644
index 0000000..c31c2f2
--- /dev/null
+++ b/repository/Grafoscopio-Utils/FileReference.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #FileReference }
+
+{ #category : #'*Grafoscopio-Utils' }
+FileReference >> basenameWithoutChecksum [
+	^ (self basenameWithoutExtension splitOn: '--') first
+]