--- a/EditTextView.st	Thu Mar 15 12:33:43 2018 +0100
+++ b/EditTextView.st	Thu Mar 15 12:33:59 2018 +0100
@@ -1465,6 +1465,17 @@
     ^ cursorLine
 !
 
+cursorLineAndColumnHolder
+    "return a valueHolder for the cursors line and column as an
+     array of the form { lineNr . col }
+     This can be used directly as a model to react on cursor movement"
+
+    ^ BlockValue
+        with:[:l :c | (Array with:l with:c) ]
+        argument:self cursorLineHolder
+        argument:self cursorColHolder
+!
+
 cursorLineAndColumnLabelHolder
     "return a valueHolder for the cursors line and column as an info string
      of the form 'line : col'.