[feenkcom/gtoolkit#4072] Use string keys in json dictionaries

feenkcom · Nov 15, 2024 · 29aff8b · 29aff8b
1 parent 9085856
commit 29aff8b
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/src/GToolkit-GemStone/GtGemStoneMethodSpecification.class.st b/src/GToolkit-GemStone/GtGemStoneMethodSpecification.class.st
@@ -139,16 +139,16 @@ GtGemStoneMethodSpecification >> initializeFromJSONDictionary: aDictionary [
 	super initializeFromJSONDictionary: aDictionary.
 
 	self
-		initializeForClassName: (aDictionary at: 'coderClassName')
-		iconName: (aDictionary at: 'coderClassIconName' ifAbsent: [ nil ])
-		isMeta: (aDictionary at: 'isMeta')
-		categoryName: (aDictionary at: 'categoryName')
-		selector: (aDictionary at: 'selector')
-		sourceString: (aDictionary at: 'sourceString')
-		protocolName: (aDictionary at: 'protocolName')
-		explicitProvider: ((aDictionary includesKey: 'explicitProviderBehaviourDetails')
+		initializeForClassName: (aDictionary at: #coderClassName)
+		iconName: (aDictionary at: #coderClassIconName ifAbsent: [ nil ])
+		isMeta: (aDictionary at: #isMeta)
+		categoryName: (aDictionary at: #categoryName)
+		selector: (aDictionary at: #selector)
+		sourceString: (aDictionary at: #sourceString)
+		protocolName: (aDictionary at: #protocolName)
+		explicitProvider: ((aDictionary includesKey: #explicitProviderBehaviourDetails)
 			ifTrue: [ GtGemStoneClassBasicDetails  fromJSONDictionary: (
-				aDictionary at: 'explicitProviderBehaviourDetails')]
+				aDictionary at: #explicitProviderBehaviourDetails)]
 			ifFalse: [ nil ])
 ]
 

diff --git a/src/GToolkit-GemStone/GtGemStoneMethodsSpecification.class.st b/src/GToolkit-GemStone/GtGemStoneMethodsSpecification.class.st
@@ -40,7 +40,7 @@ GtGemStoneMethodsSpecification >> initializeForGsMethods: aCollectionOfGsMethods
 GtGemStoneMethodsSpecification >> initializeFromJSONDictionary: aDictionary [
 	super initializeFromJSONDictionary: aDictionary.
 
-	methodCoderSpecifications := (aDictionary at: 'methodCoderSpecifications')
+	methodCoderSpecifications := (aDictionary at: #methodCoderSpecifications)
 		collect: [ :aCoderJsonData  |
 			self instantiateCoderSpecificationFromJsonData: aCoderJsonData ]
 ]