--- a/EditTextView.st	Fri Dec 04 11:44:05 2009 +0100
+++ b/EditTextView.st	Fri Dec 04 14:22:33 2009 +0100
@@ -1497,6 +1497,14 @@
     "Modified: / 23.1.1998 / 12:37:13 / cg"
 !
 
+cursorLeft:n
+    "move cursor to left"
+
+    n timesRepeat:[
+        self cursorLeft
+    ].
+!
+
 cursorLine:line col:col
     "this positions onto physical - not visible - line"
 
@@ -1574,6 +1582,14 @@
     "Modified: / 20.6.1998 / 18:19:07 / cg"
 !
 
+cursorRight:n
+    "move cursor to right"
+
+    n timesRepeat:[
+        self cursorRight
+    ].
+!
+
 cursorShown:aBoolean
     "change cursor visibility
      return true if cursor was visible before."
@@ -7688,9 +7704,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.484 2009-12-01 13:06:14 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.485 2009-12-04 13:22:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.484 2009-12-01 13:06:14 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.485 2009-12-04 13:22:33 cg Exp $'
 ! !