EditField.st
changeset 1054 d699ecd13e60
parent 1047 4d7bc9784f94
child 1061 eef045108fe0
--- a/EditField.st	Tue Feb 25 16:03:28 1997 +0100
+++ b/EditField.st	Tue Feb 25 20:16:57 1997 +0100
@@ -1630,7 +1630,11 @@
 !EditField methodsFor:'initialization'!
 
 editMenu
+    "return a popUpMenu for the receiver"
+
     <resource: #keyboard ( #Accept #Copy #Cut #Paste ) >
+    <resource: #menu>
+
 
     |labels selectors shorties m|
 
@@ -1684,7 +1688,7 @@
 
     ^ m
 
-    "Modified: 29.5.1996 / 17:34:38 / cg"
+    "Modified: 25.2.1997 / 20:15:40 / cg"
 !
 
 initStyle
@@ -1897,5 +1901,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.81 1997-02-25 13:32:01 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.82 1997-02-25 19:16:04 cg Exp $'
 ! !