Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.78.mcz

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

Name: ToolBuilder-Morphic-cmm.78
Author: cmm
Time: 27 May 2011, 2:39:40.808 pm
UUID: 08000000-1508-6410-1508-641014000000
Ancestors: ToolBuilder-Morphic-kb.77

Utilize fixed SystemProgressMorph which no longer ignores the user-requested placement position.

=============== Diff against ToolBuilder-Morphic-kb.77 ===============

Item was changed:
  ----- Method: MorphicUIManager>>displayProgress:at:from:to:during: (in category 'ui requests') -----
+ displayProgress: titleString at: aPoint from: minVal to: maxVal during: workBlock 
- displayProgress: titleString at: aPoint from: minVal to: maxVal during: workBlock
- 
  	"Display titleString as a caption over a progress bar while workBlock is evaluated."
  	| result progress |
+ 	progress := SystemProgressMorph
+ 		position: aPoint
+ 		label: titleString
+ 		min: minVal
+ 		max: maxVal.
+ 	[ [ result := workBlock value: progress ]
+ 		on: ProgressNotification
+ 		do:
+ 			[ : ex | ex extraParam isString ifTrue:
+ 				[ SystemProgressMorph uniqueInstance
+ 					labelAt: progress
+ 					put: ex extraParam ].
+ 			ex resume ] ] ensure: [ SystemProgressMorph close: progress ].
+ 	^ result!
- 	progress := SystemProgressMorph label: titleString min: minVal max: maxVal.
- 	[	
- 		[result := workBlock value: progress] on: ProgressNotification do:[:ex|
- 			ex extraParam isString ifTrue:[
- 				SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam.
- 			].
- 			ex resume.
- 		].
- 	] ensure: [SystemProgressMorph close: progress].
- 	^result!