[squeak-dev] The Inbox: System-ct.1120.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Oct 26 20:22:52 UTC 2019
A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1120.mcz
==================== Summary ====================
Name: System-ct.1120
Author: ct
Time: 26 October 2019, 10:22:46.213469 pm
UUID: 7ed0a01b-5518-e24f-9ead-65e1789c94d4
Ancestors: System-ct.1117
Revise System-ct.1117 (concerning CommonRequestStrings): Fix wrong dependency and improve code formatting
=============== Diff against System-ct.1117 ===============
Item was changed:
----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') -----
initializeCommonRequestStrings
"Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu."
CommonRequestStrings := StringHolder new contents: (
+ String streamContents: [:stream | self commonRequestBlocks
+ do: [:block | block decompile statements
+ do: [:statement | stream
+ nextPutAll: (statement shortPrintString
+ copyWithRegex: '\s+'
+ matchesReplacedWith: String space);
+ nextPut: $.]
+ separatedBy: [stream cr]]
+ separatedBy: [stream cr; nextPut: $-; cr]])
- String streamContents: [:stream |
- self commonRequestBlocks
- do: [:block |
- block decompile statements
- do: [:statement |
- statement veryShortPrintOn: stream.
- stream nextPut: $.]
- separatedBy: [stream cr]]
- separatedBy: [stream cr; nextPut: $-; cr]])
"Utilities initializeCommonRequestStrings"!
More information about the Squeak-dev
mailing list
|