--- a/EnterBox.st	Tue Apr 08 10:20:47 2003 +0200
+++ b/EnterBox.st	Fri Apr 11 14:56:45 2003 +0200
@@ -378,6 +378,12 @@
     enterField contents:aString
 !
 
+initialAnswer:aString
+    "for protocol compatibility - an alias for initialText:"
+
+    self initialText:aString
+!
+
 initialText:aString
     "define the initial text in the enterfield. all will be selected initially"
 
@@ -692,5 +698,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.58 2002-10-01 15:13:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.59 2003-04-11 12:56:45 cg Exp $'
 ! !