Moves the WorldExample stuff into an explorations package, as I still do not understand this stuff well enough.

codeZeilen · codeZeilen · commit 6ebc6502c106 · 2023-01-11T14:11:08.000+01:00
diff --git a/packages/Babylonian-Core.package/BPContinuousRunExample.class/properties.json b/packages/Babylonian-Core.package/BPContinuousRunExample.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"category" : "Babylonian-Core-Examples",
+	"category" : "Babylonian-Core-Explorations",
 	"classinstvars" : [
 		 ],
 	"classvars" : [
diff --git a/packages/Babylonian-Core.package/BPWorldExampleReference.class/properties.json b/packages/Babylonian-Core.package/BPWorldExampleReference.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"category" : "Babylonian-Core-Examples",
+	"category" : "Babylonian-Core-Explorations",
 	"classinstvars" : [
 		 ],
 	"classvars" : [
diff --git a/packages/Babylonian-Core.package/BPWorldExampleState.class/properties.json b/packages/Babylonian-Core.package/BPWorldExampleState.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"category" : "Babylonian-Core-Examples",
+	"category" : "Babylonian-Core-Explorations",
 	"classinstvars" : [
 		 ],
 	"classvars" : [
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/README.md b/packages/Babylonian-Core.package/BPWorldSampleExample.class/README.md
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/class/bpExamplePragmaPrefix.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/class/bpExamplePragmaPrefix.st
@@ -0,0 +1,4 @@
+constants
+bpExamplePragmaPrefix
+	
+	^ #worldSampleExample
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/asPragma.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/asPragma.st
@@ -0,0 +1,8 @@
+serialization
+asPragma
+	
+	^ '<worldSampleExampleNamed: ''{1}''{2}{3}{4}>' format: {
+		self exampleName.
+		self setUpScript ifNil: [''] ifNotNil: [:setUpScript | ' setUp: ' , setUpScript printString].
+		self tearDownScript ifNil: [''] ifNotNil: [:tearDownScript | ' tearDown: ' , tearDownScript printString].
+		' duration:' , self duration}
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/duration..st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/duration..st
@@ -0,0 +1,4 @@
+accessing
+duration: aNumber "in seconds"
+
+	duration := aNumber.
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/duration.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/duration.st
@@ -0,0 +1,4 @@
+accessing
+duration
+
+	^ duration
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/durationString.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/durationString.st
@@ -0,0 +1,4 @@
+accessing
+durationString
+
+	^ duration printString
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/initializeFromPragma..st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/initializeFromPragma..st
@@ -0,0 +1,8 @@
+initialize-release
+initializeFromPragma: aPragma
+	
+	"'exampleNamed:' 'script:' 'setUp:'? 'tearDown:'?"
+	super initializeFromPragma: aPragma.
+
+	aPragma bpAsDictionary 
+		at: #duration ifPresent: [:duration | self duration: duration asNumber].
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/morphClass.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/morphClass.st
@@ -0,0 +1,4 @@
+ui
+morphClass
+	
+	^ BPScriptExampleMorph
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/runOn..st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/runOn..st
@@ -0,0 +1,4 @@
+tracing
+runOn: aState
+	
+	
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/traceInBackground.st b/packages/Babylonian-Core.package/BPWorldSampleExample.class/instance/traceInBackground.st
@@ -0,0 +1,4 @@
+tracing
+traceInBackground
+
+	
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/methodProperties.json b/packages/Babylonian-Core.package/BPWorldSampleExample.class/methodProperties.json
@@ -0,0 +1,12 @@
+{
+	"class" : {
+		"bpExamplePragmaPrefix" : "pre 1/11/2023 09:46" },
+	"instance" : {
+		"asPragma" : "pre 1/11/2023 09:47",
+		"duration" : "pre 1/11/2023 09:49",
+		"duration:" : "pre 1/11/2023 09:49",
+		"durationString" : "pre 1/11/2023 09:48",
+		"initializeFromPragma:" : "pre 1/11/2023 09:47",
+		"morphClass" : "pre 9/30/2020 10:41",
+		"runOn:" : "pre 1/11/2023 09:48",
+		"traceInBackground" : "pre 1/11/2023 10:34" } }
diff --git a/packages/Babylonian-Core.package/BPWorldSampleExample.class/properties.json b/packages/Babylonian-Core.package/BPWorldSampleExample.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-Core-Examples",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"duration" ],
+	"name" : "BPWorldSampleExample",
+	"pools" : [
+		 ],
+	"super" : "BPSingleRunExample",
+	"type" : "normal" }
diff --git a/packages/Babylonian-Core.package/monticello.meta/categories.st b/packages/Babylonian-Core.package/monticello.meta/categories.st
@@ -1,3 +1,4 @@
 SystemOrganization addCategory: #'Babylonian-Core-Annotations'!
+SystemOrganization addCategory: #'Babylonian-Core-Explorations'!
 SystemOrganization addCategory: #'Babylonian-Core-Examples'!
 SystemOrganization addCategory: #'Babylonian-Core-Tracing'!

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`	`{`
`2`		`- "category" : "Babylonian-Core-Examples",`
	`2`	`+ "category" : "Babylonian-Core-Explorations",`
`3`	`3`	`"classinstvars" : [`
`4`	`4`	`],`
`5`	`5`	`"classvars" : [`