Alexander Lazarević uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-laza.218.mcz

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

Name: Tools-laza.218
Author: laza
Time: 22 March 2010, 5:16:02.016 pm
UUID: aa54427c-5fc5-4f5c-b283-deb2a7c85d5d
Ancestors: Tools-laza.217

Even if this does not find a majority and so is doomed for the dumpster:
List instance vars alphabetically in an inspector.

=============== Diff against Tools-laza.216 ===============

Item was added:
+ ----- Method: Inspector>>instVarValueAt: (in category 'accessing') -----
+ instVarValueAt: anIndex
+ 	^ object instVarAt: (self instVarMap at: anIndex) value!

Item was changed:
+ ----- Method: BasicInspector>>inspect: (in category 'initialize-release') -----
- ----- Method: BasicInspector>>inspect: (in category 'as yet unclassified') -----
  inspect: anObject 
  	"Initialize the receiver so that it is inspecting anObject. There is no 
  	current selection."
  
- 	self initialize.
  	object := anObject.
+ 	self initialize.
  	selectionIndex := 0.
  	contents := ''!

Item was changed:
  ----- Method: Inspector>>selection (in category 'selecting') -----
  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: [^ self instVarValueAt: selectionIndex - 2].
- 		ifTrue: [^ object instVarAt: selectionIndex - 2].
  	basicIndex := selectionIndex - 2 - object class instSize.
  	(object basicSize <= (self i1 + self i2)  or: [basicIndex <= self i1])
  		ifTrue: [^ object basicAt: basicIndex]
  		ifFalse: [^ object basicAt: object basicSize - (self i1 + self i2) + basicIndex]!

Item was added:
+ ----- Method: Inspector>>sortedInstVarMap (in category 'accessing') -----
+ sortedInstVarMap
+ 	^ self originalInstVarMap asSortedCollection!

Item was added:
+ ----- Method: BasicInspector>>instVarMap (in category 'accessing') -----
+ instVarMap
+ 	^ self originalInstVarMap!

Item was changed:
  ----- Method: Inspector>>baseFieldList (in category 'accessing') -----
  baseFieldList
  	"Answer an Array consisting of 'self'
  	and the instance variable names of the inspected object."
  
  	^ (Array with: 'self' with: 'all inst vars')
+ 			, self instVarNames !
- 			, object class allInstVarNames!

Item was added:
+ ----- Method: Inspector>>originalInstVarMap (in category 'accessing') -----
+ originalInstVarMap
+ 	^ object class allInstVarNames withIndexCollect: [:each :idx | each -> idx]!

Item was added:
+ ----- Method: Inspector>>instVarNames (in category 'accessing') -----
+ instVarNames
+ 	^ self instVarMap collect: [:each | each key]!

Item was added:
+ ----- Method: Inspector>>defaultInstVarMap (in category 'accessing') -----
+ defaultInstVarMap
+ 	^ self sortedInstVarMap!

Item was added:
+ ----- Method: Inspector>>instVarMap (in category 'accessing') -----
+ instVarMap
+ 	^ self sortedInstVarMap!