SourceCodeManagerUtilities.st
changeset 2284 624993d61344
parent 2283 2de925716786
child 2286 ad425b1c40ab
--- a/SourceCodeManagerUtilities.st	Tue Jul 06 11:33:18 2010 +0200
+++ b/SourceCodeManagerUtilities.st	Tue Jul 06 11:45:14 2010 +0200
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libbasic3' }"
 
 Object subclass:#SourceCodeManagerUtilities
-	instanceVariableNames:''
-	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
-		YesToAllNotification'
-	poolDictionaries:''
-	category:'System-SourceCodeManagement'
+        instanceVariableNames:''
+        classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
+                YesToAllNotification'
+        poolDictionaries:''
+        category:'System-SourceCodeManagement'
 !
 
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
@@ -3002,7 +3002,7 @@
                 withQuickOption:withQuickOption.
     infoDialog notNil ifTrue:[
         logMsg := infoDialog logMessage.
-        logMsg notNil ifTrue:[
+        logMsg notEmptyOrNil ifTrue:[
             LastSourceLogMessage := logMsg
         ].
     ].
@@ -3192,9 +3192,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.202 2010-07-06 09:33:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.203 2010-07-06 09:45:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.202 2010-07-06 09:33:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.203 2010-07-06 09:45:14 cg Exp $'
 ! !