From 8d5dc213f724ade026f07d9faffd4068df815b37 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marius=20D=C3=B6rbandt?= Date: Thu, 16 Nov 2023 10:46:01 +0100 Subject: [PATCH] Add extent equality check for Form>>squotEqual: --- src/Squot.package/Form.extension/instance/squotEqual..st | 1 + src/Squot.package/Form.extension/methodProperties.json | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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" } }