--- a/CodeCompletionHelpView.st	Fri Mar 21 20:33:09 2014 +0100
+++ b/CodeCompletionHelpView.st	Mon Mar 24 10:02:41 2014 +0100
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libtool' }"
 
 View subclass:#CodeCompletionHelpView
-	instanceVariableNames:'myView'
+	instanceVariableNames:'myView editView'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Help'
@@ -64,6 +64,10 @@
 
 !CodeCompletionHelpView methodsFor:'accessing'!
 
+editView:aView
+    editView := aView
+!
+
 withView:aView
     "set the component view"
 
@@ -163,10 +167,10 @@
 !CodeCompletionHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.5 2013-11-08 11:49:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.6 2014-03-24 09:02:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.5 2013-11-08 11:49:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeCompletionHelpView.st,v 1.6 2014-03-24 09:02:41 cg Exp $'
 ! !