The Inbox: System-ct.1120.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: System-ct.1120.mcz

commits-2
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"!