--- a/TextView.st	Fri Mar 01 23:08:15 1996 +0100
+++ b/TextView.st	Sat Mar 02 00:05:45 1996 +0100
@@ -1607,6 +1607,57 @@
 
 !TextView methodsFor:'selections'!
 
+expandSelectionDown
+    selectionStartLine notNil ifTrue:[
+        selectionEndLine := selectionEndLine + 1.
+
+        self redrawLine:selectionEndLine-1. 
+        self redrawLine:selectionEndLine. 
+    ].
+
+    "Created: 1.3.1996 / 23:35:08 / cg"
+!
+
+expandSelectionLeft
+    selectionStartLine notNil ifTrue:[
+        selectionEndCol := (selectionEndCol - 1) max:0.
+        selectionEndLine == selectionStartLine ifTrue:[
+            selectionEndCol := selectionEndCol max:selectionStartCol
+        ].
+        self redrawLine:selectionEndLine. 
+    ].
+
+    "Modified: 2.3.1996 / 00:00:00 / cg"
+!
+
+expandSelectionRight
+    selectionStartLine notNil ifTrue:[
+        selectionEndCol := selectionEndCol + 1.
+
+        self redrawLine:selectionEndLine 
+                   from:selectionEndCol-1
+                     to:selectionEndCol
+    ].
+
+    "Created: 1.3.1996 / 23:33:17 / cg"
+!
+
+expandSelectionUp
+    |t|
+
+    selectionStartLine notNil ifTrue:[
+        selectionEndLine := (selectionEndLine - 1) max:0.
+        selectionEndLine := selectionEndLine max:selectionStartLine.
+        selectionEndLine == selectionStartLine ifTrue:[
+            selectionEndCol := selectionEndCol max:selectionStartCol
+        ].
+        self redrawLine:selectionEndLine+1. 
+        self redrawLine:selectionEndLine. 
+    ].
+
+    "Modified: 2.3.1996 / 00:01:17 / cg"
+!
+
 hasSelection
     "return true, if there is a selection"
 
@@ -1880,5 +1931,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.39 1996-03-01 18:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.40 1996-03-01 23:05:45 cg Exp $'
 ! !