class: DoWhatIMeanSupport
authorClaus Gittinger <cg@exept.de>
Sat, 20 Jul 2013 12:29:43 +0200
changeset 4284 a0dd80311c40
parent 4283 0d1120e6734b
child 4285 e07bad437b90
class: DoWhatIMeanSupport changed: #codeCompletionForMessage:inClass:codeView:
DoWhatIMeanSupport.st
--- a/DoWhatIMeanSupport.st	Sat Jul 20 12:29:32 2013 +0200
+++ b/DoWhatIMeanSupport.st	Sat Jul 20 12:29:43 2013 +0200
@@ -3068,7 +3068,9 @@
                             newPart := newPart , ':'
                         ] ifFalse:[
                             (codeView characterAtCharacterPosition:stop+1) isSeparator ifFalse:[
-                                newPart := newPart , ' '
+                                (').' includes:(codeView characterAtCharacterPosition:stop+1)) ifFalse:[
+                                    newPart := newPart , ' '
+                                ].
                             ]
                         ]
 "/                            codeView replaceFromCharacterPosition:start to:stop with:(newPart , ':').
@@ -3442,10 +3444,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.106 2013-07-20 09:08:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.107 2013-07-20 10:29:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.106 2013-07-20 09:08:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.107 2013-07-20 10:29:43 cg Exp $'
 ! !