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