--- a/CodeView.st	Wed Feb 28 19:48:46 1996 +0100
+++ b/CodeView.st	Wed Feb 28 19:49:58 1996 +0100
@@ -169,40 +169,47 @@
     m := super editMenu.
 
     self sensor ctrlDown ifTrue:[
-	m addLabels:(resources array:#('-' 'commentIt' 'uncommentIt'))
-	  selectors:#(nil commentSelection uncommentSelection)
-	  after:(m labels size).
-	self hasSelection ifFalse:[
-	    m disableAll:#(commentSelection uncommentSelection) 
-	].
+        m addLabels:(resources array:#('-' 'commentIt' 'uncommentIt'))
+          selectors:#(nil commentSelection uncommentSelection)
+          accelerators:#(nil CommentSelection UncommentSelection)
+          after:(m labels size).
+
+        self hasSelection ifFalse:[
+            m disableAll:#(commentSelection uncommentSelection) 
+        ].
     ] ifFalse:[
 
-	"
-	 codeViews do support #accept
-	 ... add it after #inspectIt
-	"
-	idx := m indexOf:#inspectIt.
-	idx ~~ 0 ifTrue:[
-	    m addLabels:(resources array:#('-' 'accept'))
-	      selectors:#(nil accept)
-	      after:idx.
-	].
+        "
+         codeViews do support #accept
+         ... add it after #inspectIt
+        "
+        idx := m indexOf:#inspectIt.
+        idx ~~ 0 ifTrue:[
+            m addLabels:(resources array:#('-' 'accept'))
+              selectors:#(nil accept)
+              accelerators:#(nil #Accept)
+              after:idx
+        ].
 
-	"
-	 and add #explain after $gotoLine in the extra menu
-	"
-	sub := m subMenuAt:#others.
-	sub notNil ifTrue:[
-	    idx := sub indexOf:#gotoLine.
-	    sub addLabels:(resources array:#('-' 'explain'))
-		selectors:#(nil explain)
-		after:idx.
-	    self hasSelection ifFalse:[
-		sub disable:#explain 
-	    ].
-	].
+        "
+         and add #explain after $gotoLine in the extra menu
+        "
+        sub := m subMenuAt:#others.
+        sub notNil ifTrue:[
+            idx := sub indexOf:#gotoLine.
+            sub addLabels:(resources array:#('-' 'explain'))
+                selectors:#(nil explain)
+                accelerators:#(nil Explain)
+                after:idx.
+
+            self hasSelection ifFalse:[
+                sub disable:#explain 
+            ].
+        ].
     ].
     ^ m.
+
+    "Modified: 28.2.1996 / 17:47:46 / cg"
 !
 
 explain
@@ -245,5 +252,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.26 1996-02-27 14:35:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.27 1996-02-28 18:49:24 cg Exp $'
 ! !