new util: BlockClosure>>#traceAndDebugOnce

Author: LinqLover

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

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

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" } }