--- a/EditField.st	Fri Mar 07 11:16:02 1997 +0100
+++ b/EditField.st	Fri Mar 07 11:17:34 1997 +0100
@@ -811,15 +811,22 @@
     ""
     |val string|
 
+    acceptEnabled == false ifTrue:[
+        device beep.
+        ^ self
+    ].
+
     super accept.
     converter notNil ifTrue:[
-	val := self editValue.
-	string := converter printStringFor:val.
-	string ~= self contents ifTrue:[
-	    self contents:string.
-	    self flash
-	]
+        val := self editValue.
+        string := converter printStringFor:val.
+        string ~= self contents ifTrue:[
+            self contents:string.
+            self flash
+        ]
     ].
+
+    "Modified: 7.3.1997 / 11:06:00 / cg"
 ! !
 
 !EditField methodsFor:'accessing-behavior'!
@@ -1929,5 +1936,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.85 1997-03-06 15:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.86 1997-03-07 10:17:34 cg Exp $'
 ! !