Add extent equality check for Form>>squotEqual:

hpi-swa · Nov 16, 2023 · 8d5dc21 · 8d5dc21
1 parent a896848
commit 8d5dc21
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
diff --git 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" } }