Add a slot named announcer to Job in Pharo 10 &11 [#3736]

feenkcom · May 15, 2024 · ecdeed0 · ecdeed0
1 parent d8a6de1
commit ecdeed0
Showing 1 changed file with 15 additions and 1 deletion.
diff --git 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 [
 
 	<baseline>
 	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 ]
+]