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

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

Name: Collections-cmm.443
Author: cmm
Time: 15 June 2011, 3:14:51.751 pm
UUID: 824d8b83-2a8f-024d-9ae1-5e9932165479
Ancestors: Collections-nice.442

Moved String>>displayProgressAt:from:to:during: to ToolBuilder-Kernel.

=============== Diff against Collections-nice.442 ===============

Item was removed:
- ----- Method: String>>displayProgressAt:from:to:during: (in category 'displaying') -----
- displayProgressAt: aPoint from: minVal to: maxVal during: workBlock 
- 	"Display this string as a caption over a progress bar while workBlock is evaluated.
- 
- EXAMPLE (Select next 6 lines and Do It)
- 'Now here''s some Real Progress'
- 	displayProgressAt: Sensor cursorPoint
- 	from: 0 to: 10
- 	during: [:bar |
- 	1 to: 10 do: [:x | bar value: x.
- 			(Delay forMilliseconds: 500) wait]].
- 
- HOW IT WORKS (Try this in any other language :-)
- Since your code (the last 2 lines in the above example) is in a block,
- this method gets control to display its heading before, and clean up 
- the screen after, its execution.
- The key, though, is that the block is supplied with an argument,
- named 'bar' in the example, which will update the bar image every 
- it is sent the message value: x, where x is in the from:to: range.
- "
- 	^ProgressInitiationException 
- 		display: self
- 		at: aPoint 
- 		from: minVal 
- 		to: maxVal 
- 		during: workBlock!