DoWhatIMeanSupport.st
changeset 5621 bc187db92ab4
parent 5613 46c0f7f9b92c
child 5633 f888f84e67f7
--- a/DoWhatIMeanSupport.st	Mon Oct 09 14:36:56 2017 +0200
+++ b/DoWhatIMeanSupport.st	Wed Oct 11 14:00:04 2017 +0200
@@ -2730,7 +2730,7 @@
     |knownClass suggestions selectorsImplementedInClass mostUseful editActions pos|
  
     (knownClass := self classOfNode:node) isEmptyOrNil ifTrue:[
-        self breakPoint:#cg.
+        "/ self breakPoint:#cg.
         "/ self classOfNode:node.
         ^ self
     ].
@@ -2797,7 +2797,7 @@
     actionBlock value:suggestions value:editActions value:nil.
 
     "Created: / 01-05-2016 / 17:01:21 / cg"
-    "Modified: / 15-09-2017 / 10:57:25 / cg"
+    "Modified: / 10-10-2017 / 16:57:21 / cg"
 !
 
 codeCompletionForMethodSpec:node
@@ -5937,7 +5937,7 @@
                                         ( #(+ - * /) includes:exprSelector ) ifTrue:[
                                             setOfTypes add:Number
                                         ] ifFalse:[    
-                                            ( #(// size) includes:exprSelector ) ifTrue:[
+                                            ( #(// size basicSize position) includes:exprSelector ) ifTrue:[
                                                 setOfTypes add:Integer
                                             ] ifFalse:[    
                                                 ( #(copy shallowCopy) includes:exprSelector ) ifTrue:[
@@ -5963,6 +5963,8 @@
         ]
     ].
     ^ setOfTypes
+
+    "Modified: / 11-10-2017 / 13:58:36 / cg"
 !
 
 addClassesOfMessage:expr inClass:classOrNil to:setOfTypes
@@ -6138,7 +6140,7 @@
     "returns the class of a receiver, if it is well-known.
      Otherwise nil (either unknown, or multiple possibilities)
      When showing possible completions for a message,
-     it is a good idea to know what the kind receiver is."
+     it is a good idea to know what the receiver is."
 
     | classes |
 
@@ -6146,8 +6148,10 @@
     classes size == 1 ifTrue:[
         ^ classes anElement
     ].
-    self breakPoint:#cg.
+    "/ self breakPoint:#cg.
     ^ nil
+
+    "Modified: / 10-10-2017 / 16:56:43 / cg"
 !
 
 classesFromAssignmentTo:varName in:aTree