reports/Builder__LintReport.st
changeset 79 889d3747a0a8
parent 71 1ed7c6cb2f68
child 82 e676efa2a286
--- 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.