equal
deleted
inserted
replaced
105 ! |
105 ! |
106 |
106 |
107 indexList |
107 indexList |
108 "return a list of indexes to show in the selectionList. |
108 "return a list of indexes to show in the selectionList. |
109 Set hasMore to true, if a '...' entry should be added." |
109 Set hasMore to true, if a '...' entry should be added." |
|
110 |
|
111 inspectedObject size > nShown ifTrue:[ |
|
112 |coll| |
|
113 |
|
114 coll := (SortedCollection new:nShown) sortBlock:[:a :b | a displayString < b displayString]. |
|
115 inspectedObject do:[:el | |
|
116 coll add:el. |
|
117 coll size >= nShown ifTrue:[ |
|
118 hasMore := true. |
|
119 ^ coll |
|
120 ]. |
|
121 ]. |
|
122 ]. |
110 |
123 |
111 ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString]. |
124 ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString]. |
112 ! |
125 ! |
113 |
126 |
114 indexedFieldList |
127 indexedFieldList |
189 ! ! |
202 ! ! |
190 |
203 |
191 !SetInspectorView class methodsFor:'documentation'! |
204 !SetInspectorView class methodsFor:'documentation'! |
192 |
205 |
193 version |
206 version |
194 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.24 2006-10-09 10:48:55 cg Exp $' |
207 ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.25 2009-02-02 16:51:35 cg Exp $' |
195 ! ! |
208 ! ! |