Implement squotEqual: for AbstractSound

hpi-swa · Oct 17, 2023 · b6610ad · b6610ad
1 parent 11ec583
commit b6610ad
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 0 deletions.
diff --git a/src/Squot.package/AbstractSound.extension/instance/squotEqual..st 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
diff --git a/src/Squot.package/AbstractSound.extension/methodProperties.json 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
@@ -0,0 +1,2 @@
+{
+	"name" : "AbstractSound" }