diff --git a/Socialmetrica.package/Nitter.class/class/columnKeys.st b/Socialmetrica.package/Nitter.class/class/columnKeys.st new file mode 100644 index 0000000..426b297 --- /dev/null +++ b/Socialmetrica.package/Nitter.class/class/columnKeys.st @@ -0,0 +1,3 @@ +accessing +columnKeys + ^ #('url' 'healthy' 'healthy_percentage_overall' 'rss' 'version') \ No newline at end of file diff --git a/Socialmetrica.package/Nitter.class/class/instanceRows.st b/Socialmetrica.package/Nitter.class/class/instanceRows.st index e8bda32..3f6c8e1 100644 --- a/Socialmetrica.package/Nitter.class/class/instanceRows.st +++ b/Socialmetrica.package/Nitter.class/class/instanceRows.st @@ -2,5 +2,6 @@ accessing instanceRows ^ (self instances at: 'hosts') collect: [:rawRow | | newRow | newRow := OrderedCollection new. - newRow add: (rawRow at: 'url') + self columnKeys do: [:key | newRow add: (rawRow at: key) ]. + newRow ]. \ No newline at end of file diff --git a/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st index ded03bd..e03e939 100644 --- a/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st +++ b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st @@ -1,10 +1,16 @@ accessing viewInstancesFor: aView - | columnedList | + | columnedList columnNames | self instances isEmptyOrNil ifTrue: [ ^ aView empty]. columnedList := aView columnedList title: 'Instances'; items: [ self instanceRows ]; - priority: 80. + priority: 1. + columnNames := #('Instance' 'Healthy' 'Uptime %' 'RSS' 'Nitter Version'). + columnNames doWithIndex: [:aName :index | + columnedList + column: aName + text: [:instanceRow | (instanceRow at: index) ifNil: [''] ] + ]. ^ columnedList \ No newline at end of file