equal
deleted
inserted
replaced
128 "return a list of indexed-variable names to show in the selectionList. |
128 "return a list of indexed-variable names to show in the selectionList. |
129 Set hasMore to true, if a '...' entry should be added." |
129 Set hasMore to true, if a '...' entry should be added." |
130 |
130 |
131 |n cls| |
131 |n cls| |
132 |
132 |
133 cls := inspectedObject class. |
|
134 |
|
135 cls isVariable ifFalse:[^ #() ]. |
|
136 |
|
137 n := inspectedObject size. |
133 n := inspectedObject size. |
138 (n > nShown) ifTrue:[ |
134 (n > nShown) ifTrue:[ |
139 n := nShown. |
135 n := nShown. |
140 hasMore := true. |
136 hasMore := true. |
141 ]. |
137 ]. |
171 ! ! |
167 ! ! |
172 |
168 |
173 !OrderedCollectionInspectorView class methodsFor:'documentation'! |
169 !OrderedCollectionInspectorView class methodsFor:'documentation'! |
174 |
170 |
175 version |
171 version |
176 ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.27 1999-07-16 17:25:41 cg Exp $' |
172 ^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.28 1999-07-19 09:39:13 cg Exp $' |
177 ! ! |
173 ! ! |