[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