Frank Shearar uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.441.mcz==================== Summary ====================
Name: Tools-fbs.441
Author: fbs
Time: 29 January 2013, 4:39:34.734 pm
UUID: c09b1f0b-cfec-4583-9d5b-e6c400b25057
Ancestors: Tools-fbs.440
Use the simplified introspection tools.
=============== Diff against Tools-fbs.440 ===============
Item was changed:
----- Method: Debugger>>createOverridingMethod (in category 'private') -----
createOverridingMethod
"Should only be called when this Debugger was created in response to a
SubclassResponsibility exception. Create a stub for the method that was
missing and proceed into it."
+ | msgSend |
+ msgSend := self contextStackTop invocationMessage.
+ self implement: msgSend asMessage inClass: msgSend receiver class inCategory: msgSend selectorCategory.!
- | err msg |
- err := self contextStackTop tempAt: 1.
- msg := Message selector: err selector arguments: err calledArguments.
- self implement: msg inClass: err offendingClass inCategory: err selectorCategory.!
Item was changed:
----- Method: Debugger>>implement:inClass:inCategory: (in category 'context stack menu') -----
implement: aMessage inClass: aClass inCategory: aSymbol
aClass
compile: aMessage createStubMethod
classified: aSymbol.
self setContentsToForceRefetch.
self selectedContext privRefreshWith: (aClass lookupSelector: aMessage selector).
+ aMessage numArgs > 0 ifTrue:
+ [aMessage arguments withIndexDo:
- self selectedContext method numArgs > 0 ifTrue:
- [(self selectedContext tempAt: 1) arguments withIndexDo:
[:arg :index|
self selectedContext tempAt: index put: arg]].
self resetContext: self selectedContext.
self debug.
!