diff --git a/src/Squot.package/Form.extension/instance/squotEqual..st b/src/Squot.package/Form.extension/instance/squotEqual..st index 053042adc..442e58a5f 100644 --- a/src/Squot.package/Form.extension/instance/squotEqual..st +++ b/src/Squot.package/Form.extension/instance/squotEqual..st @@ -2,4 +2,5 @@ squotEqual: anObject self == anObject ifTrue: [^ true]. anObject isForm ifFalse: [^ false]. + self extent = anObject extent ifFalse: [^ false]. ^ (self pixelCompare: (0@0 corner: self extent) with: anObject at: 0@0) = 0 \ No newline at end of file diff --git a/src/Squot.package/Form.extension/methodProperties.json b/src/Squot.package/Form.extension/methodProperties.json index aa9de0ff1..251047008 100644 --- a/src/Squot.package/Form.extension/methodProperties.json +++ b/src/Squot.package/Form.extension/methodProperties.json @@ -2,4 +2,4 @@ "class" : { }, "instance" : { - "squotEqual:" : "mad 8/29/2023 16:42" } } + "squotEqual:" : "mad 11/16/2023 10:44" } }