Starting with subtopics.

Datanalitica.package/DiscourseTopic.class/instance/addSubtopic..st

@@ -0,0 +1,3 @@
+accessing
+addSubtopic: subtopicString
+	self subtopics at: subtopicString put: Set new.

Datanalitica.package/DiscourseTopic.class/instance/language..st

@@ -0,0 +1,4 @@
+accessing
+language: isoLanguageCode
+	"isoLanguageCode follows the ISO 639-1 two letters convention"
+	language := isoLanguageCode

Datanalitica.package/DiscourseTopic.class/instance/subtopics..st

@@ -0,0 +1,3 @@
+accessing
+subtopics: subtopicsNamesArray
+	subtopicsNamesArray do: [:each | self addSubtopic: each ]

Datanalitica.package/DiscourseTopic.class/instance/subtopics.st

@@ -0,0 +1,3 @@
+accessing
+subtopics
+	^ subtopics ifNil: [ subtopics := Dictionary new ]

Datanalitica.package/DiscourseTopic.class/properties.json

@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Datanalitica-Datanalitica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"language",
+		"name",
+		"subtopics"
+	],
+	"name" : "DiscourseTopic",
+	"type" : "normal"
+}

Datanalitica.package/Tweet.class/instance/asCardElement.st

@@ -13,7 +13,7 @@ asCardElement
 				   margin: (BlInsets left: 20);
 				   addChild: (BrLabel new
 						    aptitude: BrGlamorousLabelAptitude;
-						    text: '@' , self user name , ' | ' , self created asString;
+						    text: '@' , self user userName , ' | ' , self created asString;
 						    beSmallSize);
 				   addChild: (BrLabel new
 						    aptitude: BrGlamorousLabelAptitude;

Datanalitica.package/TwitterUser.class/instance/printOn..st

@@ -2,4 +2,4 @@ accessing
 printOn: aStream
 	super printOn: aStream.
 	aStream
-		nextPutAll: '(', self userName,')'
+		nextPutAll: '(@', self userName,')'

Datanalitica.package/TwitterUsersGroup.class/instance/printOn..st

@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: '( ', self users size asString, ' users )'