--- 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'!