--- 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 $'
! !