Reworks the tracing process suspension with Context>>#contextOn:do:.

Author: codeZeilen

packages/Babylonian-Core.package/BPExampleTraceInformation.class/instance/resumeProcess.st

@@ -1,5 +1,5 @@
 process control
 resumeProcess
 
-	self tracingProcessAndDescendants do: [:p |
+	self tracingProcessAndDescendantsActiveAtBack reversed do: [:p |
 		p isSuspended ifTrue: [p resume]]

packages/Babylonian-Core.package/BPExampleTraceInformation.class/instance/suspendProcess.st

@@ -1,5 +1,5 @@
 process control
 suspendProcess
 
-	(self tracingProcessAndDescendants copyWithout: Processor activeProcess) do: [:p |
+	(self tracingProcessAndDescendantsActiveAtBack) do: [:p |
 		(p isSuspended not and: [p isTerminated not]) ifTrue: [p suspend]]

packages/Babylonian-Core.package/BPExampleTraceInformation.class/instance/terminateTracingProcess.st

@@ -1,5 +1,5 @@
 process control
 terminateTracingProcess
 
-	self tracingProcessAndDescendants do: [:p |
+	self tracingProcessAndDescendantsActiveAtBack do: [:p |
 		p isTerminated ifFalse: [p terminate]]

packages/Babylonian-Core.package/BPExampleTraceInformation.class/instance/tracingProcessAndDescendantsActiveAtBack.st

@@ -0,0 +1,5 @@
+process control
+tracingProcessAndDescendantsActiveAtBack
+	
+	^ self tracingProcessAndDescendants 
+		sorted: [:p | p isActiveProcess ifTrue: [2] ifFalse: [1]] ascending

packages/Babylonian-Core.package/BPExampleTraceInformation.class/methodProperties.json

@@ -4,12 +4,13 @@
 	"instance" : {
 		"isProcessSuspended" : "pre 1/12/2023 09:37",
 		"probes" : "jb 5/19/2021 19:35",
-		"resumeProcess" : "pre 1/12/2023 10:38",
-		"suspendProcess" : "pre 1/12/2023 10:57",
-		"terminateTracingProcess" : "pre 1/12/2023 10:37",
+		"resumeProcess" : "pre 1/12/2023 13:28",
+		"suspendProcess" : "pre 1/12/2023 13:27",
+		"terminateTracingProcess" : "pre 1/12/2023 13:28",
 		"trace" : "pre 8/18/2020 08:45",
 		"trace:" : "jb 7/1/2021 23:21",
 		"tracingIsStillRunning" : "pre 1/12/2023 09:40",
 		"tracingProcess" : "pre 8/18/2020 08:45",
 		"tracingProcess:" : "jb 12/7/2020 18:12",
-		"tracingProcessAndDescendants" : "pre 1/12/2023 10:37" } }
+		"tracingProcessAndDescendants" : "pre 1/12/2023 10:37",
+		"tracingProcessAndDescendantsActiveAtBack" : "pre 1/12/2023 13:28" } }

packages/Babylonian-Core.package/BPTracer.class/methodProperties.json

@@ -18,5 +18,5 @@
 		"trace:through:forProbe:inContext:" : "pre 5/31/2021 10:42",
 		"traceAssignment:previousValues:forProbe:inContext:" : "pre 5/6/2021 18:23",
 		"traceBlock:forProbe:" : "jb 12/3/2020 23:22",
-		"traceError:" : "jb 12/7/2020 18:56",
+		"traceError:" : "pre 1/12/2023 10:35",
 		"traceExecutionResult:" : "jb 12/30/2021 21:15" } }

packages/Babylonian-Core.package/Process.extension/class/forContext.priority..st

@@ -9,7 +9,6 @@ forContext: aContext priority: anInteger
 	| newProcess activeProcess |
 	newProcess := self new.
 	newProcess priority: anInteger.
-	newProcess suspendedContext: aContext asContext.
 
 	"-------------- BP ContextS2 additions start --------------"
 	activeProcess := Processor activeProcess.
@@ -18,10 +17,20 @@ forContext: aContext priority: anInteger
 	activeProcess propagatesDynamicVariables ifTrue: [
 		activeProcess setDynamicVariables do: [:dynamicVariable |
 			newProcess environmentAt: dynamicVariable put: (activeProcess environmentAt: dynamicVariable)]].
-	(activeProcess environmentAt: BPActiveTracer ifAbsent: [nil]) ifNotNil: [
+	(activeProcess environmentAt: BPActiveTracer ifAbsent: [nil]) ifNotNil: [ | handlerContext |
 		"we are tracing so record process genealogy"
-		BPProcessGenealogy newProcess: newProcess descendsFrom: activeProcess].
+		BPProcessGenealogy newProcess: newProcess descendsFrom: activeProcess.
+		"we are tracing, install exception catching"
+		handlerContext := Context 
+			contextOn: Error 
+			do: [:exception | 
+				exception class = Halt ifFalse: [
+					BPActiveTracer value ifNotNil: [:tracer |
+						tracer traceError: exception.
+						tracer example suspendTracingProcess]].
+				exception signal].
+		aContext insertSender: handlerContext].
 
 	"-------------- BP ContextS2 additions end --------------"
-	
+	newProcess suspendedContext: aContext asContext.
 	^newProcess

packages/Babylonian-Core.package/Process.extension/methodProperties.json

@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"forContext:priority:" : "pre 1/12/2023 09:29" },
+		"forContext:priority:" : "pre 1/12/2023 13:30" },
 	"instance" : {
 		"dontPropagateCSLayers" : "pre 1/11/2023 15:44",
 		"dontPropagateDynamicVariables" : "pre 1/11/2023 15:52",

packages/Babylonian-UI.package/BPToolSet.class/class/handleError..st

@@ -1,7 +1,6 @@
 {
 	"class" : {
 		"debugProcess:context:label:contents:fullView:" : "pre 1/21/2021 18:48",
-		"handleError:" : "pre 1/12/2023 10:56",
 		"initialize" : "pre 1/21/2021 18:49",
 		"unload" : "pre 1/21/2021 18:49" },
 	"instance" : {