--- a/EditField.st	Tue May 21 14:40:39 1996 +0200
+++ b/EditField.st	Tue May 21 21:33:05 1996 +0200
@@ -1625,9 +1625,11 @@
      i.e. it should (can) be part of an enterGroup.
      Return true here"
 
+    self obsoleteMethodWarning:'use #isInputField'.
     ^ true
 
-    "Created: 4.3.1996 / 11:32:34 / cg"
+    "Created: 21.5.1996 / 21:03:52 / cg"
+    "Modified: 21.5.1996 / 21:04:10 / cg"
 !
 
 preferredExtent
@@ -1704,5 +1706,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.58 1996-05-18 15:40:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.59 1996-05-21 19:33:05 cg Exp $'
 ! !