[squeak-dev] The Inbox: Tools-laza.218.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Mar 22 16:16:29 UTC 2010
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!
More information about the Squeak-dev
mailing list
|