extensions.st
changeset 75 2046f40e5dde
parent 69 1a143dfff51b
child 80 10d72b51e05e
--- a/extensions.st	Mon Sep 02 12:36:51 2013 +0100
+++ b/extensions.st	Mon Sep 02 13:10:24 2013 +0100
@@ -57,11 +57,12 @@
     | p node text items mode |
 
     codeView := codeViewArg.
-    mode := codeView mode.
+     "/ The respondsTo: hack is because CVS CodeView2 has no #mode method.
+    mode := (codeView respondsTo:#mode) ifTrue:[codeView mode] ifFalse:[#method].         
     contextOrNil notNil ifTrue:[
         mode := #method.
     ].
-    items := SmallSenseRecognizer
+    items := SmallSense::Recognizer
                             resultSetFor: mode
                             source: codeView contents
                             class: classOrNilArg
@@ -81,9 +82,10 @@
         ].
     ].    
 
-    SmallSenseCompletionWindow openForView: codeView text: text items: items.
+    SmallSense::CompletionWindow openForView: codeView text: text items: items.
 
     "Created: / 19-08-2013 / 15:01:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-09-2013 / 12:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HTMLDocumentView methodsFor:'actions'!
@@ -236,6 +238,18 @@
     "Created: / 26-11-2011 / 12:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Tools::CodeCompletionService class methodsFor:'testing'!
+
+smallSenseIsUsefulFor:aCodeView
+    "No old completion once there's SmallSense :-)"
+
+    <swizzle: #isUsefulFor:>     
+
+    ^ false.
+
+    "Created: / 02-09-2013 / 12:58:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Tools::CodeHighlightingService class methodsFor:'instance creation'!
 
 new