*** empty log message ***
authorpenk
Tue, 22 Apr 2003 15:10:30 +0200
changeset 2735 5ba2010aefa4
parent 2734 ba7f56186e88
child 2736 76212cf614cc
*** empty log message ***
TextView.st
--- a/TextView.st	Tue Apr 22 11:43:40 2003 +0200
+++ b/TextView.st	Tue Apr 22 15:10:30 2003 +0200
@@ -2139,6 +2139,10 @@
         end := nLinesShown
     ].
 
+"/    selectionEndLine isNil ifTrue:[
+"/        selectionStartLine := nil
+"/    ].
+
     selectionStartLine isNil ifTrue:[
         specialCare := false
     ] ifFalse:[
@@ -3597,9 +3601,7 @@
      - can be done when the selected area is redrawn anyway or
      known to be invisible (however, redraw knows about that anyway)."
 
-    selectionStartLine := nil.
-
-    "Modified: 29.4.1996 / 12:33:28 / cg"
+    selectionStartLine := selectionEndLine := nil.
 !
 
 validateNewSelection
@@ -3615,7 +3617,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.199 2003-04-15 11:56:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.200 2003-04-22 13:10:30 penk Exp $'
 ! !
 
 TextView initialize!