diff --git a/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st b/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st index 2fda2bc..de23db3 100644 --- a/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st +++ b/Socialmetrica.package/TwitterUser.class/instance/asCardElement.st @@ -46,6 +46,10 @@ asCardElement aptitude: BrGlamorousButtonWithLabelAptitude new; label: 'Web view'; action: [ self webView ]. + BrButton new + aptitude: BrGlamorousButtonWithLabelAptitude new; + label: 'PDF report'; + action: [ WebBrowser openOn: self pdfReportFile fullName ]. }. ^ BrHorizontalPane new diff --git a/Socialmetrica.package/TwitterUser.class/instance/pdfReportFile.st b/Socialmetrica.package/TwitterUser.class/instance/pdfReportFile.st new file mode 100644 index 0000000..b48ea8a --- /dev/null +++ b/Socialmetrica.package/TwitterUser.class/instance/pdfReportFile.st @@ -0,0 +1,4 @@ +accessing +pdfReportFile + + ^ self folder / self userName , 'pdf' \ No newline at end of file