--- a/reports/Builder__ReportExtensionsSourceInfo.st Tue Dec 16 11:29:50 2014 +0100
+++ b/reports/Builder__ReportExtensionsSourceInfo.st Tue Dec 16 11:29:54 2014 +0100
@@ -10,6 +10,29 @@
!
+!ReportExtensionsSourceInfo methodsFor:'accessing'!
+
+pathNameAbsolute: aBoolean
+ "Return a path (as String) to file containing the source code. The file points to the
+ real source file. If `aBoolean` is true, then absolute path is returned, otherwise
+ realtive path to package root is returned."
+
+ | packageDir |
+
+ packageDir := aBoolean
+ ifTrue:[ (Smalltalk getPackageDirectoryForPackage: package) pathName ]
+ ifFalse: [ package asString replaceAll: $: with: Filename separator; replaceAll: $/ with: Filename separator ].
+
+ ^ packageDir , Filename separator , 'extensions.st'.
+
+ "
+ (Builder::ReportSourceInfo forExtensionsInPackage: 'stx:libtool') pathNameAbsolute: true
+ (Builder::ReportSourceInfo forExtensionsInPackage: 'stx:libtool') pathNameAbsolute: false
+ "
+
+ "Created: / 16-12-2014 / 10:27:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ReportExtensionsSourceInfo methodsFor:'initialization'!
initializeWithPackage: pkg