--- a/TextView.st	Fri Nov 24 11:55:30 1995 +0100
+++ b/TextView.st	Fri Nov 24 13:56:21 1995 +0100
@@ -47,7 +47,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.28 1995-11-18 17:39:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.29 1995-11-24 12:56:21 cg Exp $'
 !
 
 documentation
@@ -645,6 +645,10 @@
 
 !TextView methodsFor:'selections'!
 
+validateNewSelection
+    ^ self
+!
+
 unselectWithoutRedraw
     "forget selection but do not redraw the selection area
      - can be done when the selected area is redrawn anyway or
@@ -1800,6 +1804,8 @@
 	]
     ].
 
+    self validateNewSelection.
+
     (oldStartLine == selectionStartLine) ifTrue:[
 	(oldStartCol ~~ selectionStartCol) ifTrue:[
 	    self redrawLine:oldStartLine