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!
packages@lists.squeakfoundation.org