SourceCodeManagerUtilities.st
changeset 3544 7efd6c5b392f
parent 3536 cb8679184d3b
child 3546 13f0b8ba6c85
--- 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 $'
 ! !