--- a/EnterBox.st	Thu Dec 09 23:50:49 1999 +0100
+++ b/EnterBox.st	Thu Dec 09 23:51:23 1999 +0100
@@ -383,7 +383,13 @@
 initialText:aString selectFrom:start to:stop
     "define the initial text in the enterfield, and the part to be selected"
 
-    enterField initialText:aString.
+    self initialText:aString.
+    self selectFrom:start to:stop
+!
+
+selectFrom:start to:stop
+    "define the initial selection in the enterfield"
+
     enterField selectFromLine:1 col:start toLine:1 col:stop
 ! !
 
@@ -666,5 +672,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.51 1999-09-22 16:21:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.52 1999-12-09 22:51:23 cg Exp $'
 ! !