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