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