# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 852665526 -3600
# Node ID 41231c241387cbce5fc0f0e23281e8936f4c323a
# Parent  7b66af4825678816097709ca604bc10977f74c48
checkin from browser

diff -r 7b66af482567 -r 41231c241387 CodeView.st
--- 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 $'
 ! !