--- a/CodeView.st	Tue Jan 07 20:19:13 1997 +0100
+++ b/CodeView.st	Tue Jan 07 20:32:06 1997 +0100
@@ -76,6 +76,14 @@
 
 !CodeView methodsFor:'accessing'!
 
+commentStrings:anArrayOfCommentStrings
+    "define the comment strings"
+
+    commentStrings := anArrayOfCommentStrings
+
+    "Created: 7.1.1997 / 20:25:06 / cg"
+!
+
 explainAction:aBlock
     "set the action to be performed on explain"
 
@@ -348,5 +356,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.32 1997-01-07 19:19:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.33 1997-01-07 19:32:06 cg Exp $'
 ! !