--- a/EditField.st	Wed Mar 20 11:06:27 1996 +0100
+++ b/EditField.st	Wed Mar 20 11:43:59 1996 +0100
@@ -1377,33 +1377,46 @@
 !EditField methodsFor:'initialization'!
 
 editMenu
-    |labels selectors m|
+    |labels selectors shorties m|
 
     labels := #(
                 'copy'
                 'cut'
                 'paste'
-"
-                'replace'
-"
-                '-'
-                'accept'
                ).
 
-     selectors := #(
+    selectors := #(
                  copySelection
                  cut
                  paste
-"
-                 replace
-"
-                 nil
-                 accept
                 ).
 
+    shorties := #(
+                   #Copy
+                   #Cut
+                   #Paste
+                 ).
+
+    (acceptAction notNil 
+    or:[model notNil and:[changeMsg notNil]]) ifTrue:[
+        labels := labels , #(
+                                '-'
+                                'accept'
+                            ).
+        selectors := selectors , #(
+                                nil
+                                #accept
+                            ).
+        shorties := shorties , #(
+                                nil
+                                #Accept
+                            ).
+    ].
+
     m := PopUpMenu 
-          labels:(resources array:labels)
-          selectors:selectors.
+           labels:(resources array:labels)
+           selectors:selectors
+           accelerators:shorties.
 
     self hasSelection ifFalse:[
         m disableAll:#(copySelection cut)
@@ -1414,7 +1427,7 @@
 
     ^ m
 
-    "Modified: 9.2.1996 / 01:50:10 / cg"
+    "Modified: 20.3.1996 / 11:34:12 / cg"
 !
 
 initStyle
@@ -1607,5 +1620,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.51 1996-03-07 12:36:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.52 1996-03-20 10:43:59 cg Exp $'
 ! !