Frank Shearar uploaded a new version of Kernel to project The Inbox:
http://source.squeak.org/inbox/Kernel-fbs.733.mcz==================== Summary ====================
Name: Kernel-fbs.733
Author: fbs
Time: 29 January 2013, 4:38:23.85 pm
UUID: 473959a5-97ca-425d-a84b-7440244c893b
Ancestors: Kernel-fbs.732
Move the Debugger's introspection of a context into ContextPart. Use the new SubclassResponsibilityError API.
=============== Diff against Kernel-fbs.732 ===============
Item was added:
+ ----- Method: ContextPart>>invocationMessage (in category 'accessing') -----
+ invocationMessage
+ "Upon sending messages like #doesNotUnderstand: or #subclassResponsibility - methods that will pop up a Debugger - return the Message that prompted the Debugger."
+ | sender selector args |
+ (self method selector == #doesNotUnderstand:) ifTrue: [^ self tempAt: 1].
+ sender := self sender.
+ selector := sender method selector.
+ args := Array new: selector numArgs.
+ 1 to: selector numArgs do: [ :i | args at: i put: (sender tempAt: i)].
+ ^ MessageSend receiver: self receiver selector: selector arguments: args.!
Item was added:
+ ----- Method: MessageSend>>asMessage (in category 'converting') -----
+ asMessage
+ ^ Message selector: selector arguments: arguments.!
Item was added:
+ ----- Method: MessageSend>>selectorCategory (in category 'accessing') -----
+ selectorCategory
+ "Return the category to which this message belongs (relative to the receiver). If no superclass categorises this message, use the default."
+ | organizers |
+ organizers := receiver class withAllSuperclasses collect: [:ea | ea organization].
+ organizers addFirst: receiver class organization.
+ ^ (organizers collect: [ :org | org categoryOfElement: selector])
+ detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]]
+ ifNone: [ClassOrganizer default]!
Item was changed:
----- Method: Object>>subclassResponsibility (in category 'error handling') -----
subclassResponsibility
"This message sets up a framework for the behavior of the class' subclasses.
Announce that the subclass should have implemented this message."
+ SubclassResponsibilityError
+ signal: ('My {1} subclass should have overridden {2}'
+ format: {self className. thisContext sender selector}).!
- | exception args senderCtxt |
- "We must assign to a local variable so that the Debugger can access the exception through thisParticularContext tempAt: 1. This also means that the exception local must be the first local declared."
- senderCtxt := thisContext sender.
- "Copy the temps out of senderCtxt"
- args := OrderedCollection new.
- 1 to: senderCtxt selector numArgs do:
- [:idx | args addLast: (senderCtxt tempAt: idx)].
- exception := SubclassResponsibilityError
- class: self class
- selector: senderCtxt selector
- arguments: args.
- exception signal.!
Locked
