Frank Shearar uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-fbs.523.mcz==================== Summary ====================
Name: Collections-fbs.523
Author: fbs
Time: 22 July 2013, 9:36:12.48 am
UUID: 32a4f963-6471-c249-bea1-7a38c0be95d4
Ancestors: Collections-fbs.522
KeyNotFound is critical to Dictionary, so belongs in the same package as Dictionary.
(I'm really not a fan of grouping things together because they happen to be Exceptions. Packaging things _functionally_ makes so much more sense.)
=============== Diff against Collections-fbs.522 ===============
Item was changed:
SystemOrganization addCategory: #'Collections-Abstract'!
SystemOrganization addCategory: #'Collections-Arrayed'!
SystemOrganization addCategory: #'Collections-Sequenceable'!
SystemOrganization addCategory: #'Collections-Stack'!
SystemOrganization addCategory: #'Collections-Streams'!
SystemOrganization addCategory: #'Collections-Strings'!
SystemOrganization addCategory: #'Collections-Support'!
SystemOrganization addCategory: #'Collections-Text'!
SystemOrganization addCategory: #'Collections-Unordered'!
SystemOrganization addCategory: #'Collections-Weak'!
+ SystemOrganization addCategory: #'Collections-Exceptions'!
Item was added:
+ Error subclass: #KeyNotFound
+ instanceVariableNames: 'key'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Collections-Exceptions'!
Item was added:
+ ----- Method: KeyNotFound class>>key: (in category 'instance creation') -----
+ key: anObject
+ ^self new key: anObject!
Item was added:
+ ----- Method: KeyNotFound>>description (in category 'accessing') -----
+ description
+ "Return a textual description of the exception."
+ ^(self messageText) ifNil:['Key not found: ', key]!
Item was added:
+ ----- Method: KeyNotFound>>key (in category 'accessing') -----
+ key
+ "The key which wasn't found"
+ ^key!
Item was added:
+ ----- Method: KeyNotFound>>key: (in category 'accessing') -----
+ key: anObject
+ "The key which wasn't found"
+ key := anObject!
Item was added:
+ ----- Method: KeyNotFound>>messageText (in category 'accessing') -----
+ messageText
+ "Return a textual description of the exception."
+ ^messageText ifNil:['Key not found: ', key]!