Frank Shearar uploaded a new version of Exceptions to project The Inbox:
http://source.squeak.org/inbox/Exceptions-fbs.38.mcz

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

Name: Exceptions-fbs.38
Author: fbs
Time: 27 January 2013, 11:20:51.934 am
UUID: 5aa34dd7-e81f-440a-9786-c9d5344be008
Ancestors: Exceptions-cmm.37

#subclassResponsibility in-Debugger method creation #1 of 4: signal a SubclassResponsibilityError when you want to indicate that a subclass has failed to fulfil its semi-abstract superclass's contract.

=============== Diff against Exceptions-cmm.37 ===============

Item was added:
+ Error subclass: #SubclassResponsibilityError
+ 	instanceVariableNames: 'selector offendingClass calledArguments'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Exceptions-Kernel'!
+ 
+ !SubclassResponsibilityError commentStamp: 'fbs 1/26/2013 00:20' prior: 0!
+ I am signalled when a subclass fails to implement an "abstract method" and something sends an instance of this subclass the unimplemented message.!

Item was added:
+ ----- Method: SubclassResponsibilityError class>>class:selector:arguments: (in category 'instance creation') -----
+ class: aClass selector: aSelector arguments: someObjects
+ 	^ self basicNew initializeWithClass: aClass selector: aSelector arguments: someObjects.!

Item was added:
+ ----- Method: SubclassResponsibilityError>>calledArguments (in category 'accessing') -----
+ calledArguments
+ 	^ calledArguments.!

Item was added:
+ ----- Method: SubclassResponsibilityError>>initializeWithClass:selector:arguments: (in category 'initialize-release') -----
+ initializeWithClass: aClass selector: aSelector arguments: someObjects
+ 	offendingClass := aClass.
+ 	selector := aSelector.
+ 	calledArguments := someObjects.!

Item was added:
+ ----- Method: SubclassResponsibilityError>>offendingClass (in category 'accessing') -----
+ offendingClass
+ 	^ offendingClass.!

Item was added:
+ ----- Method: SubclassResponsibilityError>>selector (in category 'accessing') -----
+ selector
+ 	^ selector.!

Item was added:
+ ----- Method: SubclassResponsibilityError>>selectorCategory (in category 'accessing') -----
+ selectorCategory
+ 	| organizer organizers |
+ 	organizer := offendingClass organization.
+ 	organizers := offendingClass withAllSuperclasses collect: [:ea | ea organization].
+ 
+ 	^ (organizers collect: [ :org | org categoryOfElement: selector])
+ 			detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]]
+ 			ifNone: [ClassOrganizer default]!

Item was added:
+ ----- Method: SubclassResponsibilityError>>signal (in category 'signaling') -----
+ signal
+ 	self messageText: ('My {1} subclass should have overridden {2}'
+ 		format: {offendingClass name. selector}).
+ 	^ super signal.!