Compare commits

...

2 Commits

4 changed files with 10 additions and 2 deletions

View File

@ -23,5 +23,5 @@ asDictionary
'retweets-histogram-quantity' -> retweetsHistogramData second.
'quotes-histogram-labels' -> quotesHistogramData third.
'quotes-histogram-quantity' -> quotesHistogramData second.
'wordcloud-data' -> self wordcloudData first.
'wordcloud-data' -> (self wordcloudDataLanguage: (self config at: 'lang')) first.
} asDictionary

View File

@ -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;

View File

@ -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

View File

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