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!