--- a/SmallSense__EditSupport.st	Fri Oct 04 08:31:58 2013 +0100
+++ b/SmallSense__EditSupport.st	Fri Oct 04 09:01:12 2013 +0100
@@ -17,15 +17,18 @@
         aProgrammingLanguage isSmalltalk ifTrue:[
             ^ SmalltalkEditSupport new
         ].
-        aProgrammingLanguage isJava ifTrue:[    
+        (aProgrammingLanguage askFor: #isJava) ifTrue:[    
             ^ JavaEditSupport new
-        ]
+        ].
+        (aProgrammingLanguage askFor: #isGroovy) ifTrue:[    
+            ^ GroovyEditSupport new
+        ]  
     ].
 
     ^GenericEditSupport new.
 
     "Created: / 24-07-2013 / 23:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 04-08-2013 / 02:06:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-10-2013 / 08:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditSupport methodsFor:'accessing'!

--- a/SmallSense__GroovyEditSupport.st	Fri Oct 04 08:31:58 2013 +0100
+++ b/SmallSense__GroovyEditSupport.st	Fri Oct 04 09:01:12 2013 +0100
@@ -17,7 +17,7 @@
     | groovyLanguageClass |
 
     groovyLanguageClass := Smalltalk at:#GroovyLanguage.
-    groovyLanguageClass notNil ifTrue:[ groovyLanguageClass instance ] ifFalse: [ nil ].
+    ^ groovyLanguageClass notNil ifTrue:[ groovyLanguageClass instance ] ifFalse: [ nil ].
 
     "Created: / 04-10-2013 / 07:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !

--- a/SmallSense__JavaEditSupport.st	Fri Oct 04 08:31:58 2013 +0100
+++ b/SmallSense__JavaEditSupport.st	Fri Oct 04 09:01:12 2013 +0100
@@ -17,9 +17,9 @@
     | javaLanguageClass |
 
     javaLanguageClass := Smalltalk at:#JavaLanguage.
-    javaLanguageClass notNil ifTrue:[ javaLanguageClass instance ] ifFalse: [ nil ].
+    ^ javaLanguageClass notNil ifTrue:[ javaLanguageClass instance ] ifFalse: [ nil ].
 
-    "Modified: / 04-10-2013 / 07:57:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-10-2013 / 08:42:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaEditSupport methodsFor:'accessing-classes'!

--- 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'!

--- a/smallsense.rc	Fri Oct 04 08:31:58 2013 +0100
+++ b/smallsense.rc	Fri Oct 04 09:01:12 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Fri, 04 Oct 2013 07:21:53 GMT\0"
+      VALUE "ProductDate", "Fri, 04 Oct 2013 07:59:52 GMT\0"
     END
 
   END