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,7 +1,7 @@
|
|||||||
accessing
|
accessing
|
||||||
store
|
store
|
||||||
ReStore isConnected ifFalse: [ self class storeDB]. "Starting the ReStore singleton."
|
ReStore isConnected ifFalse: [ self class storeDB ]. "Starting the ReStore singleton."
|
||||||
self messages do: [:each | ReStore evaluateAsTransaction: [
|
self messages do: [ :each | ReStore evaluateAsTransaction: [
|
||||||
each store.
|
each store.
|
||||||
each user isInDB ifFalse: [ each user store ]
|
each user isInDB ifFalse: [ each user store ]
|
||||||
]
|
]
|
||||||
|
@ -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