Adds the proper ReferencingExample class. Therefore added an AbstractExample class that only contains the abstract behavior.

Author: codeZeilen

packages/Babylonian-Core.package/BPAbstractExample.class/README.md

@@ -0,0 +1,4 @@
+constants
+bpExamplePragmaPrefix
+	"Should be overridden by subclasses"
+	^ 'noExample'

packages/Babylonian-Core.package/BPAbstractExample.class/class/bpExamplePragmaPrefix.st

@@ -0,0 +1,6 @@
+constants
+bpExamplePragmaPrefixes
+	
+	^ self allSubclasses 
+		select: [:c | c isAbstract not]
+		thenCollect: [:c | c bpExamplePragmaPrefix]

packages/Babylonian-Core.package/BPAbstractExample.class/class/bpExamplePragmaPrefixes.st

@@ -0,0 +1,16 @@
+constants
+exampleColors
+	
+	"These are color brewer colors: https://colorbrewer2.org"
+	^ #('a6cee3'
+		 '1f78b4'
+		 'b2df8a'
+		 '33a02c'
+		 'fb9a99'
+		 'e31a1c'
+		 'fdbf6f'
+		 'ff7f00'
+		 'cab2d6'
+		 '6a3d9a')
+			collect: [:colorHexString |
+				Color fromString: colorHexString]

packages/Babylonian-Core.package/BPAbstractExample.class/class/exampleColors.st

@@ -0,0 +1,6 @@
+instance creation
+fromPragma: aPragma
+	
+	^ (self allSubclasses detect: [:c | c isAbstract not and: [aPragma keyword beginsWith: c bpExamplePragmaPrefix]] ifNone: [self error]) new
+		initializeFromPragma: aPragma;
+		yourself

packages/Babylonian-Core.package/BPAbstractExample.class/class/fromPragma..st

@@ -0,0 +1,7 @@
+instance creation
+newFor: compiledMethod
+	
+	^ self new
+		method: compiledMethod;
+		initializeFromMethod: compiledMethod;
+		yourself

packages/Babylonian-Core.package/BPAbstractExample.class/class/newFor..st

@@ -2,4 +2,4 @@ serialization
 asPragma
 
 	<bpRelevantMethod>
-	^ self subclassResponsibility
+	self subclassResponsibility.