Andreas Raab uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ar.44.mcz

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

Name: MorphicExtras-ar.44
Author: ar
Time: 30 August 2009, 5:18:50 am
UUID: 77556604-c907-714e-8d84-aacd322ed0ec
Ancestors: MorphicExtras-eem.43

FreeTypePlus integration. Fold extensions and overrides in CanvasCharacterScanner.

=============== Diff against MorphicExtras-eem.43 ===============

Item was changed:
  ----- Method: CanvasCharacterScanner>>tab (in category 'stop conditions') -----
  tab
  
+ 	destX _ (alignment == Justified and: [self leadingTab not])
- 	destX := (alignment == Justified and: [self leadingTab not])
  		ifTrue:		"imbedded tabs in justified text are weird"
  			[destX + (textStyle tabWidth - (line justifiedTabDeltaFor: spaceCount)) max: destX]
  		ifFalse: 
  			[textStyle nextTabXFrom: destX
  				leftMargin: leftMargin
  				rightMargin: rightMargin].
+ 	lastIndex _ lastIndex + 1.
+ 	pendingKernX := 0.
- 
- 	lastIndex := lastIndex + 1.
  	^ false!

Item was changed:
  ----- Method: CanvasCharacterScanner>>cr (in category 'stop conditions') -----
  cr
  	"When a carriage return is encountered, simply increment the pointer 
  	into the paragraph."
  
+ 	lastIndex_ lastIndex + 1.
+ 	pendingKernX := 0.
- 	lastIndex:= lastIndex + 1.
  	^false!

Item was changed:
  ----- Method: CanvasCharacterScanner>>paddedSpace (in category 'stop conditions') -----
  paddedSpace
  	"Each space is a stop condition when the alignment is right justified. 
  	Padding must be added to the base width of the space according to 
  	which space in the line this space is and according to the amount of 
  	space that remained at the end of the line when it was composed."
  
+ 	destX _ destX + spaceWidth + (line justifiedPadFor: spaceCount font: font).
+ 	lastIndex _ lastIndex + 1.
+ 	pendingKernX := 0.
- 	destX := destX + spaceWidth + (line justifiedPadFor: spaceCount).
- 
- 	lastIndex := lastIndex + 1.
  	^ false!