diff --git a/src/BaselineOfGToolkitPrerequisites/BaselineOfGToolkitPrerequisites.class.st b/src/BaselineOfGToolkitPrerequisites/BaselineOfGToolkitPrerequisites.class.st index 574815381..11d96e9c2 100644 --- a/src/BaselineOfGToolkitPrerequisites/BaselineOfGToolkitPrerequisites.class.st +++ b/src/BaselineOfGToolkitPrerequisites/BaselineOfGToolkitPrerequisites.class.st @@ -2,7 +2,8 @@ Class { #name : #BaselineOfGToolkitPrerequisites, #superclass : #BaselineOf, #classVars : [ - 'PostLoaded' + 'PostLoaded', + 'PreLoaded' ], #category : #BaselineOfGToolkitPrerequisites } @@ -12,6 +13,7 @@ BaselineOfGToolkitPrerequisites >> baseline: spec [ spec for: #common do: [ + spec preLoadDoIt: #preLoadGToolkit:. spec postLoadDoIt: #postLoadGToolkit:. spec package: 'GToolkit-Pharo9-Deprecations'; @@ -31,3 +33,15 @@ BaselineOfGToolkitPrerequisites >> postLoadGToolkit: spec [ addClassVarNamed: 'StoppedSemaphore'; initialize. ] + +{ #category : #accessing } +BaselineOfGToolkitPrerequisites >> preLoadGToolkit: spec [ + (PreLoaded isNotNil and: [ PreLoaded ]) + ifTrue: [ ^ self ]. + PreLoaded := true. + + self + forPharo12: [] + forPharo11: [ Job addSlot: #announcer ] + forPharo10: [ Job addSlot: #announcer ] +]