# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1252428977 -7200
# Node ID 35b6c567ff7e1ec8741c0e9ccb90cd47329b7bd6
# Parent  5ec86ef8f82471a433e35c281269e79215954b14
comment

diff -r 5ec86ef8f824 -r 35b6c567ff7e SourceCodeManagerUtilities.st
--- 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 $'
 ! !