--- a/TextView.st	Wed May 29 12:24:15 1996 +0200
+++ b/TextView.st	Wed May 29 14:55:05 1996 +0200
@@ -2162,7 +2162,8 @@
 
         self unselectWithoutRedraw.
 
-        "if selection is not visible, we are done"
+        "/ if the selection is not visible, we are done
+
         startLine >= (firstLineShown + nLinesShown) ifTrue:[^ self].
         endLine < firstLineShown ifTrue:[^ self].
 
@@ -2176,16 +2177,18 @@
         ] ifFalse:[
             endVisLine := self listLineToVisibleLine:endLine
         ].
-        "if its only part of a line, just redraw what has to be"
-        (startVisLine == endVisLine) ifTrue:[
+
+        "/ if its only part of a line, just redraw what has to be
+
+        (startLine == endLine) ifTrue:[
             super redrawVisibleLine:startVisLine from:selectionStartCol to:selectionEndCol
         ] ifFalse:[
-            super redrawFromVisibleLine:startVisLine to:endVisLine
+            self redrawFromVisibleLine:startVisLine to:endVisLine
         ].
     ].
     selectStyle := nil
 
-    "Modified: 18.3.1996 / 17:19:51 / cg"
+    "Modified: 29.5.1996 / 14:54:11 / cg"
 !
 
 unselectWithoutRedraw
@@ -2211,5 +2214,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.56 1996-05-28 20:20:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.57 1996-05-29 12:55:05 cg Exp $'
 ! !