DoWhatIMeanSupport.st
branchjv
changeset 5388 a1c8bae2ea58
parent 5380 9f6a3e88aaa0
parent 5385 730032499904
child 5397 90fbd6970646
--- a/DoWhatIMeanSupport.st	Mon Dec 12 07:06:38 2016 +0100
+++ b/DoWhatIMeanSupport.st	Tue Dec 13 06:44:30 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
 	      All Rights Reserved
@@ -1993,7 +1995,7 @@
     "/ if there is already space before the cursor, and the parent node is not a message,
     "/ do not attempt to complete the current message.
     "/ If it is a message, we will look for parent-message completion also below (best2 stuff)
-    (codeView characterBeforeCursor ? $ ) isSeparator ifTrue:[
+    (codeView characterBeforeCursor ? Character space) isSeparator ifTrue:[
         selector isKeyword ifFalse:[
             self codeCompletionForMessageTo:node into:actionBlock.
             ^ self
@@ -2084,7 +2086,7 @@
     "/ the name of the variable from the implementation, as comment, and selected might be a good one!!
     "/ Array new:1
     selector isKeyword ifTrue:[
-        (node arguments size = selector numArgs) ifTrue:[
+        (node arguments size = selector argumentCount) ifTrue:[
             offerParenthisationAroundNode := node. 
             "/ Transcript show:'2:'; showCR:node.
         ].
@@ -2446,7 +2448,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.
 "/].
@@ -5018,7 +5020,7 @@
 "/
 "/    info := best storeString.
 "/    implClass notNil ifTrue:[
-"/        info := implClass name , ' » ' , info.
+"/        info := implClass name , ' » ' , info.
 "/    ].
 "/    self information:info.