SmallSense__MethodPO.st
changeset 122 a0d62e942364
parent 120 4fefce92f5bb
child 127 98c615301608
--- a/SmallSense__MethodPO.st	Fri Oct 04 08:31:58 2013 +0100
+++ b/SmallSense__MethodPO.st	Fri Oct 04 09:01:12 2013 +0100
@@ -46,7 +46,7 @@
         idx := stringToComplete indexOf: $:.
         ^idx == 0 ifTrue:[stringToComplete size + 1] ifFalse:[idx + 1].
     ].
-    language isJava ifTrue:[
+    ((language askFor: #isJava) or:[language askFor: #isGroovy]) ifTrue:[
         ^ (stringToComplete at: stringToComplete size - 1) isSeparator
             ifTrue:[stringToComplete size- 2]
             ifFalse:[stringToComplete size]
@@ -55,7 +55,7 @@
     ^ stringToComplete size + 1.
 
     "Created: / 03-10-2013 / 16:50:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-10-2013 / 18:09:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-10-2013 / 08:55:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 label
@@ -95,14 +95,14 @@
         language isSmalltalk  ifTrue:[          
             ^  method selector upTo: $(
         ].
-        language isJava ifTrue:[
+        ((language askFor: #isJava) or:[language askFor: #isGroovy]) ifTrue:[
             ^ (method selector upTo: $() , (method numArgs == 0 ifTrue:['()'] ifFalse:['(  )']).
         ].
     ].
     ^ super stringToCompleteForLanguage: language
 
     "Created: / 02-10-2013 / 02:33:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-10-2013 / 18:07:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-10-2013 / 08:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodPO methodsFor:'displaying'!