The Trunk: Collections-mt.943.mcz

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.!