--- a/TextView.st	Wed Nov 11 17:59:48 2009 +0100
+++ b/TextView.st	Wed Nov 11 19:47:48 2009 +0100
@@ -870,9 +870,9 @@
         self 
             selectFromLine:selStartLine col:selStartCol
             toLine:selEndLine col:selEndCol.
+        selectStyle := selStyle
     ].
 
-    selectStyle := selStyle
 
     "Modified: / 31.3.1998 / 23:33:21 / cg"
 !
@@ -2561,7 +2561,7 @@
         (line between:selectionStartLine and:selectionEndLine) ifTrue:[
             (line == selectionStartLine) ifTrue:[
                 (line == selectionEndLine) ifTrue:[
-                    "its part-of-single-line selection"
+                    "it's part-of-single-line selection"
                     self clearMarginOfVisibleLine:visLineNr with:bgColor.
                     (selectionStartCol > 1) ifTrue:[
                         super redrawVisibleLine:visLineNr from:1 to:(selectionStartCol - 1)
@@ -2571,7 +2571,7 @@
                     ^ self
                 ].
 
-                "its the first line of a multi-line selection"
+                "it's the first line of a multi-line selection"
                 (selectionStartCol ~~ 1) ifTrue:[
                     self clearMarginOfVisibleLine:visLineNr with:bgColor.
                     super redrawVisibleLine:visLineNr from:1 to:(selectionStartCol - 1)
@@ -2585,7 +2585,7 @@
             ].
 
             (line == selectionEndLine) ifTrue:[
-                "its the last line of a multi-line selection"
+                "it's the last line of a multi-line selection"
                 (selectionEndCol == 0) ifTrue:[
                     ^ super redrawVisibleLine:visLineNr
                 ].
@@ -2596,7 +2596,7 @@
                 ^ self
             ].
 
-            "its a full line in a multi-line selection"
+            "it's a full line in a multi-line selection"
             self clearMarginOfVisibleLine:visLineNr with:self currentSelectionBgColor.
             self drawVisibleLineSelected:visLineNr.
             ^ self
@@ -4316,11 +4316,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.312 2009-11-02 15:20:14 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.313 2009-11-11 18:47:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.312 2009-11-02 15:20:14 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.313 2009-11-11 18:47:48 cg Exp $'
 ! !
 
 TextView initialize!