reports/Builder__ReportExtensionsSourceInfo.st
changeset 274 b13db8438e4a
parent 264 ff9647e01309
child 533 1bed627ec135
--- a/reports/Builder__ReportExtensionsSourceInfo.st	Tue Feb 17 16:31:02 2015 +0100
+++ b/reports/Builder__ReportExtensionsSourceInfo.st	Mon Mar 09 16:57:10 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/builder/reports' }"
 
 "{ NameSpace: Builder }"
@@ -52,6 +54,7 @@
     | extensions wide stream s methodsSortedByName defClass scmManagerOrNil |
 
     extensions := ProjectDefinition searchForExtensionsWithProject: package.     
+    extensions isEmptyOrNil ifTrue:[ ^ self ].
     wide := false.
     stream := streamArg.
     extensions do:[:method|
@@ -91,7 +94,7 @@
                                 ]
                               ].
     methodsSortedByName do:[:aMethod |
-        |cat source privacy aStream|
+        |cat privacy aStream|
 
         aStream := s.
 
@@ -133,16 +136,22 @@
         ].
     ].
 
-    "Modified (comment): / 29-07-2013 / 17:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-03-2015 / 15:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 validate
-    | file |
+    | extensions file |
 
+    extensions := ProjectDefinition searchForExtensionsWithProject: package.     
     file := (Smalltalk getPackageDirectoryForPackage: package) / 'extensions.st'.                       
-    ^ self validateAgainstReference: file.
 
-    "Modified: / 29-07-2013 / 14:55:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    extensions isEmptyOrNil ifTrue:[
+        self assert: file exists not.
+    ] ifFalse:[
+        self validateAgainstReference: file.
+    ]
+
+    "Modified: / 09-03-2015 / 15:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ReportExtensionsSourceInfo class methodsFor:'documentation'!