Add screenshot for exampleShutDown

Author: LinqLover

packages/TraceDebuggerJobs.package/TDBScreenshotBuilder.class/instance/createExampleShutDown.st

@@ -0,0 +1,24 @@
+screenshots
+createExampleShutDown
+	"Expensive!"
+
+	self recorder writeTo: 'screenshots/exampleShutDown.png' building: [:helper |
+		| window debugger tree splitter |
+		helper worldColor: Color transparent.
+		[TraceDebugger exampleShutDown] valueSuppressingMessages: #('*shutDown/startUp*').
+		window := helper foregroundWindow.
+		window extent: 564 @ 1538.
+		debugger := window model.
+	
+		tree := helper morphByExternalName: #contextTree in: window.
+		tree selectedMorph children do: #expand.
+		tree adjustSubmorphPositions.
+	
+		debugger contextFilter
+			excludePackage: 'Collections';
+			excludedSelectors: #(at:ifAbsent: scaledIdentityHash send:toClassesNamedIn:with:).
+	
+		splitter := window allMorphs detect: [:m |
+			(m isKindOf: ProportionalSplitterMorph) and: [m splitsTopAndBottom] and: [m splitterAbove isNil]].
+		splitter splitterBelow repositionBy: 0 @ 150.
+		[window fullBounds. tree vIsScrollbarNeeded] whileTrue: [splitter repositionBy: 0 @ 1]]

packages/TraceDebuggerJobs.package/TDBScreenshotBuilder.class/methodProperties.json

@@ -5,6 +5,7 @@
 		"screenshotSelectors" : "ct 3/18/2022 21:29" },
 	"instance" : {
 		"createContextToolTip" : "ct 3/18/2022 18:34",
+		"createExampleShutDown" : "ct 3/18/2022 23:21",
 		"createFindContext" : "ct 3/18/2022 22:17",
 		"createInspectorScreenshots" : "ct 3/18/2022 17:57",
 		"createScreenshot" : "ct 3/18/2022 14:18",