SourceCodeManagerUtilities.st
changeset 2793 3732543d2393
parent 2791 0601ded0300b
child 2794 77c62d93cc76
--- a/SourceCodeManagerUtilities.st	Tue Mar 06 12:58:06 2012 +0100
+++ b/SourceCodeManagerUtilities.st	Tue Mar 06 12:58:18 2012 +0100
@@ -2510,7 +2510,16 @@
     "/
     "/ class in repository - ask for revision
     "/
-    newestRev := mgr newestRevisionOf:classToCompare.
+    SourceCodeManagerError handle:[:ex |
+        Dialog warn:(resources 
+                                stringWithCRs:'Could not fetch source of "%1".\\Please check your %1-sourcecode manager''s settings.'
+                                with:classToCompare name
+                                with:classToCompare sourceCodeManager managerTypeName).
+        ^ self.
+
+    ] do:[
+        newestRev := mgr newestRevisionOf:classToCompare.
+    ].
     askForRevision ifTrue:[
         msg := resources string:'Compare to revision: (empty for newest)'.
         rev notNil ifTrue:[
@@ -2633,7 +2642,7 @@
       self compareClassWithRepository:Array
     "
 
-    "Modified: / 29-12-2011 / 14:46:54 / cg"
+    "Modified: / 06-03-2012 / 11:57:28 / cg"
 !
 
 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
@@ -4371,9 +4380,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.244 2012-03-06 11:58:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.244 2012-03-06 11:58:18 cg Exp $'
 ! !