--- a/CodeView.st	Thu Jul 31 23:13:25 1997 +0200
+++ b/CodeView.st	Fri Aug 01 21:48:27 1997 +0200
@@ -328,7 +328,8 @@
           accelerators:#(nil #Accept)
           after:#inspectIt.
 
-        acceptEnabled == false ifTrue:[
+        (acceptEnabled == false 
+        or:[acceptAction isNil]) ifTrue:[
             m disable:#accept
         ].
 
@@ -349,7 +350,7 @@
     ].
     ^ m.
 
-    "Modified: 3.7.1997 / 13:54:37 / cg"
+    "Modified: 1.8.1997 / 21:47:55 / cg"
 !
 
 explain
@@ -370,5 +371,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.36 1997-07-03 12:26:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.37 1997-08-01 19:48:27 cg Exp $'
 ! !