--- a/EditField.st	Fri May 24 14:17:46 1996 +0200
+++ b/EditField.st	Fri May 24 18:35:29 1996 +0200
@@ -1479,18 +1479,20 @@
 
     (acceptAction notNil 
     or:[model notNil and:[changeMsg notNil]]) ifTrue:[
-        labels := labels , #(
-                                '-'
-                                'accept'
-                            ).
-        selectors := selectors , #(
-                                nil
-                                #accept
-                            ).
-        shorties := shorties , #(
-                                nil
-                                #Accept
-                            ).
+        immediateAccept ifFalse:[
+            labels := labels , #(
+                                    '-'
+                                    'accept'
+                                ).
+            selectors := selectors , #(
+                                    nil
+                                    #accept
+                                ).
+            shorties := shorties , #(
+                                    nil
+                                    #Accept
+                                ).
+        ].
     ].
 
     m := PopUpMenu 
@@ -1507,7 +1509,7 @@
 
     ^ m
 
-    "Modified: 20.3.1996 / 11:34:12 / cg"
+    "Modified: 24.5.1996 / 18:34:59 / cg"
 !
 
 initStyle
@@ -1721,5 +1723,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.61 1996-05-22 16:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.62 1996-05-24 16:35:29 cg Exp $'
 ! !