8 lines
225 B
Smalltalk
8 lines
225 B
Smalltalk
accessing
|
|
replies
|
|
|
|
self messages ifEmpty: [ self getMessages ].
|
|
^ TweetsCollection new
|
|
messages: (self messages select: [ :each | (each metadata at: 'replie to') isNotEmpty
|
|
and: [ each authorId = self id ]]);
|
|
yourself |