From c0e63ad95c84ae4513f0700dd1420a999e88a0b9 Mon Sep 17 00:00:00 2001
From: Kris <1611248+Rinzwind@users.noreply.github.com>
Date: Tue, 16 Jul 2024 19:02:58 +0200
Subject: [PATCH] =?UTF-8?q?Made=20=E2=80=98preTestingPharo.st=E2=80=99=20e?=
 =?UTF-8?q?nsure=20there=20are=20no=20#asJson=20methods=20on=20Dictionary,?=
 =?UTF-8?q?=20OrderedDictionary=20and=20SequenceableCollection=20when=20te?=
 =?UTF-8?q?sting=20on=20Glamorous=20Toolkit=20(see=20issue=20#1433,=20?=
 =?UTF-8?q?=E2=80=9CImplementations=20of=20#asJson=20in=20Seaside=20and=20?=
 =?UTF-8?q?GToolkit=20conflict=E2=80=9D).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 scripts/preTestingPharo.st | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scripts/preTestingPharo.st b/scripts/preTestingPharo.st
index 0ea2d0728..048c1b624 100644
--- a/scripts/preTestingPharo.st
+++ b/scripts/preTestingPharo.st
@@ -1 +1,5 @@
-Deprecation activateTransformations: false.
\ No newline at end of file
+Deprecation activateTransformations: false.
+(Smalltalk hasClassNamed: 'GtImageSetup') ifTrue: [
+	{ Dictionary. OrderedDictionary. SequenceableCollection } do: [ :class |
+		(class includesSelector: #asJson) ifTrue: [
+			class removeSelector: #asJson ] ] ].