Bert Freudenberg uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-bf.87.mcz

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

Name: MorphicExtras-bf.87
Author: bf
Time: 17 June 2010, 7:20:47.318 pm
UUID: e8825c43-de3a-41e9-adbd-61bb606bb62b
Ancestors: MorphicExtras-nice.86

- revert a refactoring that broke TextOnCurve

=============== Diff against MorphicExtras-nice.86 ===============

Item was changed:
  ----- Method: TextOnCurve>>displayOn:using:at: (in category 'display') -----
  displayOn: aCanvas using: displayScanner at: somePosition
  	"Send all visible lines to the displayScanner for display"
+ 	| warp lineRect lineCanvas backgroundColor lineForm leftInRun sourceQuad maxExtent |
+ 	"most of these temps are initialized lazily and need to be at the method level - do not move into the block below!!"
- 	| warp |
  	warp := nil.
  	self textSegmentsDo:
+ 		[:line :destRect :segStart :segAngle |
- 		[:line :destRect :segStart :segAngle | | lineRect lineCanvas backgroundColor lineForm leftInRun sourceQuad maxExtent |
  		false ifTrue:
  			["Show the dest rects for debugging..."
  			aCanvas frameRectangle: destRect width: 1 color: Color black].
  		(aCanvas isVisible: destRect) ifTrue:
  			[warp ifNil:
+ 				["Lazy initialization because may not have to display at all."
- 				["Lazy initialization because may hot have to display at all."
  				maxExtent := lines inject: lines first rectangle extent 
  					into: [:maxWid :lin | maxWid max: lin rectangle extent].
  				lineForm := Form extent: maxExtent depth: aCanvas depth.
  				displayScanner setDestForm: lineForm.
  				lineRect := lineForm boundingBox.
  				leftInRun := 0.
  				backgroundColor := (curve borderWidth > 10
  							ifTrue: [curve color]
  							ifFalse: [curve owner isHandMorph
  									ifTrue: [curve owner owner color]
  									ifFalse: [curve owner color]]) dominantColor.
  				warp := (aCanvas warpFrom: lineRect corners toRect: lineRect)
  						cellSize: 2;  "installs a colormap if smoothing > 1"
  						sourceForm: lineForm.
  				warp colorMap: (self warpMapForDepth: aCanvas depth
  									withTransparentFor: backgroundColor).
  				lineCanvas := lineForm getCanvas].
  			sourceQuad := destRect innerCorners collect:
  				[:p | self pointInLine: line forDestPoint: p
  						segStart: segStart segAngle: segAngle].
  			lineForm fill: lineForm boundingBox fillColor: backgroundColor.
  			self displaySelectionInLine: line on: lineCanvas.
  			leftInRun := displayScanner displayLine: line offset: 0 at 0 leftInRun: leftInRun.
  			warp sourceQuad: sourceQuad destRect: (destRect translateBy: aCanvas origin).
  			warp warpBits]].
  !