--- 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 $'
! !