--- a/SourceCodeManagerUtilities.st Mon Apr 07 18:00:58 2014 +0200
+++ b/SourceCodeManagerUtilities.st Fri Apr 11 13:58:12 2014 +0200
@@ -1898,7 +1898,7 @@
rev := classToCompare revisionInfoOfManager:mgr.
"/ rev := classToCompare binaryRevision.
- revisionInClass := classToCompare revision.
+ revisionInClass := classToCompare revisionOfManager:mgr.
rev isNil ifTrue:[
rev := revisionInClass
].
@@ -1946,7 +1946,21 @@
rev := newestRev.
].
- rev notNil ifTrue:[
+ rev isNil ifTrue:[
+ mgr = classToCompare sourceCodeManager ifTrue:[
+ msg := 'Could not figure out the newest revision of "%1".\\Please check if this class is really contained in that repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
+ ] ifFalse:[
+ msg := 'Could not figure out the newest revision of "%1".\\Notice that the class is actually maintained by %4, not %2.\Please check if this class is really in the %2 repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
+ ].
+ Dialog warn:(resources
+ stringWithCRs:msg
+ with:classToCompare name
+ with:mgr managerTypeName
+ with:classToCompare package
+ with:(classToCompare sourceCodeManager managerTypeName)).
+ ^ self.
+
+ ] ifFalse:[
rev withoutSpaces isEmpty ifTrue:[
msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
@@ -3991,10 +4005,10 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.299 2014-04-04 20:19:56 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.300 2014-04-11 11:58:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.299 2014-04-04 20:19:56 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.300 2014-04-11 11:58:12 cg Exp $'
! !