[Pkg] The Trunk: ToolBuilder-Morphic-cmm.78.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 4 22:16:01 UTC 2011
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!
More information about the Packages
mailing list