Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.943.mcz

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

Name: Collections-mt.943
Author: mt
Time: 16 April 2021, 5:15:16.314509 pm
UUID: 36386512-337e-2b48-acfd-e21eb731c656
Ancestors: Collections-ul.940

Complements Morphic-mt.1752

=============== Diff against Collections-ul.940 ===============

Item was added:
+ ----- Method: TextAction>>actionColor (in category 'accessing') -----
+ actionColor
+ 
+ 	^ Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]]!

Item was changed:
  ----- Method: TextAction>>emphasizeScanner: (in category 'accessing') -----
  emphasizeScanner: scanner
  	"Set the emphasis for text display"
+ 
+ 	scanner textColor: self actionColor.!
- 	Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]].
- 	scanner textColor: Purple.!

Item was added:
+ ----- Method: TextAttribute>>isOblivious (in category 'testing') -----
+ isOblivious
+ 	"Mark text attributes to be removed upon interaction such as copy-and-paste."
+ 	
+ 	^ false!

Item was added:
+ TextDoIt subclass: #TextInspectIt
+ 	instanceVariableNames: 'target'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Collections-Text'!

Item was added:
+ ----- Method: TextInspectIt class>>on: (in category 'instance creation') -----
+ on: anObject
+ 
+ 	^ self new target: anObject; yourself!

Item was added:
+ ----- Method: TextInspectIt>>actOnClickFor:in:at:editor: (in category 'mouse events') -----
+ actOnClickFor: anObject in: aParagraph at: clickPoint editor: editor
+ 	"Note: evalString gets evaluated IN THE CONTEXT OF anObject
+ 	 -- meaning that self and all instVars are accessible"
+ 	self target
+ 		ifNil: [(Compiler evaluate: evalString for: anObject) inspect]
+ 		ifNotNil: [:object | object inspect].
+ 	^ true !

Item was added:
+ ----- Method: TextInspectIt>>emphasizeScanner: (in category 'accessing') -----
+ emphasizeScanner: scanner
+ 	"Set the emphasis for text display"
+ 
+ 	scanner textColor: self actionColor.!

Item was added:
+ ----- Method: TextInspectIt>>isOblivious (in category 'testing') -----
+ isOblivious
+ 	"Avoid spreading object references by copy-and-paste."
+ 
+ 	^ true!

Item was added:
+ ----- Method: TextInspectIt>>target (in category 'accessing') -----
+ target
+ 
+ 	^ target!

Item was added:
+ ----- Method: TextInspectIt>>target: (in category 'accessing') -----
+ target: anObject
+ 
+ 	target := anObject.!