class: SourceCodeManagerUtilities
changed: #sourceCodeForExtensions:package:forManager:
--- a/SourceCodeManagerUtilities.st Fri Mar 22 14:30:43 2013 +0100
+++ b/SourceCodeManagerUtilities.st Fri Mar 22 16:34:55 2013 +0100
@@ -807,10 +807,10 @@
].
!
-sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManager
+sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManagerOrNil
|s methodsSortedByName defClass|
- s := '' writeStream.
+ s := WriteStream on:(String new:1000).
s nextPutAll:'"{ Package: '''.
s nextPutAll:aPackageID asString.
@@ -843,16 +843,18 @@
s cr.
].
- defClass := ProjectDefinition definitionClassForPackage:aPackageID.
- defClass notNil ifTrue:[
- "/ make sure, an extensionVersion_XXX method is included...
- "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
- (methodsSortedByName contains:[:aMethod | aMethod selector == scmManager nameOfVersionMethodForExtensions]) ifFalse:[
- s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
- s cr.
- s nextChunkPut:
- (scmManager versionMethodTemplateForSmalltalkFor:(scmManager nameOfVersionMethodForExtensions)).
- s space; nextPutChunkSeparator.
+ scmManagerOrNil notNil ifTrue:[
+ defClass := ProjectDefinition definitionClassForPackage:aPackageID.
+ defClass notNil ifTrue:[
+ "/ make sure, an extensionVersion_XXX method is included...
+ "/ (notice: no need to support a secondary backward compatible non-manager related version method here)
+ (methodsSortedByName contains:[:aMethod | aMethod selector == scmManagerOrNil nameOfVersionMethodForExtensions]) ifFalse:[
+ s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
+ s cr.
+ s nextChunkPut:
+ (scmManagerOrNil versionMethodTemplateForSmalltalkFor:(scmManagerOrNil nameOfVersionMethodForExtensions)).
+ s space; nextPutChunkSeparator; cr.
+ ].
].
].
@@ -3831,9 +3833,10 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.265 2013-03-22 15:34:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.264 2012-11-07 16:54:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.265 2013-03-22 15:34:55 cg Exp $'
! !
+