--- a/extensions.st	Wed Aug 13 10:28:35 2014 +0100
+++ b/extensions.st	Wed Aug 13 20:40:56 2014 +0100
@@ -110,6 +110,14 @@
     ^ autoIndent
 ! !
 
+!EditTextViewCompletionSupport methodsFor:'queries'!
+
+isCompletionViewShown
+    ^ completionView notNil and:[ completionView isVisible ]
+
+    "Created: / 13-08-2014 / 16:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HTMLDocumentView methodsFor:'actions'!
 
 doQuickFix: quickFixNo