equal
deleted
inserted
replaced
41 [author:] |
41 [author:] |
42 Claus Gittinger |
42 Claus Gittinger |
43 " |
43 " |
44 |
44 |
45 ! ! |
45 ! ! |
46 |
|
47 |
46 |
48 !OrderedCollectionInspectorView methodsFor:'menu'! |
47 !OrderedCollectionInspectorView methodsFor:'menu'! |
49 |
48 |
50 fieldMenu |
49 fieldMenu |
51 "return the menu for the field-list" |
50 "return the menu for the field-list" |
121 ^ m |
120 ^ m |
122 |
121 |
123 "Modified: / 06-08-2012 / 09:01:56 / cg" |
122 "Modified: / 06-08-2012 / 09:01:56 / cg" |
124 ! ! |
123 ! ! |
125 |
124 |
126 |
|
127 !OrderedCollectionInspectorView methodsFor:'private'! |
125 !OrderedCollectionInspectorView methodsFor:'private'! |
128 |
126 |
129 baseInspectedObjectClass |
127 baseInspectedObjectClass |
130 (inspectedObject class inheritsFrom:OrderedCollection) ifFalse:[ |
128 (inspectedObject class inheritsFrom:OrderedCollection) ifFalse:[ |
131 ^ Object |
129 ^ Object |
163 numIndexedFields |
161 numIndexedFields |
164 ^ inspectedObject size |
162 ^ inspectedObject size |
165 |
163 |
166 "Created: / 13-06-2012 / 10:13:16 / cg" |
164 "Created: / 13-06-2012 / 10:13:16 / cg" |
167 ! ! |
165 ! ! |
168 |
|
169 |
166 |
170 !OrderedCollectionInspectorView methodsFor:'user interaction'! |
167 !OrderedCollectionInspectorView methodsFor:'user interaction'! |
171 |
168 |
172 indexedValueAtIndex:idx |
169 indexedValueAtIndex:idx |
173 ^ inspectedObject at:idx ifAbsent:nil. |
170 ^ inspectedObject at:idx ifAbsent:nil. |
190 inspectedObject changed. |
187 inspectedObject changed. |
191 self reinspect. |
188 self reinspect. |
192 ] |
189 ] |
193 ! ! |
190 ! ! |
194 |
191 |
195 |
|
196 !OrderedCollectionInspectorView class methodsFor:'documentation'! |
192 !OrderedCollectionInspectorView class methodsFor:'documentation'! |
197 |
193 |
198 version |
194 version |
199 ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.48 2012-08-06 07:02:02 cg Exp $' |
195 ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.48 2012-08-06 07:02:02 cg Exp $' |
200 ! |
196 ! |
201 |
197 |
202 version_CVS |
198 version_CVS |
203 ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.48 2012-08-06 07:02:02 cg Exp $' |
199 ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.48 2012-08-06 07:02:02 cg Exp $' |
204 ! |
200 ! |
205 |
201 |
|
202 version_HG |
|
203 |
|
204 ^ '$Changeset: <not expanded> $' |
|
205 ! |
|
206 |
206 version_SVN |
207 version_SVN |
207 ^ '$Id: OrderedCollectionInspectorView.st 8048 2012-09-07 17:28:09Z vranyj1 $' |
208 ^ '$Id: OrderedCollectionInspectorView.st 8048 2012-09-07 17:28:09Z vranyj1 $' |
208 ! ! |
209 ! ! |
209 |
210 |