The Trunk: Collections-nice.552.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Collections-nice.552.mcz

commits-2
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 !