--- a/AbstractSourceCodeManager.st Tue Oct 20 11:55:58 2009 +0200
+++ b/AbstractSourceCodeManager.st Tue Oct 20 18:02:03 2009 +0200
@@ -12,11 +12,11 @@
"{ Package: 'stx:libbasic3' }"
Object subclass:#AbstractSourceCodeManager
- instanceVariableNames:''
- classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
- WorkTreeDirectoryName'
- poolDictionaries:''
- category:'System-SourceCodeManagement'
+ instanceVariableNames:''
+ classVariableNames:'DefaultManager CachingSources CacheDirectoryName UseWorkTree
+ WorkTreeDirectoryName'
+ poolDictionaries:''
+ category:'System-SourceCodeManagement'
!
!AbstractSourceCodeManager class methodsFor:'documentation'!
@@ -747,22 +747,25 @@
compileVersionMethod:methodName of:aClass for:newRevisionString
- |cls mthd |
+ |cls mthd code|
cls := aClass theMetaclass.
self assert: cls programmingLanguage isSmalltalk.
- mthd := Compiler compile:
+ code :=
methodName , '
^ ''' , newRevisionString , '''
-'
- forClass:cls
- inCategory:#documentation
- notifying:nil
- install:true
- skipIfSame:false
- silent:true.
+'.
+
+ mthd := Compiler
+ compile:code
+ forClass:cls
+ inCategory:#documentation
+ notifying:nil
+ install:true
+ skipIfSame:false
+ silent:true.
mthd notNil ifTrue:[
mthd setPackage:aClass package
@@ -1706,7 +1709,7 @@
self ensureDollarsInVersionMethod:'foo ^ ''hello'' '
self ensureDollarsInVersionMethod:'foo ^ ''§hello§'' '
self ensureDollarsInVersionMethod:'foo ^ '' hello '' '
- self ensureDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009-10-20 09:55:58 fm Exp $'' '
+ self ensureDollarsInVersionMethod:'foo ^ ''$','Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009/10/20 09:55:58 fm Exp $'' '
-- errors:
self ensureDollarsInVersionMethod:'foo ^ ''$Head'' '
self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '
@@ -1751,7 +1754,7 @@
self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''hello'' '
self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ '' hello '' '
- self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009-10-20 09:55:58 fm Exp $'' '
+ self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''$','Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009/10/20 09:55:58 fm Exp $'' '
-- errors:
self ensureKeywordExpansionWith: $§ inVersionMethod: 'foo ^ ''§Head'' '
@@ -1769,8 +1772,8 @@
^ self ensureKeywordExpansionWith: $§ inVersionMethod:versionString.
"
- self ensureNoDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009-10-20 09:55:58 fm Exp $'' '
- self ensureNoDollarsInVersionMethod:'foo ^ ''$Head'' '
+ self ensureNoDollarsInVersionMethod:'foo ^ ''$','Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009/10/20 09:55:58 fm Exp $'' '
+ self ensureNoDollarsInVersionMethod:'foo ^ ''$','Head'' '
self ensureNoDollarsInVersionMethod:'foo ^ ''Header$'' '
self ensureNoDollarsInVersionMethod:'foo ^ ''§Header§'' '
@@ -2740,11 +2743,11 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009-10-20 09:55:58 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.229 2009-10-20 16:02:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.228 2009-10-20 09:55:58 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.229 2009-10-20 16:02:03 cg Exp $'
! !
AbstractSourceCodeManager initialize!