From 204a462a2adc5360fcb5d80ca8bd0779599ac2ae Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 31 Mar 2022 16:09:15 -0500
Subject: [PATCH] Fixing bug with profile webpage. Starting improved data
 extraction.

---
 .../TwitterUser.class/instance/asCardElement.st               | 2 +-
 .../TwitterUser.class/instance/getMessages.st                 | 2 ++
 .../TwitterUser.class/instance/guiLinkLabel.st                | 4 ++++
 Datanalitica.package/TwitterUser.class/instance/tweets.st     | 2 +-
 4 files changed, 8 insertions(+), 2 deletions(-)
 create mode 100644 Datanalitica.package/TwitterUser.class/instance/getMessages.st
 create mode 100644 Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st

diff --git a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
index cba62f8..ea35173 100644
--- a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
+++ b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
@@ -14,7 +14,7 @@ asCardElement
 	
 	webpageButton := BrButton new
 		aptitude: BrGlamorousButtonWithLabelAptitude new;
-		label: (self url asString copyReplaceAll: self url scheme, '://' with: '') allButLast;
+		label: self guiLinkLabel;
 		action: [ WebBrowser openOn: self url asString ].
 		
 	textInfoPane := BrVerticalPane new
diff --git a/Datanalitica.package/TwitterUser.class/instance/getMessages.st b/Datanalitica.package/TwitterUser.class/instance/getMessages.st
new file mode 100644
index 0000000..03cd1ff
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/getMessages.st
@@ -0,0 +1,2 @@
+accessing
+getMessages
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st b/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st
new file mode 100644
index 0000000..2e620ee
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st
@@ -0,0 +1,4 @@
+accessing
+guiLinkLabel
+	self url ifNil: [^ ''].
+	^ (self url asString copyReplaceAll: self url scheme, '://' with: '') allButLast
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/tweets.st b/Datanalitica.package/TwitterUser.class/instance/tweets.st
index 9a85747..f460912 100644
--- a/Datanalitica.package/TwitterUser.class/instance/tweets.st
+++ b/Datanalitica.package/TwitterUser.class/instance/tweets.st
@@ -1,3 +1,3 @@
 accessing
 tweets
-	^ tweets ifNil: [ tweets := TweetsCollection new]
\ No newline at end of file
+	^ tweets ifNil: [ self tweets: self getMessages ]
\ No newline at end of file