--- a/SourceCodeManagerUtilities.st Thu Oct 04 17:02:01 2018 +0200
+++ b/SourceCodeManagerUtilities.st Thu Oct 04 17:02:47 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 eXept Software AG
All Rights Reserved
@@ -4092,10 +4090,11 @@
"/
SourceCodeManagerError handle:[:ex |
Dialog warn:(resources
- stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
- with:classToCompare name
- with:classToCompare sourceCodeManager managerTypeName
- with:classToCompare package).
+ stringWithCRs:'Could not fetch revision info of "%1".\Reported error: %4\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
+ with:classToCompare name
+ with:classToCompare sourceCodeManager managerTypeName
+ with:classToCompare package
+ with:(ex description asString withoutSeparators)).
^ nil.
] do:[
newestRev := mgr newestRevisionOf:classToCompare.
@@ -4175,6 +4174,7 @@
"
"Modified: / 24-07-2012 / 18:11:27 / cg"
+ "Modified: / 04-10-2018 / 15:36:05 / Claus Gittinger"
!
getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock