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.
2727SystemBrowser default: BPBrowser .
2828
2929
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"
3138browserWindow := (ToolSet default browse: (Smalltalk at: #BPSearchCollection ) selector: #binarySearch: ) containingWindow.
3239browserWindow extent: 891 @806 .
3340(browserWindow submorphsSatisfying: [:m | (m isKindOf: ProportionalSplitterMorph ) and : [m width > m height]]) first repositionBy: 0 @(- 100 ).
3441browserWindow topLeft: 30 @30 .
3542browserWindow exportAsPNGNamed: ' screenshot-for-readme.png' .
3643
44+ " Wrap up the image and save it"
3745TranscriptStream redirectToStdOut: false .
3846Deprecation suppressed: false .
3947
You can’t perform that action at this time.
0 commit comments