--- a/TextView.st	Thu Mar 05 18:50:39 2009 +0100
+++ b/TextView.st	Fri Mar 06 14:52:51 2009 +0100
@@ -2343,11 +2343,14 @@
     "return the width in pixels for a scroll between firstLine and lastLine"
 
     selectionStartLine notNil ifTrue:[
+        "/ if there is a selection which covers multiple lines,
+        "/ we have to scroll the whole width (to include the selection-rectangle)
+
         (lastLine < selectionStartLine) ifFalse:[
             (firstLine > selectionEndLine) ifFalse:[
                 ^ width
             ]
-        ]
+        ].
     ].
     ^ super widthForScrollBetween:firstLine and:lastLine
 ! !
@@ -4274,7 +4277,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.297 2009-02-18 16:55:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.298 2009-03-06 13:52:51 cg Exp $'
 ! !
 
 TextView initialize!