9 lines
252 B
Smalltalk
9 lines
252 B
Smalltalk
accessing
|
|
quotes
|
|
|
|
self messages ifEmpty: [ self getMessages ].
|
|
^ TweetsCollection new
|
|
messages: (self messages messages
|
|
select: [ :each |
|
|
(each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]);
|
|
yourself |