Tweets collection now inherits from OrderedCollection to improve reusability.
This commit is contained in:
parent
b92102a9d1
commit
99a03c0ad1
@ -3,5 +3,7 @@ quotes
|
||||
|
||||
self messages ifEmpty: [ self getMessages ].
|
||||
^ TweetsCollection new
|
||||
messages: (self messages messages select: [ :each | (each metadata at: 'quote') isNotEmpty ]);
|
||||
messages: (self messages messages
|
||||
select: [ :each |
|
||||
(each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]);
|
||||
yourself
|
@ -1,3 +1,5 @@
|
||||
accessing
|
||||
messages: aTweetsCollection
|
||||
^ messages := aTweetsCollection
|
||||
firstIndex := 1.
|
||||
lastIndex := aTweetsCollection size.
|
||||
^ array := aTweetsCollection
|
@ -1,3 +1,3 @@
|
||||
accessing
|
||||
messages
|
||||
^ messages ifNil: [ messages := OrderedCollection new ]
|
||||
^ array ifNil: [ array := OrderedCollection new ]
|
@ -1,13 +1,12 @@
|
||||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"super" : "OrderedCollection",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"query",
|
||||
"messages"
|
||||
"query"
|
||||
],
|
||||
"name" : "TweetsCollection",
|
||||
"type" : "normal"
|
||||
|
Loading…
Reference in New Issue
Block a user