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" }