Patrick Rein uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-pre.956.mcz==================== Summary ====================
Name: System-pre.956
Author: pre
Time: 28 June 2017, 11:03:30.410481 am
UUID: 7afdd78a-da8d-9c43-a291-f04048ca49c6
Ancestors: System-eem.955
Improves on the description of the garbage collect utility call.
=============== Diff against System-eem.955 ===============
Item was changed:
----- Method: Utilities class>>garbageCollectAndReport (in category 'miscellaneous') -----
garbageCollectAndReport
"Do a garbage collection, and report results to the user."
| reportString |
reportString := String streamContents:
[:aStream |
+ aStream
+ nextPutAll: 'The following amounts of memory are still available:' translated;
+ cr.
aStream nextPutAll: Smalltalk bytesLeftString.
Smalltalk at: #Command ifPresent:
[:cmdClass | | cc |
(cc := cmdClass instanceCount) > 0 ifTrue:
+ [aStream
+ cr;
+ nextPutAll: '(note: there are ';
+ print: cc;
+ nextPutAll: ' undo record(s) present in your';
+ cr;
+ nextPutAll: 'system; purging them may free up more space.)']]].
- [aStream cr; nextPutAll:
- ('(note: there are ', cc printString,
- ' undo record(s) present in your
- system; purging them may free up more space.)')]]].
self inform: reportString
!