diff --git a/Datanalitica.package/DiscourseTopic.class/instance/addKeyword.to..st b/Datanalitica.package/DiscourseTopic.class/instance/addKeyword.to..st
new file mode 100644
index 0000000..26d5e49
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/addKeyword.to..st
@@ -0,0 +1,5 @@
+accessing
+addKeyword: keyword to: subtopic
+	self subtopics 
+		at: subtopic put: keyword;
+		yourself.
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/language.st b/Datanalitica.package/DiscourseTopic.class/instance/language.st
new file mode 100644
index 0000000..6a19765
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/language.st
@@ -0,0 +1,3 @@
+accessing
+language
+	^ language
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/name..st b/Datanalitica.package/DiscourseTopic.class/instance/name..st
new file mode 100644
index 0000000..e8cfe90
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/name..st
@@ -0,0 +1,3 @@
+accessing
+name: aString
+	name := aString
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/name.st b/Datanalitica.package/DiscourseTopic.class/instance/name.st
new file mode 100644
index 0000000..22077c2
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/name.st
@@ -0,0 +1,3 @@
+accessing
+name
+	^ name
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/printOn..st b/Datanalitica.package/DiscourseTopic.class/instance/printOn..st
new file mode 100644
index 0000000..6792800
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/printOn..st
@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: '( ',self name, ' | ', self language, ' )'
\ No newline at end of file
diff --git a/Datanalitica.package/Tweet.class/instance/asCardElement.st b/Datanalitica.package/Tweet.class/instance/asCardElement.st
index 8f403f5..455510c 100644
--- a/Datanalitica.package/Tweet.class/instance/asCardElement.st
+++ b/Datanalitica.package/Tweet.class/instance/asCardElement.st
@@ -4,18 +4,19 @@ asCardElement
 	^ BrHorizontalPane new
 		  hFitContent;
 		  vFitContent;
-		  padding: (BlInsets all: 20);
+		  padding: (BlInsets all: 15);
 		  margin: (BlInsets all: 10);
 		  addChild:
 			  (self user profileImage asElement asScalableElement size: 64 @ 64);
 		  addChild: (BrVerticalPane new
-				   fitContent;
+				   exact: 250;
 				   margin: (BlInsets left: 20);
 				   addChild: (BrLabel new
 						    aptitude: BrGlamorousLabelAptitude;
 						    text: '@' , self user userName , ' | ' , self created asString;
 						    beSmallSize);
-				   addChild: (BrLabel new
-						    aptitude: BrGlamorousLabelAptitude;
+				   addChild: (BrEditor new
+						    aptitude: BrGlamorousRegularEditorAptitude new;
+							beReadOnlyWithSelection;
 						    text: self text));
 		  when: BlClickEvent do: [ :e | e target phlow spawnObject: self ]
\ No newline at end of file
diff --git a/Datanalitica.package/TweetsCollection.class/instance/gtTweetsFor..st b/Datanalitica.package/TweetsCollection.class/instance/gtTweetsFor..st
index ea6ee64..aa65e84 100644
--- a/Datanalitica.package/TweetsCollection.class/instance/gtTweetsFor..st
+++ b/Datanalitica.package/TweetsCollection.class/instance/gtTweetsFor..st
@@ -1,4 +1,4 @@
-accessing
+ui
 gtTweetsFor: aView
 	<gtView>
 	^ aView explicit
@@ -8,7 +8,7 @@ gtTweetsFor: aView
 			container := BlElement new
 				layout: BlFlowLayout new;
 				constraintsDo: [ :c | 
-					c vertical fitContent.
+					c vertical matchParent.
 					c horizontal matchParent ];
 				padding: (BlInsets all: 10).
 			self tweets do: [ :each |
@@ -19,8 +19,8 @@ gtTweetsFor: aView
 
 					margin: (BlInsets all: 20);
 					constraintsDo: [ :c | 
-						c vertical exact: 100. 
-						c horizontal exact: 1000 ];
+						c vertical exact: 200. 
+						c horizontal matchParent ];
 					elementBuilder: [ each asCardElement margin: (BlInsets all: 20) ].
 				container addChild: imageContainer].
 			container asScrollableElement ]
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st b/Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st
index a893262..d338871 100644
--- a/Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st
+++ b/Datanalitica.package/TwitterUser.class/instance/gtViewProfileDetailsOn..st
@@ -19,6 +19,6 @@ gtViewProfileDetailsOn: aView
 				margin: (BlInsets all: 20);
 				constraintsDo: [ :c | 
 						c vertical exact: 150. 
-						c horizontal exact: 1000 ];
+						c horizontal matchParent ];
 				elementBuilder: [ self asCardElement margin: (BlInsets all: 20) ].
 			container addChild: imageContainer].
\ No newline at end of file