diff -r 77c62d93cc76 -r 26cfabcd623e SourceCodeManagerUtilities.st
--- a/SourceCodeManagerUtilities.st	Tue Mar 06 16:41:27 2012 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Mar 12 13:07:58 2012 +0100
@@ -14,7 +14,7 @@
 Object subclass:#SourceCodeManagerUtilities
 	instanceVariableNames:'manager resources'
 	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
-		YesToAllNotification'
+		YesToAllNotification LastSourceLogMessages'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
 !
@@ -612,21 +612,20 @@
 !
 
 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
-
-    <resource: #obsolete>
-
-    self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
-
-    ^self default getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
+    ^self default 
+        getCheckinInfoFor:aClassNameOrPackageNameString     
+        initialAnswer:initialAnswerOrNil
+
+    "Modified: / 12-03-2012 / 12:56:45 / cg"
 !
 
 getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
-
-    <resource: #obsolete>
-
-    self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
-
-    ^self default getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
+    ^self default 
+        getCheckinInfoFor:aClassNameOrPackageNameString 
+        initialAnswer:initialAnswerOrNil 
+        withQuickOption:withQuickOption
+
+    "Modified: / 12-03-2012 / 12:56:50 / cg"
 !
 
 goodInitialLogMessageForCheckinClassOfClass:aClass
@@ -667,6 +666,18 @@
     "Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+lastSourceLogMessageHeadlines
+    LastSourceLogMessage isNil ifTrue:[
+        LastSourceLogMessages := OrderedCollection new.
+    ].
+    ^ LastSourceLogMessages 
+        collect:[:msg |
+            msg withoutLeadingSeparators asCollectionOfLines first , '...'
+        ]
+
+    "Created: / 12-03-2012 / 12:34:35 / cg"
+!
+
 yesToAllNotification
 
     ^self class yesToAllNotification
@@ -4178,22 +4189,31 @@
     |logMsg infoDialog|
 
     infoDialog := Tools::CheckinInfoDialog 
-                getCheckinInfoFor:aClassNameOrPackageNameString 
-                initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
-                withQuickOption:withQuickOption.
+                    getCheckinInfoFor:aClassNameOrPackageNameString 
+                    initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
+                    withQuickOption:withQuickOption
+                    logHistory:(LastSourceLogMessages ? #()).
+
     infoDialog notNil ifTrue:[
         logMsg := infoDialog logMessage.
         logMsg notEmptyOrNil ifTrue:[
-            LastSourceLogMessage := logMsg
+            LastSourceLogMessage := logMsg.
+            LastSourceLogMessages isNil ifTrue:[
+                LastSourceLogMessages := OrderedCollection new.
+            ].
+            LastSourceLogMessages addFirst:logMsg.
+            LastSourceLogMessages size > 10 ifTrue:[
+                LastSourceLogMessages removeLast
+            ].
         ].
     ].
     ^ infoDialog
 
     "
-     SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
+     SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla'
     "
 
-    "Modified: / 06-07-2010 / 11:21:28 / cg"
+    "Modified: / 12-03-2012 / 13:01:09 / cg"
 !
 
 goodInitialLogMessageForCheckinClassOfClass:aClass
@@ -4375,9 +4395,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.245 2012-03-06 15:41:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.246 2012-03-12 12:07:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.245 2012-03-06 15:41:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.246 2012-03-12 12:07:58 cg Exp $'
 ! !