Object>>gtInspectorVariableValuePairs
| indexableDisplayLimit bottom topLimit bottomLimit bindings |
indexableDisplayLimit := 21.
top := 1.
bottom := self basicSize.
topLimit := bottom min: indexableDisplayLimit.
bottomLimit := (bottom - indexableDisplayLimit) max: indexableDisplayLimit.
bindings := OrderedCollection new.
"Return top and bottom of indexable elements"
top to: topLimit do:
[ :index | bindings add: (index -> (self basicAt: index)) ].
bottomLimit + 1 to: bottom do:
[ :index | bindings add: (index -> (self basicAt: index)) ]. ��
"Return named variables"
bindings
addAll: ((self class allSlots��
collect: [ :slot | slot name -> (slot read: self) ]) sort asOrderedCollection).
^ bindings