--- a/EditField.st	Fri Mar 22 12:33:48 2013 +0100
+++ b/EditField.st	Wed Mar 27 09:58:56 2013 +0100
@@ -2277,6 +2277,22 @@
     "Modified: 28.2.1997 / 19:16:21 / cg"
 !
 
+selectFrom:firstColToSelect
+    "select the right part of the text"
+
+    |len|
+
+    list isNil ifTrue:[
+        self unselect
+    ] ifFalse:[
+        len := (self listAt:1) size.
+        firstColToSelect <= len ifTrue:[
+            self selectFromLine:1 col:firstColToSelect toLine:1 col:len.
+        ].
+        typeOfSelection := nil
+    ]
+!
+
 validateNewSelection
     "make certain that only one line is ever selected"
 
@@ -2290,10 +2306,10 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.220 2013-02-22 12:34:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.221 2013-03-27 08:58:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.220 2013-02-22 12:34:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.221 2013-03-27 08:58:56 cg Exp $'
 ! !