From 3bf54eca3386fe5ddef6cc18fbf4b53eb1934bef Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Fri, 12 Jul 2024 22:47:02 +0200 Subject: [PATCH 1/4] Support Pharo native Deprecation Implement for Pharo and add Deprecation. --- .../instance/deprecationExceptionSet.st | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ No newline at end of file From b0d0149aeeb94647162d62f24871c51ed029b838 Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Sat, 13 Jul 2024 11:30:45 +0200 Subject: [PATCH 2/4] Add test for Pharo deprecation --- .../instance/testDeprecationExceptionSet.st | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st new file mode 100644 index 00000000..33cfb193 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st @@ -0,0 +1,10 @@ +tests +testDeprecationExceptionSet + | value | + value := [ + "intentially send Pharo instead of Grease deprecation message" + self deprecated: 'test'. + 'failed' ] + on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet + do: [ :e | 'passed' ]. + self assert: value = 'passed' \ No newline at end of file From 9220d30d2dc0623c3cbda9013c0bda7a8471c33b Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Sun, 14 Jul 2024 11:16:30 +0200 Subject: [PATCH 3/4] Add Pharo 7+ support --- .../instance/deprecationExceptionSet.st | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ No newline at end of file From 6ca509f31b5d703ac5fb2429eb7dc7108db77fe9 Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Sun, 14 Jul 2024 11:20:57 +0200 Subject: [PATCH 4/4] Add Pharo 9 support --- .../instance/deprecationExceptionSet.st | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st new file mode 100644 index 00000000..e402d141 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st @@ -0,0 +1,6 @@ +exceptions +deprecationExceptionSet + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself \ No newline at end of file