pragmatic sandbox: fix override warnings

LinqLover · Jan 3, 2025 · bb2f167 · bb2f167
1 parent a9ef844
commit bb2f167
Showing 4 changed files with 12 additions and 15 deletions.
diff --git a/...imulationStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticClassesTo..st b/...imulationStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticClassesTo..st
@@ -9,7 +9,6 @@ addPragmaticClassesTo: pragmaticClasses
 				ifNil: [self warn: ('pragmatic class not found: {1}' format: {className})]
 				ifNotNil: [:class |
 					pragmaticClasses
-						at: class
-							ifPresent: [self warn: ('pragmatic class overridden: {1}' format: {class})];
-						at: class
-							put: pragma selector]].
+						at: class ifPresent: [:old |
+							self warn: ('pragmatic class overridden: {1}' format: {class})];
+						at: class put: pragma selector]].
diff --git a/...imulationStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticMethodsTo..st b/...imulationStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticMethodsTo..st
@@ -14,7 +14,6 @@ addPragmaticMethodsTo: pragmaticMethods
 						ifNil: [self warn: ('pragmatic method not found: {1}>>{2}' format: {class. selector})]
 						ifNotNil: [:method |
 							pragmaticMethods
-								at: method 
-									ifPresent: [self warn: ('pragmatic method overridden: {1}' format: {method})];
-								at: method
-									put: pragma selector]]].
+								at: method ifPresent: [:old |
+									self warn: ('pragmatic method overridden: {1}' format: {method})];
+								at: method put: pragma selector]]].
diff --git a/...tionStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticMultiMethodsTo..st b/...tionStudio-Sandbox.package/PragmaticSandbox.class/instance/addPragmaticMultiMethodsTo..st
@@ -15,7 +15,6 @@ addPragmaticMultiMethodsTo: pragmaticMethods
 							ifNil: [self warn: ('pragmatic method not found: {1}>>{2}' format: {class. selector})]
 							ifNotNil: [:method |
 								pragmaticMethods
-									at: method 
-										ifPresent: [self warn: ('pragmatic method overridden: {1}' format: {method})];
-									at: method
-										put: {pragma selector}]]]].
+									at: method ifPresent: [:old |
+										self warn: ('pragmatic method overridden: {1}' format: {method})];
+									at: method put: {pragma selector}]]]].
diff --git a/packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/methodProperties.json b/packages/SimulationStudio-Sandbox.package/PragmaticSandbox.class/methodProperties.json
@@ -6,9 +6,9 @@
 		"fromMemory:" : "ct 12/29/2024 06:15" },
 	"instance" : {
 		"addObject:" : "ct 12/29/2024 06:17",
-		"addPragmaticClassesTo:" : "ct 1/2/2025 23:29",
-		"addPragmaticMethodsTo:" : "ct 1/2/2025 23:30",
-		"addPragmaticMultiMethodsTo:" : "ct 1/2/2025 23:30",
+		"addPragmaticClassesTo:" : "ct 1/3/2025 01:36",
+		"addPragmaticMethodsTo:" : "ct 1/3/2025 01:36",
+		"addPragmaticMultiMethodsTo:" : "ct 1/3/2025 01:37",
 		"assertUnmodifiedObject:" : "ct 1/2/2025 04:50",
 		"basicEvaluate:" : "ct 12/29/2024 06:20",
 		"context:activateMethod:withArgs:receiver:do:" : "ct 1/1/2025 20:35",