Christoph Thiede uploaded a new version of Graphics to project The Inbox:
http://source.squeak.org/inbox/Graphics-ct.441.mcz==================== Summary ====================
Name: Graphics-ct.441
Author: ct
Time: 30 September 2020, 9:23:41.380807 pm
UUID: 7b1f1c65-2eca-4442-a0da-88e6975377f2
Ancestors: Graphics-pre.439
Proposal: Isolate alpha channel when printing a named color. This allows it to reuse the color name even for translucent color.
Example:
(Color red alpha: 0.4) printString
Output (new):
'Color red alpha: 0.4'
Output (old):
'(TranslucentColor r: 1 g: 0.0 b: 0.0 alpha: 0.4)'
=============== Diff against Graphics-pre.439 ===============
Item was changed:
----- Method: Color>>printOn: (in category 'printing') -----
printOn: aStream
+
| name |
+ name := self asNontranslucentColor name.
+ name ifNil: [^ self storeOn: aStream].
+
+ aStream
+ nextPutAll: 'Color ';
+ nextPutAll: name.
+ self isTranslucent ifTrue: [
+ aStream
+ nextPutAll: ' alpha: ';
+ print: self alpha maxDecimalPlaces: 3].!
- (name := self name) ifNotNil:
- [^ aStream
- nextPutAll: 'Color ';
- nextPutAll: name].
- self storeOn: aStream.
- !
Locked
