Frank Shearar uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.443.mcz==================== Summary ====================
Name: Tools-fbs.443
Author: fbs
Time: 30 January 2013, 6:34:37.998 pm
UUID: 87e2130b-9bfd-49a7-a2a4-665d41f7e639
Ancestors: Tools-fbs.442
Kernel-fbs.735 gives us a more uniform API. Use it.
=============== Diff against Tools-fbs.442 ===============
Item was changed:
----- Method: Debugger>>createMethod (in category 'private') -----
createMethod
"Should only be called when this Debugger was created in response to a
MessageNotUnderstood exception. Create a stub for the method that was
missing and proceed into it."
| msg chosenClass |
msg := self contextStackTop exceptionMessage.
chosenClass := self
askForSuperclassOf: self contextStackTop receiver class
toImplement: msg selector
ifCancel: [^self].
+ self implement: msg inClass: chosenClass.!
- self implement: msg message inClass: chosenClass.
- !
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."
+ | msg |
+ msg := self contextStackTop exceptionMessage.
+ self implement: msg inClass: self contextStackTop receiver class inCategory: self contextStackTop selectorCategory.!
- | msgSend |
- msgSend := self contextStackTop exceptionMessage.
- self implement: msgSend asMessage inClass: msgSend receiver class inCategory: msgSend 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:
[:arg :index|
self selectedContext tempAt: index put: arg]].
self resetContext: self selectedContext.
self debug.
!