--- a/SourceCodeManagerUtilities.st Tue Sep 08 16:15:57 2009 +0200
+++ b/SourceCodeManagerUtilities.st Tue Sep 08 18:56:17 2009 +0200
@@ -413,6 +413,9 @@
logMessage := checkinInfo logMessage.
].
].
+ logMessage notNil ifTrue:[
+ logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
+ ].
resources := self classResources.
@@ -2908,22 +2911,22 @@
!
getCheckinInfoFor:aString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
- "get a log message for checking in a class.
- Return the message or nil if aborted."
-
- |logMsg info|
-
- info := Tools::CheckinInfoDialog
+ "get a log message for checking in a class (plus checkinQuick state info).
+ Return the info-object (actually: the dialog) or nil if aborted."
+
+ |logMsg infoDialog|
+
+ infoDialog := Tools::CheckinInfoDialog
getCheckinInfoFor:aString
initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
withQuickOption:withQuickOption.
- info notNil ifTrue:[
- logMsg := info logMessage.
+ infoDialog notNil ifTrue:[
+ logMsg := infoDialog logMessage.
logMsg notNil ifTrue:[
LastSourceLogMessage := logMsg
].
].
- ^ info
+ ^ infoDialog
"
SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
@@ -2984,5 +2987,5 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.183 2009-06-30 10:51:05 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.184 2009-09-08 16:56:17 cg Exp $'
! !