--- a/MessageNode.st Wed Jun 29 20:26:11 2011 +0200
+++ b/MessageNode.st Thu Jun 30 18:07:55 2011 +0200
@@ -2894,7 +2894,7 @@
^ self printWhileOn:aStream indent:i
].
].
- selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:.
+ selectorParts := selector asSymbol keywords.
receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence).
argArray notNil ifTrue:[
argArray with:selectorParts
@@ -2907,7 +2907,7 @@
]
].
- "Modified: / 06-08-2006 / 12:38:44 / cg"
+ "Modified: / 30-06-2011 / 17:48:56 / cg"
!
printWhileOn:aStream indent:i
@@ -3035,9 +3035,9 @@
!MessageNode class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.179 2011-06-28 19:43:35 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.180 2011-06-30 16:07:55 cg Exp $'
!
version_SVN
- ^ ' Id '
+ ^ '§ Id §'
! !