Frank Shearar uploaded a new version of Exceptions to project The Inbox: http://source.squeak.org/inbox/Exceptions-fbs.39.mcz
==================== Summary ====================
Name: Exceptions-fbs.39 Author: fbs Time: 29 January 2013, 4:36:54.466 pm UUID: f631e91d-53b4-4179-9745-074e0ec09928 Ancestors: Exceptions-fbs.38
Strip state-copying. Leave that to the Debugger's introspective capabilities.
=============== Diff against Exceptions-fbs.38 ===============
Item was removed: - ----- 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 removed: - ----- Method: SubclassResponsibilityError>>calledArguments (in category 'accessing') ----- - calledArguments - ^ calledArguments.!
Item was removed: - ----- Method: SubclassResponsibilityError>>initializeWithClass:selector:arguments: (in category 'initialize-release') ----- - initializeWithClass: aClass selector: aSelector arguments: someObjects - offendingClass := aClass. - selector := aSelector. - calledArguments := someObjects.!
Item was removed: - ----- Method: SubclassResponsibilityError>>offendingClass (in category 'accessing') ----- - offendingClass - ^ offendingClass.!
Item was removed: - ----- Method: SubclassResponsibilityError>>selector (in category 'accessing') ----- - selector - ^ selector.!
Item was removed: - ----- 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 removed: - ----- Method: SubclassResponsibilityError>>signal (in category 'signaling') ----- - signal - self messageText: ('My {1} subclass should have overridden {2}' - format: {offendingClass name. selector}). - ^ super signal.!
squeak-dev@lists.squeakfoundation.org