10 lines
298 B
Smalltalk
10 lines
298 B
Smalltalk
|
accessing
|
||
|
|
usersGroupMentioning: userName
|
||
|
|
| response |
|
||
|
|
response := self userQueryFor: userName selecting: 'mentions'.
|
||
|
|
^ TwitterUsersGroup new
|
||
|
|
users: response messagesAuthors;
|
||
|
|
title: 'Users mentioning @', userName;
|
||
|
|
origin: response queryURL;
|
||
|
|
date: DateAndTime now;
|
||
|
|
storage: self storage.
|