Christoph Thiede uploaded a new version of Graphics to project The Inbox:
http://source.squeak.org/inbox/Graphics-ct.442.mcz

==================== Summary ====================

Name: Graphics-ct.442
Author: ct
Time: 7 October 2020, 4:51:00.599313 pm
UUID: 5e479960-0629-754b-9899-a0e6cc38e979
Ancestors: Graphics-ct.441

Makes color printing more consistent. #printString does not add brackets, #storeString does.

=============== Diff against Graphics-ct.441 ===============

Item was added:
+ ----- Method: Color>>basicStoreOn: (in category 'printing') -----
+ basicStoreOn: aStream
+ 
+ 	aStream
+ 		nextPutAll: self species name;
+ 		nextPutAll: ' r: '; print: self red maxDecimalPlaces: 3;
+ 		nextPutAll: ' g: '; print: self green maxDecimalPlaces: 3;
+ 		nextPutAll: ' b: '; print: self blue maxDecimalPlaces: 3.!

Item was changed:
  ----- Method: Color>>printOn: (in category 'printing') -----
  printOn: aStream
  
  	| name |
  	name := self asNontranslucentColor name.
+ 	name ifNil: [^ self basicStoreOn: aStream].
- 	name ifNil: [^ self storeOn: aStream].
  	
  	aStream
  		nextPutAll: 'Color ';
  		nextPutAll: name.
  	self isTranslucent ifTrue: [
  		aStream
  			nextPutAll: ' alpha: ';
  			print: self alpha maxDecimalPlaces: 3].!

Item was changed:
  ----- Method: Color>>storeOn: (in category 'printing') -----
  storeOn: aStream
  
+ 	aStream nextPut: $(.
+ 	self basicStoreOn: aStream.
+ 	aStream nextPut: $).!
- 	aStream
- 		nextPutAll: '(' , self species name;
- 		nextPutAll: ' r: '; print: self red maxDecimalPlaces: 3;
- 		nextPutAll: ' g: '; print: self green maxDecimalPlaces: 3;
- 		nextPutAll: ' b: '; print: self blue maxDecimalPlaces: 3;
- 		nextPutAll: ')'.
- !