diff --git a/packages/TraceDebugger.package/TraceDebugger.class/instance/canProceed.st b/packages/TraceDebugger.package/TraceDebugger.class/instance/canProceed.st index e10adce7..919bfc7f 100644 --- a/packages/TraceDebugger.package/TraceDebugger.class/instance/canProceed.st +++ b/packages/TraceDebugger.package/TraceDebugger.class/instance/canProceed.st @@ -2,4 +2,4 @@ testing canProceed self isDisplayingHistory ifTrue: [^ false]. - ^ process isSuspended and: [process shouldResumeFromDebugger] \ No newline at end of file + ^ self processShouldResume \ No newline at end of file diff --git a/packages/TraceDebugger.package/TraceDebugger.class/instance/canStepForward.st b/packages/TraceDebugger.package/TraceDebugger.class/instance/canStepForward.st index 386b0292..0169d527 100644 --- a/packages/TraceDebugger.package/TraceDebugger.class/instance/canStepForward.st +++ b/packages/TraceDebugger.package/TraceDebugger.class/instance/canStepForward.st @@ -1,5 +1,9 @@ testing canStepForward - ^ (self selectedContext ifNil: [^ false]) - isDead not \ No newline at end of file + ^ self isDisplayingHistory + ifTrue: + [(self selectedContext ifNil: [^ false]) + isDead not] + ifFalse: + [self processIsReady] \ No newline at end of file diff --git a/packages/TraceDebugger.package/TraceDebugger.class/instance/processIsReady.st b/packages/TraceDebugger.package/TraceDebugger.class/instance/processIsReady.st new file mode 100644 index 00000000..aafe2f70 --- /dev/null +++ b/packages/TraceDebugger.package/TraceDebugger.class/instance/processIsReady.st @@ -0,0 +1,6 @@ +testing +processIsReady + + ^ process notNil + and: [process isSuspended "do not debug the active process"] + and: [process isTerminated not] \ No newline at end of file diff --git a/packages/TraceDebugger.package/TraceDebugger.class/instance/processShouldResume.st b/packages/TraceDebugger.package/TraceDebugger.class/instance/processShouldResume.st new file mode 100644 index 00000000..8775eb75 --- /dev/null +++ b/packages/TraceDebugger.package/TraceDebugger.class/instance/processShouldResume.st @@ -0,0 +1,4 @@ +testing +processShouldResume + + ^ process isSuspended and: [process shouldResumeFromDebugger] \ No newline at end of file diff --git a/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json b/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json index ee9d0cb0..f5a2ef14 100644 --- a/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json +++ b/packages/TraceDebugger.package/TraceDebugger.class/methodProperties.json @@ -95,9 +95,9 @@ "buildRowButtonFrom:with:" : "ct 11/20/2021 16:51", "buildWith:" : "ct 11/20/2021 22:43", "cacheSourcesDuring:" : "ct 1/25/2022 01:56", - "canProceed" : "ct 1/26/2022 18:55", + "canProceed" : "ct 1/2/2024 19:37", "canStepBackward" : "ct 1/12/2022 00:44", - "canStepForward" : "ct 12/30/2021 21:50", + "canStepForward" : "ct 1/2/2024 19:38", "changed:" : "ct 3/20/2022 00:25", "changedDependent:" : "ct 2/12/2022 23:35", "childContextsFor:" : "ct 3/23/2022 22:23", @@ -208,6 +208,8 @@ "proceed" : "ct 1/26/2022 19:54", "process" : "ct 11/20/2021 17:36", "process:context:" : "ct 1/26/2022 19:50", + "processIsReady" : "ct 1/2/2024 19:38", + "processShouldResume" : "ct 1/2/2024 19:37", "receiverInspector" : "ct 11/20/2021 16:11", "receiverInspectorClass" : "ct 2/12/2022 16:41", "releaseProcess" : "ct 1/26/2022 19:53",