The Trunk: Tools-ar.260.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.260.mcz

==================== Summary ====================

Name: Tools-ar.260
Author: ar
Time: 19 August 2010, 8:40:14.22 pm
UUID: 40cf131a-25a2-c246-bcb0-4f0aec55d1a5
Ancestors: Tools-nice.259

Adds ContextInspector, an inspector that shows arguments and temp names just like the ContextVariableInspector in the debugger.

=============== Diff against Tools-nice.259 ===============

Item was added:
+ Inspector subclass: #ContextInspector
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tools-Inspector'!

Item was added:
+ ----- Method: ContextInspector>>selection (in category 'accessing') -----
+ selection
+ "The receiver has a list of variables of its inspected object.
+ One of these is selected. Answer the value of the selected variable."
+ | basicIndex |
+ selectionIndex = 0 ifTrue: [^ ''].
+ selectionIndex = 1 ifTrue: [^ object].
+ selectionIndex = 2 ifTrue: [^ object longPrintStringLimitedTo: 20000].
+ (selectionIndex - 2) <= object class instSize
+ ifTrue: [^ object instVarAt: selectionIndex - 2].
+ basicIndex := selectionIndex - 2 - object class instSize.
+ ^object debuggerMap namedTempAt: basicIndex in: object
+ !

Item was added:
+ ----- Method: MethodContext>>inspectorClass (in category '*Tools-Inspector') -----
+ inspectorClass
+ "Answer the class of the inspector to be used on the receiver.  Called by inspect;
+ use basicInspect to get a normal (less useful) type of inspector."
+
+ ^ ContextInspector!

Item was added:
+ ----- Method: ContextInspector>>fieldList (in category 'accessing') -----
+ fieldList
+ "Answer the base field list plus an abbreviated list of indices."
+
+ ^ self baseFieldList , (object tempNames collect:[:t| '[',t,']'])!