The Trunk: Morphic-nice.693.mcz

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.693.mcz

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

Name: Morphic-nice.693
Author: nice
Time: 29 September 2013, 4:31:07.575 pm
UUID: 7c0b3c16-a967-457e-8fcf-0bdcec39d18a
Ancestors: Morphic-tpr.692

Start using the CharacterScanner hierarchy instead of the Multi one.

=============== Diff against Morphic-tpr.692 ===============

Item was changed:
  ----- Method: GrafPort>>displayScannerFor:foreground:background:ignoreColorChanges: (in category 'accessing') -----
  displayScannerFor: para foreground: foreColor background: backColor ignoreColorChanges: shadowMode
-
- ((para isMemberOf: NewParagraph) or: [para text string isByteString]) ifTrue: [
- ^ (MultiDisplayScanner new text: para text textStyle: para textStyle
- foreground: foreColor background: backColor fillBlt: self
- ignoreColorChanges: shadowMode)
- setPort: self clone
- ].
  ^ (DisplayScanner new text: para text textStyle: para textStyle
  foreground: foreColor background: backColor fillBlt: self
  ignoreColorChanges: shadowMode)
  setPort: self clone
  !

Item was changed:
  ----- Method: NewParagraph>>characterBlockAtPoint: (in category 'selection') -----
  characterBlockAtPoint: aPoint
  "Answer a CharacterBlock for the character in the text at aPoint."
  | line |
  line := lines at: (self lineIndexForPoint: aPoint).
+ ^(CharacterBlockScanner new text: text textStyle: textStyle)
- ^ ((text string isWideString) ifTrue: [
- MultiCharacterBlockScanner new text: text textStyle: textStyle
- ] ifFalse: [CharacterBlockScanner new text: text textStyle: textStyle])
  characterBlockAtPoint: aPoint index: nil
  in: line!

Item was changed:
  ----- Method: NewParagraph>>characterBlockForIndex: (in category 'selection') -----
  characterBlockForIndex: index
  "Answer a CharacterBlock for the character in text at index."
  | line |
  line := lines at: (self lineIndexOfCharacterIndex: index).
+ ^ (CharacterBlockScanner new text: text textStyle: textStyle)
- ^ ((text string isWideString) ifTrue: [
- MultiCharacterBlockScanner new text: text textStyle: textStyle
- ] ifFalse: [
- CharacterBlockScanner new text: text textStyle: textStyle
- ])
  characterBlockAtPoint: nil index: ((index max: line first) min: text size+1)
  in: line!