10 lines
239 B
Smalltalk
10 lines
239 B
Smalltalk
|
accessing
|
||
|
|
viewInstancesFor: aView
|
||
|
|
<gtView>
|
||
|
|
| columnedList |
|
||
|
|
self instances isEmptyOrNil ifTrue: [ ^ aView empty].
|
||
|
|
columnedList := aView columnedList
|
||
|
|
title: 'Instances';
|
||
|
|
items: [ self instanceRows ];
|
||
|
|
priority: 80.
|
||
|
|
^ columnedList
|