Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.552.mcz==================== Summary ====================
Name: Collections-nice.552
Author: nice
Time: 16 December 2013, 3:54:57.309 pm
UUID: 18bb4a8d-6d47-46b3-ad6f-7514b1e5da7a
Ancestors: Collections-ul.551
Use non logging Compiler protocol rather than providing a logged: false argument.
=============== Diff against Collections-ul.551 ===============
Item was changed:
----- Method: TextDoIt>>actOnClickFor: (in category 'as yet unclassified') -----
actOnClickFor: anObject
"Note: evalString gets evaluated IN THE CONTEXT OF anObject
-- meaning that self and all instVars are accessible"
+ Compiler evaluate: evalString for: anObject.
- Compiler evaluate: evalString for: anObject logged: false.
^ true !
Item was changed:
----- Method: TextPrintIt>>actOnClickFor:in:at:editor: (in category 'as yet unclassified') -----
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"
| result range index |
+ result := Compiler evaluate: evalString for: anObject.
- result := Compiler evaluate: evalString for: anObject logged: false.
result := ' ', result printString,' '.
"figure out where the attribute ends in aParagraph"
index := (aParagraph characterBlockAtPoint: clickPoint) stringIndex.
range := aParagraph text rangeOf: self startingAt: index.
editor selectFrom: range last+1 to: range last.
editor zapSelectionWith: result.
editor selectFrom: range last to: range last + result size.
^ true !