From 7d77d26691dc4517503e8afd7e9deeb5f93f3db5 Mon Sep 17 00:00:00 2001 From: ruidajo Date: Wed, 26 Jul 2023 11:46:40 -0500 Subject: [PATCH] Editing tweets preview with limit of tweets and html report file metod. --- .../TweetsCollection.class/instance/gtTweetsFor..st | 2 +- .../TwitterUser.class/instance/asCardElement.st | 4 ++++ .../TwitterUser.class/instance/htmlReportFile.st | 4 ++++ 3 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 Socialmetrica.package/TwitterUser.class/instance/htmlReportFile.st diff --git a/Socialmetrica.package/TweetsCollection.class/instance/gtTweetsFor..st b/Socialmetrica.package/TweetsCollection.class/instance/gtTweetsFor..st index 88d5f83..10d7568 100644 --- a/Socialmetrica.package/TweetsCollection.class/instance/gtTweetsFor..st +++ b/Socialmetrica.package/TweetsCollection.class/instance/gtTweetsFor..st @@ -11,7 +11,7 @@ gtTweetsFor: aView c vertical fitContent. c horizontal matchParent ]; padding: (BlInsets all: 10). - self messages do: [ :each | + (self messages copyFrom: 1 to: 20) do: [ :each | imageContainer := BrAsyncWidget new aptitude: BrShadowAptitude new; background: Color white; diff --git a/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st b/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st index de23db3..ebb5864 100644 --- a/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st +++ b/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st @@ -50,6 +50,10 @@ asCardElement aptitude: BrGlamorousButtonWithLabelAptitude new; label: 'PDF report'; action: [ WebBrowser openOn: self pdfReportFile fullName ]. + "BrButton new + aptitude: BrGlamorousButtonWithLabelAptitude new; + label: 'Web report'; + action: [ WebBrowser openOn: self htmlReportFile fullName ]." }. ^ BrHorizontalPane new diff --git a/Socialmetrica.package/TwitterUser.class/instance/htmlReportFile.st b/Socialmetrica.package/TwitterUser.class/instance/htmlReportFile.st new file mode 100644 index 0000000..190d7e7 --- /dev/null +++ b/Socialmetrica.package/TwitterUser.class/instance/htmlReportFile.st @@ -0,0 +1,4 @@ +accessing +htmlReportFile + + ^ self folder / self userName , 'html' \ No newline at end of file