--- a/EnterBox.st	Thu Apr 04 02:47:40 2013 +0200
+++ b/EnterBox.st	Thu Apr 04 11:33:30 2013 +0200
@@ -406,6 +406,12 @@
     "define the initial selection in the enterfield"
 
     enterField selectFromLine:1 col:start toLine:1 col:stop
+!
+
+selectFromCharacterPosition:start to:stop
+    "define the initial selection in the enterfield"
+
+    enterField selectFromCharacterPosition:start to:stop
 ! !
 
 !EnterBox methodsFor:'accessing-look'!
@@ -710,10 +716,10 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.69 2013-04-03 19:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.70 2013-04-04 09:33:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.69 2013-04-03 19:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.70 2013-04-04 09:33:30 cg Exp $'
 ! !