From 877d5b8fdeef5ddcb6f4eccf06c46df0f8e8da4d Mon Sep 17 00:00:00 2001 From: Christoph Thiede Date: Tue, 2 Jan 2024 22:05:09 +0100 Subject: [PATCH] fix #exampleWorldCyclesFor: for trunk Complements trunk updates to Process>>#terminate. --- .../TraceDebugger.class/class/exampleWorldCyclesFor..st | 2 +- .../TraceDebugger.class/methodProperties.json | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/TraceDebugger.package/TraceDebugger.class/class/exampleWorldCyclesFor..st b/packages/TraceDebugger.package/TraceDebugger.class/class/exampleWorldCyclesFor..st index 713503c8..350b3ce0 100644 --- a/packages/TraceDebugger.package/TraceDebugger.class/class/exampleWorldCyclesFor..st +++ b/packages/TraceDebugger.package/TraceDebugger.class/class/exampleWorldCyclesFor..st @@ -14,7 +14,7 @@ exampleWorldCyclesFor: aDuration recording := false. button target: [| priorLabel world | - recording ifTrue: [^ Processor terminateActive]. + recording ifTrue: [^ Processor activeProcess in: [:process | [process terminate] fork]]. recording := true. priorLabel := button label. button label: 'recording... (click to stop)'. diff --git a/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json b/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json index f5a2ef14..135c7b0f 100644 --- a/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json +++ b/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json @@ -20,7 +20,7 @@ "exampleShutDown" : "ct 4/29/2022 18:25", "exampleSimulation" : "ct 2/9/2022 01:59", "exampleTdbHalt" : "ct 3/17/2022 00:46", - "exampleWorldCyclesFor:" : "ct 5/25/2022 22:29", + "exampleWorldCyclesFor:" : "ct 1/2/2024 22:02", "exampleZeroDivision" : "ct 3/13/2022 20:09", "extraDebuggerButtons" : "ct 3/17/2022 16:38", "extraDebuggerButtons:" : "ct 3/17/2022 16:38",