File tree Expand file tree Collapse file tree 1 file changed +9
-1
lines changed Expand file tree Collapse file tree 1 file changed +9
-1
lines changed Original file line number Diff line number Diff line change @@ -27,13 +27,21 @@ PreferenceWizardMorph allInstances do: #abandon.
27
27
SystemBrowser default: BPBrowser .
28
28
29
29
30
- " Take a screenshot"
30
+ "
31
+ Take a screenshot
32
+ "
33
+
34
+ " First, ensure that the method is fully compiled and the examples are run"
35
+ (Smalltalk at: #BPSearchCollection ) recompile: #binarySearch: .
36
+
37
+ " Second, set up the stage and take the screenshot"
31
38
browserWindow := (ToolSet default browse: (Smalltalk at: #BPSearchCollection ) selector: #binarySearch: ) containingWindow.
32
39
browserWindow extent: 891 @806 .
33
40
(browserWindow submorphsSatisfying: [:m | (m isKindOf: ProportionalSplitterMorph ) and : [m width > m height]]) first repositionBy: 0 @(- 100 ).
34
41
browserWindow topLeft: 30 @30 .
35
42
browserWindow exportAsPNGNamed: ' screenshot-for-readme.png' .
36
43
44
+ " Wrap up the image and save it"
37
45
TranscriptStream redirectToStdOut: false .
38
46
Deprecation suppressed: false .
39
47
You can’t perform that action at this time.
0 commit comments