DoWhatIMeanSupport.st
changeset 4711 1c2e635489e5
parent 4710 94634917ce8f
child 4727 983f74d3c7a1
--- a/DoWhatIMeanSupport.st	Fri Feb 13 22:00:46 2015 +0100
+++ b/DoWhatIMeanSupport.st	Fri Feb 13 23:48:09 2015 +0100
@@ -1508,7 +1508,7 @@
         char := codeView characterAtCharacterPosition:crsrPos.
     ].
 
-    char = $. ifTrue:[
+    char == $. ifTrue:[
         "/ either at end of statement or after a character constant
         crsrPos == 1 ifTrue:[^ self].
         (codeView characterAtCharacterPosition:crsrPos-1) == $$ ifFalse:[^ self].
@@ -4764,10 +4764,10 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.218 2015-02-13 21:00:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.219 2015-02-13 22:48:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.218 2015-02-13 21:00:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.219 2015-02-13 22:48:09 cg Exp $'
 ! !