new util: BlockClosure>>#traceAndDebugOnce

hpi-swa-lab · Dec 28, 2023 · 540f7e3 · 540f7e3 · github-actions · Dec 28, 2023
1 parent 4bee159
commit 540f7e3
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 2 deletions.
diff --git a/packages/TraceDebugger.package/BlockClosure.extension/instance/debugTrace.st b/packages/TraceDebugger.package/BlockClosure.extension/instance/debugTrace.st
@@ -1,4 +1,5 @@
 *TraceDebugger-UI-debugging
 debugTrace
+	"Open a trace debugger on the receiver that is ready for evaluating it step by step."
 
 	^ TraceDebugger openForBlock: self
diff --git a/packages/TraceDebugger.package/BlockClosure.extension/instance/traceAndDebugOnce.st b/packages/TraceDebugger.package/BlockClosure.extension/instance/traceAndDebugOnce.st
@@ -0,0 +1,9 @@
+*TraceDebugger-UI-debugging
+traceAndDebugOnce
+	"Evaluate the receiver and answer the result. Trace the evaluation and display the result in a trace debugger unless we already done it once, similarly to #haltOnce."
+
+	| result |
+	self haltOnceEnabled ifFalse: [^ self value].
+	self clearHaltOnce.
+	[result := self value] traceAndDebug.
+	^ result
diff --git a/packages/TraceDebugger.package/BlockClosure.extension/methodProperties.json b/packages/TraceDebugger.package/BlockClosure.extension/methodProperties.json
@@ -2,5 +2,6 @@
 	"class" : {
 		 },
 	"instance" : {
-		"debugTrace" : "ct 12/31/2021 00:54",
-		"traceAndDebug" : "ct 1/24/2022 21:24" } }
+		"debugTrace" : "ct 12/28/2023 23:54",
+		"traceAndDebug" : "ct 1/24/2022 21:24",
+		"traceAndDebugOnce" : "ct 12/28/2023 23:56" } }