16 lines
470 B
Smalltalk
16 lines
470 B
Smalltalk
accessing
|
|
viewInstancesFor: aView
|
|
<gtView>
|
|
| columnedList columnNames |
|
|
self instances isEmptyOrNil ifTrue: [ ^ aView empty].
|
|
columnedList := aView columnedList
|
|
title: 'Instances';
|
|
items: [ self instanceRows ];
|
|
priority: 1.
|
|
columnNames := #('Instance' 'Healthy' 'Uptime %' 'RSS' 'Nitter Version').
|
|
columnNames doWithIndex: [:aName :index |
|
|
columnedList
|
|
column: aName
|
|
text: [:instanceRow | (instanceRow at: index) ifNil: [''] ]
|
|
].
|
|
^ columnedList |