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