Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.526.mcz
==================== Summary ====================
Name: Collections-fbs.526 Author: fbs Time: 25 July 2013, 9:04:17.03 pm UUID: fe601e66-7f75-ac42-ae7e-d1362c4b9369 Ancestors: Collections-fbs.525
Move ProgressNotification to Collections. Even though it's not hugely Collection-y, it's used by low level packages, and it's usually used to signal processing a collection of things.
=============== Diff against Collections-fbs.525 ===============
Item was added: + Notification subclass: #ProgressNotification + instanceVariableNames: 'amount done extra' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Exceptions'! + + !ProgressNotification commentStamp: '<historical>' prior: 0! + Used to signal progress without requiring a specific receiver to notify. Caller/callee convention could be to simply count the number of signals caught or to pass more substantive information with #signal:.!
Item was added: + ----- Method: ProgressNotification class>>signal:extra: (in category 'exceptionInstantiator') ----- + signal: signalerText extra: extraParam + "TFEI - Signal the occurrence of an exceptional condition with a specified textual description." + + | ex | + ex := self new. + ex extraParam: extraParam. + ^ex signal: signalerText!
Item was added: + ----- Method: ProgressNotification>>amount (in category 'accessing') ----- + amount + ^amount!
Item was added: + ----- Method: ProgressNotification>>amount: (in category 'accessing') ----- + amount: aNumber + amount := aNumber!
Item was added: + ----- Method: ProgressNotification>>done (in category 'accessing') ----- + done + ^done!
Item was added: + ----- Method: ProgressNotification>>done: (in category 'accessing') ----- + done: aNumber + done := aNumber!
Item was added: + ----- Method: ProgressNotification>>extraParam (in category 'accessing') ----- + extraParam + ^extra!
Item was added: + ----- Method: ProgressNotification>>extraParam: (in category 'accessing') ----- + extraParam: anObject + extra := anObject!