detached/2 #2
@ -3,5 +3,7 @@ quotes
|
|||||||
|
|
||||||
self messages ifEmpty: [ self getMessages ].
|
self messages ifEmpty: [ self getMessages ].
|
||||||
^ TweetsCollection new
|
^ 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
|
yourself
|
@ -1,3 +1,5 @@
|
|||||||
accessing
|
accessing
|
||||||
messages: aTweetsCollection
|
messages: aTweetsCollection
|
||||||
^ messages := aTweetsCollection
|
firstIndex := 1.
|
||||||
|
lastIndex := aTweetsCollection size.
|
||||||
|
^ array := aTweetsCollection
|
@ -1,3 +1,3 @@
|
|||||||
accessing
|
accessing
|
||||||
messages
|
messages
|
||||||
^ messages ifNil: [ messages := OrderedCollection new ]
|
^ array ifNil: [ array := OrderedCollection new ]
|
@ -1,13 +1,12 @@
|
|||||||
{
|
{
|
||||||
"commentStamp" : "",
|
"commentStamp" : "",
|
||||||
"super" : "Object",
|
"super" : "OrderedCollection",
|
||||||
"category" : "Socialmetrica",
|
"category" : "Socialmetrica",
|
||||||
"classinstvars" : [ ],
|
"classinstvars" : [ ],
|
||||||
"pools" : [ ],
|
"pools" : [ ],
|
||||||
"classvars" : [ ],
|
"classvars" : [ ],
|
||||||
"instvars" : [
|
"instvars" : [
|
||||||
"query",
|
"query"
|
||||||
"messages"
|
|
||||||
],
|
],
|
||||||
"name" : "TweetsCollection",
|
"name" : "TweetsCollection",
|
||||||
"type" : "normal"
|
"type" : "normal"
|
||||||
|
Loading…
Reference in New Issue
Block a user