--- a/AbstractSourceCodeManager.st Thu Sep 29 22:01:44 2011 +0200
+++ b/AbstractSourceCodeManager.st Thu Sep 29 22:02:10 2011 +0200
@@ -1907,7 +1907,7 @@
with:revision with:binaryRevision
with:self name) infoPrintCR.
].
- self halt.
+ ^ nil
] ifFalse:[
revision ~= binaryRevision ifTrue:[
('SourceCodeManager [info]: "%1" has %4-revision (%2) vs. binary revision (%3) - trusting binaryRevision'
@@ -1939,7 +1939,7 @@
cache:true
"Created: / 12-10-1996 / 17:21:52 / cg"
- "Modified: / 29-09-2011 / 16:38:09 / cg"
+ "Modified: / 29-09-2011 / 22:00:41 / cg"
!
loadPackageWithId: aPackageId fromRepositoryAsAutoloaded: doLoadAsAutoloaded
@@ -2020,7 +2020,7 @@
doubleColon := source indexOf: $: startingAt: startQuote + 2.
"/There may be no double colon at all, if the version method
- "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.260 2011-09-29 20:00:00 cg Exp $'
+ "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.261 2011-09-29 20:02:10 cg Exp $'
(doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
doubleColon := endQuote - 1.
].
@@ -3209,11 +3209,11 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.260 2011-09-29 20:00:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.261 2011-09-29 20:02:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.260 2011-09-29 20:00:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.261 2011-09-29 20:02:10 cg Exp $'
! !
AbstractSourceCodeManager initialize!