The Trunk: Morphic-nice.223.mcz

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

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

Name: Morphic-nice.223
Author: nice
Time: 8 November 2009, 11:56:54 am
UUID: 6598f01d-0db7-46b4-8d95-971fa10ba667
Ancestors: Morphic-dtl.222

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode input

=============== Diff against Morphic-dtl.222 ===============

Item was changed:
  ----- Method: TextMorphEditor>>zapSelectionWith: (in category 'menu messages') -----
  zapSelectionWith: aText
  "**overridden to inhibit old-style display"
  | start stop rText rInterval isInTypeRun |
  self deselect.
  start := self startIndex.
  stop := self stopIndex.
  (aText isEmpty and: [stop > start]) ifTrue:
  ["If deleting, then set emphasisHere from 1st character of the deletion"
  emphasisHere := (paragraph text attributesAt: start forStyle: paragraph textStyle)
  select: [:att | att mayBeExtended]].
  (start = stop and: [aText size = 0]) ifFalse:
  [
  "===Support for multilevel undo start ==="
  rText := (paragraph text copyFrom: start to: (stop - 1)).
  rInterval := start to: (stop - 1).
  isInTypeRun := self isInTypeRun.
  "===Support for multilevel undo end ==="
 
  paragraph replaceFrom: start to: stop - 1
  with: aText displaying: false.  "** was true in super"
+ self wasComposition ifTrue: [wasComposition := false. self setPoint: start + 1].
  self computeIntervalFrom: start to: start + aText size - 1.
  UndoInterval := otherInterval := self selectionInterval.
 
  "===Support for multilevel undo start ==="
  (Preferences multipleTextUndo and: [isInTypeRun not])ifTrue:
  [ self addEditCommand:
  (EditCommand
  textMorph: morph
  replacedText: rText
  replacedTextInterval: rInterval
  newText: aText
  newTextInterval: super selectionInterval)].
  "===Support for multilevel undo end ==="].
 
  self userHasEdited  " -- note text now dirty"!