--- a/SmallSense__SmalltalkCompletionEngine.st Thu Oct 26 12:35:22 2017 +0000
+++ b/SmallSense__SmalltalkCompletionEngine.st Mon Nov 13 22:26:12 2017 -0300
@@ -423,7 +423,7 @@
colNr := colNrArg.
line := textView list at: lineNrArg ifAbsent:[ nil ].
line isEmptyOrNil ifTrue:[ ^ nil ].
- inferencer := SmalltalkInferencer forExpression: line.
+ inferencer := SmalltalkInferencer forClass: class expression: line.
].
inferencer parserClass: SmalltalkParser.
inferencer process.
@@ -434,7 +434,7 @@
collector:inferencer
"Created: / 02-10-2013 / 13:23:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-10-2013 / 13:43:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-11-2017 / 22:21:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
completeAfter:node
--- a/SmallSense__SmalltalkInferencer.st Thu Oct 26 12:35:22 2017 +0000
+++ b/SmallSense__SmalltalkInferencer.st Mon Nov 13 22:26:12 2017 -0300
@@ -93,6 +93,13 @@
!SmalltalkInferencer class methodsFor:'instance creation'!
+forClass: class expression: source
+
+ ^self new class: class expression: source.
+
+ "Created: / 13-11-2017 / 22:21:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
forClass: class methodSource: source
^self new class: class source: source
@@ -107,13 +114,6 @@
"Created: / 26-11-2011 / 12:44:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-forExpression: source
-
- ^self new expression: source.
-
- "Created: / 04-10-2013 / 08:12:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
forMethod: method
^self new method: method.
@@ -175,6 +175,14 @@
!SmalltalkInferencer methodsFor:'initialization'!
+class: klass expression: expression
+
+ type := #expression.
+ self class: klass source: expression.
+
+ "Created: / 13-11-2017 / 22:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
class: cls selector: sel
| m |
@@ -201,14 +209,6 @@
"Modified: / 04-10-2013 / 08:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-expression: expression
-
- type := #expression.
- self class: nil source: expression.
-
- "Created: / 04-10-2013 / 08:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
method: method
type := #method.