--- a/reports/Builder__LintReport.st Fri Jan 13 13:47:56 2012 +0100
+++ b/reports/Builder__LintReport.st Fri Jan 13 13:48:04 2012 +0100
@@ -34,6 +34,15 @@
^ LintReportFormat::PMD new
"Modified: / 25-11-2011 / 22:06:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+defaultName
+
+ environment isNil ifTrue:[^super defaultName].
+ ^environment label
+
+ "Modified: / 25-11-2011 / 22:06:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 13-01-2012 / 12:43:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintReport methodsFor:'generating'!
@@ -119,9 +128,17 @@
setupForPackages: packages
+ packages isEmpty ifTrue:[^self].
environment := PackageEnvironment
onEnvironment: BrowserEnvironment new
packageNames: packages.
+ name isNil ifTrue:[
+ packages size > 1 ifTrue:[
+ name := packages size printString , ' packages'.
+ ] ifFalse:[
+ name := packages anElement
+ ]
+ ].
environment label: name.