--- a/CodeView.st	Thu Mar 06 22:44:17 1997 +0100
+++ b/CodeView.st	Fri Mar 07 11:15:38 1997 +0100
@@ -272,20 +272,27 @@
      (we are typically compiling here ... and the compiler may show
      errors by highlighting them)"
 
+    acceptEnabled == false ifTrue:[
+        device beep.
+        ^ self
+    ].
+
     codeStartPosition := 1.
     [
-	AbortSignal handle:[:ex |
-	    self cursor:Cursor normal.
-	    "redraw selection in normal color"
-	    self selectFromLine:selectionStartLine col:selectionStartCol 
-			 toLine:selectionEndLine col:selectionEndCol.
-	    ex return
-	] do:[
-	    super accept.
-	]
+        AbortSignal handle:[:ex |
+            self cursor:Cursor normal.
+            "redraw selection in normal color"
+            self selectFromLine:selectionStartLine col:selectionStartCol 
+                         toLine:selectionEndLine col:selectionEndCol.
+            ex return
+        ] do:[
+            super accept.
+        ]
     ] valueNowOrOnUnwindDo:[
-	self unselect.
+        self unselect.
     ]
+
+    "Modified: 7.3.1997 / 11:06:13 / cg"
 !
 
 editMenu
@@ -295,6 +302,7 @@
 
     <resource: #keyboard (#CommentSelection #UncommentSelection 
                           #Accept #Explain)>
+    <resource: #menu>
 
     |m sub|
 
@@ -320,6 +328,10 @@
           accelerators:#(nil #Accept)
           after:#inspectIt.
 
+        acceptEnabled == false ifTrue:[
+            m disable:#accept
+        ].
+
         "
          and add #explain after $gotoLine in the extra menu
         "
@@ -337,7 +349,7 @@
     ].
     ^ m.
 
-    "Modified: 7.3.1996 / 13:13:55 / cg"
+    "Modified: 7.3.1997 / 11:13:32 / cg"
 !
 
 explain
@@ -358,5 +370,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.34 1997-01-09 11:46:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.35 1997-03-07 10:15:38 cg Exp $'
 ! !