--- a/EditTextView.st	Fri Jun 15 14:59:04 2018 +0200
+++ b/EditTextView.st	Sat Jun 16 00:48:21 2018 +0200
@@ -5450,7 +5450,7 @@
                           #Return #Tab #BackTab #NonInsertingTab #Escape
                           #GotoLine #BeginOfText #EndOfText
                           #InsertLine #DeleteLine
-                          #SelectLineFromBeginning
+                          #SelectLineFromBeginning #SelectToLineEnd
                           #LearnKeyboardMacro #ExecuteKeyboardMacro #ToggleInsertMode
                           #OpenSpecialCharacterWindow #InsertUUID
                           #'F*' #'f*')>
@@ -5884,6 +5884,11 @@
         self unselect. self selectCursorLineFromBeginning.
         ^ self
     ].
+    (key == #SelectToLineEnd) ifTrue:[
+        self makeCursorVisible.
+        self unselect. self selectCursorLineToEnd.
+        ^ self
+    ].
     (key == #SelectLine) ifTrue:[
         self makeCursorVisible.
         self unselect. self selectCursorLine.
@@ -5910,6 +5915,7 @@
     "Modified: / 06-02-1998 / 11:59:59 / stefan"
     "Modified: / 26-09-2013 / 17:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-04-2017 / 09:25:22 / cg"
+    "Modified: / 16-06-2018 / 00:47:47 / Claus Gittinger"
 !
 
 executeKeyboardMacro:cmdMacro
@@ -8667,6 +8673,15 @@
     "Modified: 16.8.1996 / 19:14:14 / cg"
 !
 
+selectCursorLineToEnd
+    "select cursorline from cursor position to the end"
+
+    self selectFromLine:cursorLine col:cursorCol
+         toLine:(cursorLine+1) col:0
+
+    "Created: / 16-06-2018 / 00:46:21 / Claus Gittinger"
+!
+
 selectExpandCursorLine
     "expand selection by one line or select cursorline"