--- a/TextView.st	Mon Mar 18 14:53:33 1996 +0100
+++ b/TextView.st	Mon Mar 18 17:19:09 1996 +0100
@@ -1682,9 +1682,6 @@
         ] ifFalse:[
             l := selectionEndLine.
             selectionEndLine := selectionEndLine + 1.
-            selectionEndLine <= clickLine ifTrue:[
-                expandingTop := true
-            ]
         ].
         self redrawLine:l. 
         self redrawLine:l+1.
@@ -1692,17 +1689,17 @@
     ].
 
     "Created: 1.3.1996 / 23:35:08 / cg"
-    "Modified: 6.3.1996 / 14:18:12 / cg"
+    "Modified: 18.3.1996 / 17:18:15 / cg"
 !
 
 expandSelectionLeft
-    |c l t|
+    |c l t c1 c2|
 
     selectionStartLine notNil ifTrue:[
         expandingTop ifTrue:[
             selectionStartCol == 0 ifTrue:[^ self].
             l := selectionStartLine.
-            selectionStartCol := (selectionStartCol - 1) max:0.
+            selectionStartCol := (selectionStartCol - 1) max:1.
             c := selectionStartCol.
         ] ifFalse:[
             l := selectionEndLine.
@@ -1717,11 +1714,16 @@
                 ]
             ].
         ].
-        self redrawLine:l from:c to:c+1. 
+        c1 := c.
+        c2 := c1 + 1.
+        c1 == 0 ifTrue:[
+            c1 := 1
+        ].
+        self redrawLine:l from:c1 to:c2. 
         self makeSelectionVisible.
     ].
 
-    "Modified: 6.3.1996 / 14:18:27 / cg"
+    "Modified: 18.3.1996 / 17:05:46 / cg"
 !
 
 expandSelectionRight
@@ -2071,5 +2073,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.43 1996-03-07 12:23:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.44 1996-03-18 16:19:09 cg Exp $'
 ! !