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. !
squeak-dev@lists.squeakfoundation.org