SmallSense__SmalltalkCompletionEngine.st
changeset 159 289c7ef539af
parent 158 d275ae2a0003
child 161 5ff416530ac4
--- a/SmallSense__SmalltalkCompletionEngine.st	Wed Jan 22 12:52:34 2014 +0000
+++ b/SmallSense__SmalltalkCompletionEngine.st	Wed Jan 22 21:54:51 2014 +0000
@@ -33,11 +33,12 @@
 debug: aBoolean
     Debug := aBoolean .
     "
-    seld debug: true.
-    seld debug: false.
+    self debug: true.
+    self debug: false.
     "
 
     "Created: / 22-01-2014 / 09:08:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 22-01-2014 / 19:42:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkCompletionEngine class methodsFor:'utilities'!
@@ -172,6 +173,11 @@
     | classes seen |
 
     classes := type classes.
+    "/ Hack for Boolean: ifTrue:iFalse: etc are not defined
+    "/ in Boolean ?!!?
+    (classes size == 1 and:[classes anElement == Boolean ]) ifTrue:[
+        classes := Array with: True with: False.
+    ].
     classes size == 1 ifTrue:[
         classes anElement == JavaPackage class ifTrue:[  
             "/ Special hack for JAVA: for pattern `JAVA java lang reflect`
@@ -196,7 +202,7 @@
     ].
 
     seen := Set new.
-    type  classesDo: [:each | 
+    classes do: [:each | 
         | class |
 
         class := each.
@@ -225,7 +231,7 @@
     ].
 
     "Created: / 26-11-2011 / 17:03:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-10-2013 / 12:13:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2014 / 19:48:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addPools
@@ -297,6 +303,11 @@
     collector parser methodVars ? #() do:[:nm|
         result add: (VariablePO variable: nm).
     ].
+    "Add literals"
+    #(#true #false #nil ) do:[:nm|
+        result add: (SnippetPO new subject: nm).
+    ].
+
 
     n := node.
     [ n notNil ] whileTrue:[
@@ -308,7 +319,7 @@
     ]
 
     "Created: / 31-07-2013 / 00:32:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-01-2014 / 09:21:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2014 / 19:42:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkCompletionEngine methodsFor:'completion-private'!