--- a/EditField.st	Tue Mar 05 01:08:59 1996 +0100
+++ b/EditField.st	Tue Mar 05 01:17:10 1996 +0100
@@ -1521,6 +1521,16 @@
 
 !EditField methodsFor:'queries'!
 
+isInputView
+    "return true, if the receiver is some kind of input view,
+     i.e. it should (can) be part of an enterGroup.
+     Return true here"
+
+    ^ true
+
+    "Created: 4.3.1996 / 11:32:34 / cg"
+!
+
 preferredExtent
     "return the preferred extent of this view.
      That is the width of the string plus some extra, 
@@ -1595,5 +1605,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.48 1996-03-01 12:57:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.49 1996-03-05 00:17:10 cg Exp $'
 ! !