Socialmetrica/Socialmetrica.package/TwitterUsersGroup.class/instance/gtTwitterUsersGroupOn..st

13 lines
493 B
Smalltalk

accessing
gtTwitterUsersGroupOn: aView
<gtView>
^ aView columnedList
title: self title translated;
priority: 5;
items: [ self users ];
column: 'Imagen'
icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ]
width: 75;
column: 'User Name' text: [ :aTwitterUser | '@', aTwitterUser userName ];
column: 'Name' text: [ :aTwitterUser | aTwitterUser name ];
column: 'Mentions' text: [ :aTwitterUser | aTwitterUser tweets size asString ]