Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.81.mcz==================== Summary ====================
Name: MorphicExtras-nice.81
Author: nice
Time: 22 March 2010, 7:29:25.698 pm
UUID: c08cf49a-e944-ff43-815b-07467fab3d82
Ancestors: MorphicExtras-cmm.80
Avoid testing alignment ==
=============== Diff against MorphicExtras-cmm.80 ===============
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.
^ false!