[Pkg] The Trunk: Collections-fbs.523.mcz

[commits at source.squeak.org]

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]!