Adds running of examples to the screenshot script

Author: codeZeilen

scripts/prepare_image.st

@@ -33,6 +33,8 @@ Take a screenshot
 
 "First, ensure that the method is fully compiled and the examples are run"
 (Smalltalk at: #BPSearchCollection) recompile: #binarySearch:.
+((Smalltalk at: #BPSearchCollection)>>#binarySearch:) bpExamples do: [:e | e isActive: true].
+BPActiveExamples value runActiveExamples.
 
 "Second, set up the stage and take the screenshot"
 browserWindow := (ToolSet default browse: (Smalltalk at: #BPSearchCollection) selector: #binarySearch:) containingWindow.