equal
deleted
inserted
replaced
93 " |
93 " |
94 |
94 |
95 "Modified: 28.6.1996 / 16:05:42 / cg" |
95 "Modified: 28.6.1996 / 16:05:42 / cg" |
96 ! |
96 ! |
97 |
97 |
|
98 indexList |
|
99 "return a list of indexes to show in the selectionList. |
|
100 Set hasMore to true, if a '...' entry should be added." |
|
101 |
|
102 ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString]. |
|
103 ! |
|
104 |
98 indexedFieldList |
105 indexedFieldList |
99 "return a list of indexed-variable names to show in the selectionList. |
106 "return a list of indexed-variable names to show in the selectionList. |
100 Set hasMore to true, if a '...' entry should be added." |
107 Set hasMore to true, if a '...' entry should be added." |
101 |
108 |
102 |aList n cls| |
109 keys := self indexList. |
103 |
|
104 keys := inspectedObject asSortedCollection:[:a :b | a displayString < b displayString]. |
|
105 ^ keys collect:[:k | k isSymbol ifTrue:[ |
110 ^ keys collect:[:k | k isSymbol ifTrue:[ |
106 k printString |
111 k printString |
107 ] ifFalse:[ |
112 ] ifFalse:[ |
108 k displayString |
113 k displayString |
109 ] |
114 ] |
110 ]. |
115 ]. |
111 |
|
112 |
|
113 ! |
116 ! |
114 |
117 |
115 release |
118 release |
116 "release inspected object" |
119 "release inspected object" |
117 |
120 |
169 ! ! |
172 ! ! |
170 |
173 |
171 !SetInspectorView class methodsFor:'documentation'! |
174 !SetInspectorView class methodsFor:'documentation'! |
172 |
175 |
173 version |
176 version |
174 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.17 2002-09-12 11:09:33 cg Exp $' |
177 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.18 2002-09-14 17:31:35 cg Exp $' |
175 ! ! |
178 ! ! |