Simple change to show objects on the stack in debugger's temp vars pane
(named _stack1, _stack2 ... etc). Not perfect but works ok, useful to
inspect e.g. result of a message send
-------------- next part --------------
'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 26 September 2004 at 11:47:50 pm'!
"Change Set:		DebuggerShowStackObjects
Date:			26 September 2004
Author:			Radoslav Hodnicak

Simple change to show objects on the stack in debugger's temp vars pane (named _stack1, _stack2 ... etc). Not perfect but works ok, useful to inspect e.g. result of a message send"!


!ContextVariablesInspector methodsFor: 'accessing' stamp: 'rh 9/26/2004 01:00'!
fieldList 
	"Refer to the comment in Inspector|fieldList."

	| list |
	object == nil ifTrue: [^Array with: 'thisContext'].
	list := (OrderedCollection with: 'thisContext' with: 'all temp vars') , object tempNames.
	1 to: object stackPtr - object method numTemps do: [:i| list add: '_stack', i printString].
	^list! !

!ContextVariablesInspector methodsFor: 'updating' stamp: 'rh 9/26/2004 01:11'!
update

	self changed: #fieldList.
	selectionIndex > self fieldList size ifTrue: [selectionIndex := self fieldList size].
	super update.! !