Initial methods for tweets histogram.

Socialmetrica.package/Tweet.class/instance/belongsToSegment..st

@@ -0,0 +1,8 @@
+accessing
+belongsToSegment: segmentBodersCollection
+
+	segmentBodersCollection allButLast keysAndValuesDo: [ :i :elem | 
+		(elem < self created and: [ self created <= (segmentBodersCollection at: i + 1) ]) 
+			ifTrue: [ ^ i ] 
+	].
+	^ false

Socialmetrica.package/Tweet.class/instance/created.st

@@ -1,3 +1,3 @@
 accessing
 created
-	^ created
+	^ created ifNotNil: [ ^ ZTimestamp fromString: created ]

Socialmetrica.package/TweetsCollection.class/instance/messages..st

@@ -1,3 +1,3 @@
 accessing
 messages: aTweetsCollection
-	^ tweets := aTweetsCollection
+	^ messages := aTweetsCollection

Socialmetrica.package/TweetsCollection.class/instance/messages.st

@@ -1,3 +1,3 @@
 accessing
 messages
-	^ tweets ifNil: [ tweets := OrderedCollection new]
+	^ messages ifNil: [ messages := OrderedCollection new ]

Socialmetrica.package/TweetsCollection.class/instance/newest.st

@@ -1,7 +1,7 @@
 accessing
 newest
 	self messages ifNil: [ ^ nil ].
-	self messages ifNilEmpty: [ ^ nil ].
+	self messages ifEmpty: [ ^ nil ].
 	self pinned created > self messages second created  
 		ifTrue: [ ^ self pinned ]
 		ifFalse: [ ^ self messages second  ]

Socialmetrica.package/TweetsCollection.class/instance/pinned.st

@@ -0,0 +1,8 @@
+accessing
+pinned
+	| first second |
+	first := self messages first.
+	(first metadata at: 'pinned') = 1
+		ifFalse: [ ^ first ].
+	second := self messages second.
+	^ first created

Socialmetrica.package/TweetsCollection.class/properties.json

@@ -6,8 +6,8 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"tweets",
-		"query"
+		"query",
+		"messages"
 	],
 	"name" : "TweetsCollection",
 	"type" : "normal"