--- a/CodeView.st	Tue Jun 27 04:24:41 1995 +0200
+++ b/CodeView.st	Mon Jul 03 04:34:22 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.18 1995-06-27 02:22:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.19 1995-07-03 02:32:27 claus Exp $
 '!
 
 !CodeView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.18 1995-06-27 02:22:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.19 1995-07-03 02:32:27 claus Exp $
 "
 !
 
@@ -241,9 +241,14 @@
 keyPress:key x:x y:y
     "catch keyboard shortcuts"
 
+    <resource: #keyboard (#Accept #Explain #Help 
+	       #CommentSelection #UncommentSelection)>
+
     (key == #Accept)  ifTrue:[^ self accept].
     (key == #Explain) ifTrue:[^ self explain].
     (key == #Help)    ifTrue:[^ self explain].
+    (key == #CommentSelection)    ifTrue:[^ self commentSelection].
+    (key == #UncommentSelection)  ifTrue:[^ self uncommentSelection].
 
     super keyPress:key x:x y:y
 ! !