--- a/Class.st Mon Nov 17 20:08:09 2003 +0100
+++ b/Class.st Tue Nov 18 10:04:11 2003 +0100
@@ -135,7 +135,7 @@
This extracts the relevant info from aString, asking
the sourceCode manager (if there is one)"
- |info mgr|
+ |mgr|
"/
"/ mhmh - ask the default manager
@@ -144,11 +144,18 @@
"/
"/ fallBack - assume CVS header
"/
- mgr := CVSSourceCodeManager
+ mgr := Smalltalk at:#CVSSourceCodeManager
].
-
- info := mgr revisionInfoFromString:aString.
- ^ info
+ "/
+ "/ care for standAlone apps which have no CVS manager included
+ "/
+ mgr isNil ifTrue:[
+ mgr := Smalltalk at:#AbstractSourceCodeManager
+ ].
+ mgr isNil ifTrue:[
+ ^ nil
+ ].
+ ^ mgr revisionInfoFromString:aString.
!
revisionStringFromSource:aMethodSourceString
@@ -4803,5 +4810,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.449 2003-11-13 11:29:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.450 2003-11-18 09:04:11 cg Exp $'
! !