Fixes: #7706 Now shared pools work (what a shame I could let it go li…

…ke that).
pharo-project · Nov 11, 2020 · eff675d · eff675d
1 parent de1f37b
commit eff675d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 13 deletions.
diff --git a/src/FluidClassBuilder/FluidClassBuilder.class.st b/src/FluidClassBuilder/FluidClassBuilder.class.st
@@ -90,7 +90,8 @@ FluidClassBuilder >> fillShiftClassBuilder [
 	slotsToBuild ifNotNil: [:s | s isEmpty ifFalse: [ shiftClassBuilder slots: slotsToBuild ]].
 	traitComposition ifNotNil: [ :t | t isEmpty ifFalse: [shiftClassBuilder traitComposition: traitComposition ]].
 	sharedVariables ifNotNil: [ :s | s isEmpty ifFalse: [shiftClassBuilder sharedVariables: sharedVariables]].
-	poolDictionaries ifNotNil: [ :p | p isEmpty ifFalse: [shiftClassBuilder sharedPools: poolDictionaries  ]].
+
+	sharedPools ifNotNil: [ :p | p isEmpty ifFalse: [shiftClassBuilder sharedPoolsCollectionOfSymbols: sharedPools  ]].
 
 	"I could initialize all of them to #() instead of nil but we should check also the parser"
 
@@ -124,18 +125,6 @@ FluidClassBuilder >> packageToBuild [
 	^ packageName
 ]
 
-{ #category : #accessing }
-FluidClassBuilder >> poolDictionaries: aString [
-
-	poolDictionaries := aString
-]
-
-{ #category : #accessing }
-FluidClassBuilder >> poolDictionariesToBuild [
-
-	^ poolDictionaries
-]
-
 { #category : #accessing }
 FluidClassBuilder >> sharedPools: aString [
 

diff --git a/src/FluidClassBuilder/ShiftClassBuilder.extension.st b/src/FluidClassBuilder/ShiftClassBuilder.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #ShiftClassBuilder }
+
+{ #category : #'*FluidClassBuilder' }
+ShiftClassBuilder >> sharedPoolsCollectionOfSymbols: aCol [
+	self layoutDefinition sharedPools: aCol
+]