From 4403c822b2807f762bb7bb3a1d53193257499d23 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 22 Aug 2021 10:30:03 -0500
Subject: [PATCH] Minor UI/UX improvements in Tweet and TwitterUser

---
 .../Tweet.class/instance/asCardElement.st     | 31 ++++++++++++-------
 .../instance/asCardElement.st                 |  2 +-
 2 files changed, 20 insertions(+), 13 deletions(-)

diff --git a/Datanalitica.package/Tweet.class/instance/asCardElement.st b/Datanalitica.package/Tweet.class/instance/asCardElement.st
index c259164..47eab68 100644
--- a/Datanalitica.package/Tweet.class/instance/asCardElement.st
+++ b/Datanalitica.package/Tweet.class/instance/asCardElement.st
@@ -1,14 +1,21 @@
 accessing
 asCardElement
-	^ BrHorizontalPane new 
-		hFitContent;
-		vFitContent;
-		padding: (BlInsets all: 20);
-		margin: (BlInsets all: 10);		
-		addChild: (self user profileImage asElement asScalableElement size: 64@64);
-		addChild: (BrVerticalPane new
-			fitContent;
-			margin: (BlInsets left: 20);
-			addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self  created);
-			addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self text));
-		when: BlClickEvent do: [:e | e target phlow spawnObject: self]
\ No newline at end of file
+
+	^ BrHorizontalPane new
+		  hFitContent;
+		  vFitContent;
+		  padding: (BlInsets all: 20);
+		  margin: (BlInsets all: 10);
+		  addChild:
+			  (self user profileImage asElement asScalableElement size: 64 @ 64);
+		  addChild: (BrVerticalPane new
+				   fitContent;
+				   margin: (BlInsets left: 20);
+				   addChild: (BrLabel new
+						    aptitude: BrGlamorousLabelAptitude;
+						    text: '@' , self user name , ' | ' , self created asString;
+						    beSmallSize);
+				   addChild: (BrLabel new
+						    aptitude: BrGlamorousLabelAptitude;
+						    text: self text));
+		  when: BlClickEvent do: [ :e | e target phlow spawnObject: self ]
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
index 05de51a..020fa82 100644
--- a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
+++ b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
@@ -19,4 +19,4 @@ asCardElement
 			addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self name; beLargeSize);
 			addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: 'joined: ', self createdAtShorted);
 			addChild: (BrLabel new aptitude: BrGlamorousLabelAptitude; text: self description));
-		when: BlClickEvent do: [:e | e target phlow spawnObject: self]
\ No newline at end of file
+		when: BlClickEvent do: [:e | e target phlow spawnObject: self tweets]
\ No newline at end of file