From b6610ad02fc378899249ac5b84629f3ee91b8496 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marius=20D=C3=B6rbandt?= <github.marius@doerbandt.de>
Date: Tue, 17 Oct 2023 12:39:01 +0200
Subject: [PATCH] Implement squotEqual: for AbstractSound

---
 .../AbstractSound.extension/instance/squotEqual..st         | 6 ++++++
 .../AbstractSound.extension/methodProperties.json           | 5 +++++
 src/Squot.package/AbstractSound.extension/properties.json   | 2 ++
 3 files changed, 13 insertions(+)
 create mode 100644 src/Squot.package/AbstractSound.extension/instance/squotEqual..st
 create mode 100644 src/Squot.package/AbstractSound.extension/methodProperties.json
 create mode 100644 src/Squot.package/AbstractSound.extension/properties.json

diff --git a/src/Squot.package/AbstractSound.extension/instance/squotEqual..st b/src/Squot.package/AbstractSound.extension/instance/squotEqual..st
new file mode 100644
index 000000000..e6350a224
--- /dev/null
+++ b/src/Squot.package/AbstractSound.extension/instance/squotEqual..st
@@ -0,0 +1,6 @@
+*Squot-Mapper-comparing
+squotEqual: anObject
+	self == anObject ifTrue: [^ true].
+	(anObject isKindOf: AbstractSound) ifFalse: [^ false].
+	self duration = anObject duration ifFalse: [^ false].
+	^ self samples = anObject samples
\ No newline at end of file
diff --git a/src/Squot.package/AbstractSound.extension/methodProperties.json b/src/Squot.package/AbstractSound.extension/methodProperties.json
new file mode 100644
index 000000000..d3f290f0e
--- /dev/null
+++ b/src/Squot.package/AbstractSound.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"squotEqual:" : "mad 9/21/2023 13:34" } }
diff --git a/src/Squot.package/AbstractSound.extension/properties.json b/src/Squot.package/AbstractSound.extension/properties.json
new file mode 100644
index 000000000..78c8dcce2
--- /dev/null
+++ b/src/Squot.package/AbstractSound.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "AbstractSound" }