[squeak-dev] The Inbox: Tools-fbs.441.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 29 16:40:13 UTC 2013


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.
  !



More information about the Squeak-dev mailing list