Editing tweets preview with limit of tweets and html report file metod.

This commit is contained in:
ruidajo 2023-07-26 11:46:40 -05:00
parent 5336e8d224
commit 7d77d26691
3 changed files with 9 additions and 1 deletions

View File

@ -11,7 +11,7 @@ gtTweetsFor: aView
c vertical fitContent. c vertical fitContent.
c horizontal matchParent ]; c horizontal matchParent ];
padding: (BlInsets all: 10). padding: (BlInsets all: 10).
self messages do: [ :each | (self messages copyFrom: 1 to: 20) do: [ :each |
imageContainer := BrAsyncWidget new imageContainer := BrAsyncWidget new
aptitude: BrShadowAptitude new; aptitude: BrShadowAptitude new;
background: Color white; background: Color white;

View File

@ -50,6 +50,10 @@ asCardElement
aptitude: BrGlamorousButtonWithLabelAptitude new; aptitude: BrGlamorousButtonWithLabelAptitude new;
label: 'PDF report'; label: 'PDF report';
action: [ WebBrowser openOn: self pdfReportFile fullName ]. action: [ WebBrowser openOn: self pdfReportFile fullName ].
"BrButton new
aptitude: BrGlamorousButtonWithLabelAptitude new;
label: 'Web report';
action: [ WebBrowser openOn: self htmlReportFile fullName ]."
}. }.
^ BrHorizontalPane new ^ BrHorizontalPane new

View File

@ -0,0 +1,4 @@
accessing
htmlReportFile
^ self folder / self userName , 'html'