[Pkg] The Trunk: ToolBuilder-Morphic-kb.77.mcz

[commits at source.squeak.org]

Balázs Kósi uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-kb.77.mcz

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

Name: ToolBuilder-Morphic-kb.77
Author: kb
Time: 18 April 2011, 5:15:59.457 pm
UUID: 8b6f119c-7e19-784a-84d4-33f3038e5638
Ancestors: ToolBuilder-Morphic-ul.76

Remove Morphic/MVC dependencies from ProgressInitiationException.

=============== Diff against ToolBuilder-Morphic-ul.76 ===============

Item was changed:
  ----- Method: MorphicUIManager>>displayProgress:at:from:to:during: (in category 'ui requests') -----
  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 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!
- 	^ProgressInitiationException 
- 		display: titleString
- 		at: aPoint 
- 		from: minVal 
- 		to: maxVal 
- 		during: workBlock!